vb怎么和access连接

答案：
首先,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指版本号,尽可能选择比较新的版本. 然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用对象有Connection和Recordset. 
创建这两个对象的具体方法是: 
1.在引用后,使用New关键字,如 
Private Conn As New ADODB.Connection Private Reco As New ADODB.Recordset 
2.在没引用时,用CreateObject创建对象: 
Dim Conn,Reco Set Conn = CreateObject("ADODB.Connection") Set Reco = CreateObject("ADODB.Recordset") 创建了对象之后,下一步我们要做的就是打开数据库了. 
下面代码可以打开数据库. Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb" 这句代码打开了D盘中的Main.mdb这个数据库. Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分"Provider=Microsoft.Jet.OLEDB.4.0",它表示了数据库的类型.不同的数据库可能会不同.后半句"Source=d:\main.mdb"它表示了数据库所在的绝对路径. 打开数据库之后,还要打开表.假如数据库中有一个表,表名为"Users",字段有两个,一个为用户名,一个为密码.那么看以下代码. 
1.想返回"Users"中,[用户名]为"123"的[密码] Recordset.open "Select 密码 From Users Where 用户名='123",Connection,1,1之后我们就可以把用户输入的密码进行比较,看是否允许登录. If Recordset.eof and Recordset.bof then 
Msgbox "用户不存在!",16 
Else If PassWord =Recordset("密码").value then 
msgbox "登录成功!",64 
Else msgbox "密码错误!",32 
End If 
End If 
Recordset.Close 
2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来 Recordset.open "Select * From Users",Connection,1,1 这时,表已经被打开,我们就用以下代码把它显示出来. 
Do whlie Not Recordset.eof 
Print "用户名: " & Recordset("用户名").value & "密码: " & Recordset("密码").value 
Recordset.MoveNext 
Loop 
Recordset.Close 
由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句. Select [字段名] From 表名 [Where 条件] 这里的条件可以省略.且字段名也可以用"*"来代替所有字段. 需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset("密码")就没有值存在,还有可能出错. 后面的条件,可以用"="、">"、"<"等运算符.比如 "Where ID > 32".(这里假设[ID]为数字型.) 这是打开的部分.
可以用ado控件来连接，或者用microsoft activex data object库来连接

上一个：用vb制作一个MP3播放器
下一个：鎬庝箞鎵嶈兘瀛﹀ソvb - 宸茶В鍐?- 鎼滄悳闂棶