VB如何连接Access数据库

最近做毕业设计，要用VB做超市收银系统，遇到问题了，希望大家帮忙，谢谢！就是做收银系统登录时，根据不同的用户级别有不同的界面，界面已经做好了，就是在登录界面连接Access数据库是出问题，就是想请教各位用VB如何连接Access数据库，希望大家帮帮忙，我没学过这方面，时间又紧。如果有对这方面熟悉的 给我指点指点 最好能讲清楚一点 如何连接 具体的操作讲一下 万分感谢时！！

答案：
如下代码参考一下，不知能有帮助否。Private Sub Command1_Click() Dim Mycon As ADODB.Connection '定义一个连接对象，用这个对象来和数据库建立通讯联系。 Dim Myrt As ADODB.Recordset '定义一个记录集对象，将来从数据库取得一条一条的记录后，放入这个对象里面。 Dim Mystr As String '定义一个字符串变量，用来存放和数据库连接时一些必要的参数。 Set Mycon = New ADODB.Connection '建立一个新的连接对象。 Set Myrt = New ADODB.Recordset '建立一个新的记录集对象。 Myrt.CursorLocation = adUseClient '定义记录集的游标类型，你要是才接触这方面的内容的话，这里没没必要做深入研究，知道记录集有2种游标类型，一种是服务器端游标，一种是客户端游标，这里采用的是客户端游标，2种类型各有特点，就你这如果要连接一个用户密码表的话，设客户端游标就可以了。 Mystr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\db1.mdb" '设置用来和数据库进行连接的一些必要参数，Access数据库采用Microsoft.Jet.OLEDB.4.0驱动，如果是其它类型的数据库的话这句就不一样了，如果你要调试这段代码的话，把d:\db1.mdb这个改一下。 Mycon.Open Mystr '用定义好的连接对象以前面设置的参数打开数据库，后面对数据库的操作就操作这个连接对象就行了。 Myrt.Open "select * from 表名", Mycon, 3, 1 ' 记录集对象执行打开操作，从数据库中的一个表中取得记录，在这里Mycon就代表数据库了。"select * from 表名"这句意思是从一个表中取得所有记录。你具体试验时把表名修改一下。 '在这里就从数据库的一个表中取得有用的数据了，你可以通过对Myrt记录集的操作取得自己需要的数据。比如如果是一个用户密码表的话，如果这个表有2个字段，一个用户名字段，一个密码字段。那么用Myrt("用户名")就能取得当前记录这个字段的数据。如果这个表有10条记录的话，可以用Myrt.movenext来移动记录集指针。 '如果你界面上放置一个DataGrid控件的话，用下面这句就能看到Myrt记录集对象从数据库中取得的内容了。 Set DataGrid1.DataSource = Myrt End Sub 你问题补充里的代码没有连接数据库的代码，这个按钮是验证身份登录的代码，在这之前就应该和数据库连接了，因为连接数据库的代码必定会有数据库的路径、名称等信息。如：D:\db1.mdb。
到Live天空之城！网站查看回答详情>>
这样类型的文章 我知道怎么写    老师有问题 包修改  包通过
 
 

↓↓↓↓↓下面可以和我联系
一：建立一个Access型数据库，并在数据库中创建新表—即为附加表。通过设置
附加表的各属性值，使其与你所要访问的数据库建立链接关系。程序代码如下：
DimDbasDatabase
DimTdasNewTabledef
SetDb=OpenDatabase("MYDB.MDB")
Td.Connect="dBASE:DATABASE=c:\DATADIR"
Td.SourceTableName="AU THOR"
Td.Name="dBASEAuthorTable"
Db.tabledefsAppendTd
Db.close
二：设置INI文件路径。在VB的程序中使用了访问外来数据库操作，将应用程序生成EXE文件后，必须提供一个INI文件。若找不到这个INI文件，将会导致不能访问数据库，并出现“NOTFOUNDIN STOLLABKISAMS’的错误信息。设置INI文件路径后，VB的程序会在WINDOWS子目录中寻找与应用程序同名的INI文件。设置INI文件路径代码为：
SetDataAccessOption1,“Path\Filename”
三：编辑.INI文件可对不同种类的数据库进行设置，下面为一INI文件代码：
〔Options〕
SystemDB=c: \MyPATH\SYSTEM.MDA
〔ISAM〕
PageTimeout=5
MaxBufferSize=128
LockRetry=20
CommitLockPetry=20
ReadAheadPages=16
〔InstallableISAMs〕
Paradox3.x=C:\VB\pdx110.DLL
FoxPro2.0=C:\VB\xbs110.DLL
FoxPro2.5=C:\VB\pdx110.DLL
dBASE=C:\VB\pdx110.DLL
dBASE=C:\VB\pdx110.DLL
Btrieve=C:\VB\btrv110.DLL
〔ParadoxISAM〕
PageTimeout=600
ParadoxUsername=BaiUser
ParadoxNetPath=P:\PDXDB\
CollatingSeguence=Ascii
〔dBASE〕
centry=off
Data=American
Mark=47
Deleted=on
这样通过访问新数据库MYDB.MDB和表“DBASEAU THORTABK”即可访问你所要访问的外来数据库了。
使用这种方法访问外来数据库应该注意的是，附加表在所加到的数据库中只是建立了一个链接关系，表的实际所在，仍然存在于原数据库中，该表在所附加到的数据库中被删除时，只是删掉了链接关系，实际的表并没有被删除。

上一个：vb编程求答案
下一个：VB倒计时程序代码