vb如何读取Access2003数据库

使用向导设置数据库连接的好处是省去写代码的过程，弊端是不易更改连接
使用代码连接的好处是需要编写代码，但容易更改和维护
如：数据库的位置变化，直接更改代码显然容易一些
代码：
imports System.data.oledb /*引用命名空间*/

dim cnstr = "provider=microsoft.jet.oledb.4.0,data source=Access数据库文件位置" /*定义连接字符串*/

dim cn as oledbconnection = new oledbconnection(cnstr) /*定义连接*/
cn.open() /*打开连接*/

sqlstr="select... from... 或其他sql"
dim cmd as sqlcommand=new sqlcommand()
cmd.commandtext=sqlstr
cmd.connection=cn
/*以上是建立执行语句*/

cmd.executenonquery() 不返回结果
cmd.executescalar() 返回单个结果
cmd.executereader() 返回结果集
/*以上是执行sql语句的方法*/

cn.close() /*关闭连接*/

你要做用户验证的话，先根据用户名查询对应的密码，再判断用户输入的密码和查询结果是不是相同就可以了
用cmd.executescalar() 这个方法

用户类型未定义，需要引用 Microsoft DAO 3.6 Object Library 才可以连接数据库。
点击【工程】菜单下的【引用】命令，弹出窗口中：勾选 Microsoft DAO 3.6 Object Library 试试看。

18788491230：求VB达人制作一个VB6 操作ACCESS2003数据库读取查询 函数
韶田梅 ：答：1、连接数据库：Dim strPTR As String strPTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\eden_code128.mdb"db.Open strPTR 2、连接数据表：strSQL = "select * from code128" '如果有条件查询必须有查询条件 RS.Open strSQL, db, 3, 3 3、查询记录：A =...

18788491230：怎样才能在VB6.0 中连接Access 2003数据库
韶田梅 ：答：一：建立一个Access型数据库，并在数据库中创建新表—即为附加表。通过设置 附加表的各属性值，使其与你所要访问的数据库建立链接关系。程序代码如下：DimDbasDatabase DimTdasNewTabledef SetDb=OpenDatabase("MYDB.MDB")Td.Connect="dBASE:DATABASE=c:\DATADIR"Td.SourceTableName="AU THOR"Td....

18788491230：VB6.0怎么连接Access2003数据
韶田梅 ：答：不一定非要转换为97格式，这要看你选择什么样的控件了。如果你选择data等控件，则必须转换为97格式，如果选择ADO控件，直接操作就可以了，不需要转换。以下资料供参考：VB中用ADO操作数据库 点击数：985 发布日期：2007-5-11 21:47:00 【收藏】 【评论】 【打印】 【编程爱好者论坛】 【关闭】...

18788491230：ACCESS新手问题 在access 2003 中输入数据
韶田梅 ：答：1）如果“A”和“B”都有数据则取其中数据长的字段内容，保存到字段“C”；2）如果“A”和“B”的字段长度相同，则取字段“A”的内容保存到字段“C”（关于此条是本人加给你的，因为不能排除出现两个字段的内容长度相同的情况，若这种情况发生，那么就选择“A”）；3）如果“A”和“B”其中有...

18788491230：...数据库如何代入VB,要哪些控件,还有代码 VB6.0 Access2003 谢谢...
韶田梅 ：答：db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DbClient.mdb;Persist Security Info=False"dbc.Open "select * From Client", db, adOpenKeyset, adLockOptimisticdbc.MoveFirst使用 dbc.Fields(1) = Str 向数据库写入数据Str更新及关闭数据 dbc.Updatedbc.Closedb....

18788491230：Access2003查询 分数大于240为优秀, 240-200为良好,200-180为及格180...
韶田梅 ：答：假若你的数值在A列，显示结果要在B列，则在B1中输入=IF(A1>=180,"优秀",IF(AND(A1>=160,A1<180),"良好",IF(AND(A1>=140,A1<160),"及格","不及格"))) ，在公式编辑栏中点对号确定。然后，再点该单元格，鼠标放在右下角下拉至结束位置。

18788491230：在ACCESS2003的窗体中,有两个文本框:A和B,一个命令按钮C。如何设置...
韶田梅 ：答：可以使用代码 取其值 入内存变量，然后再把他们赋值给另外一个……去看代码的写法吧……还可以在窗体中再做两个 隐藏的文本框 使用 宏 分别对这两个对应赋值 然后再交叉 赋回……宏 的设计 有说明 比较简单……哈哈 如果你写过代码 那么前面说的代码 是很简单的……自己研究一下吧 ...

18788491230：在Access2003数据库DB201202.mdb中有三个表,如下:学生(学号,姓名,性...
韶田梅 ：答：select 学号,姓名,班级 from 学生 where 姓名 like '张%'2 update 学习 set 分数=100 where 学号 = (select 学号 from 学生 where 姓名='张三') and 课号=(select 课号 from 课程 where 课名='数学')3 select a.班级,avg(c.分数) as 语文平均分 from 学生 as a,课程 as b,学习 as ...

18788491230：ACCESS 2003 两个表两个字段怎么相乘然后查询出来。
韶田梅 ：答：使用查询设计视图设计SQL查询请见附图。两个表同一个表基本原理是一样的，只要指明引用的表名就行了。例如 select a.预定天数,b.预定价格,a.预定天数*b.预定价格 as 应付金额 from a,b where a.价格ID=b.价格ID;楼主只要将两个表的实际关联字段换到上面的where子句里就行了，当然两张表通过内...

18788491230：Access2003 有效性规则 怎么使"输入的值必须是以A或B开头"后面跟4个数 ...
韶田梅 ：答：说明：使用like，#通配任意一位数字，[AB]表示匹配其中之一；[AB]###表示第一位为“A”或“a”或"B"或"b"，后接4位数字；由于[AB]###第一位即可大写，也可小写，再用strcomp()函数进行进一步验证，ucase([字段名称])无论字段是否大小写均转化为大写，然后用strcomp()函数进行转化前后字段值的...