关于VB连接ACCESS数据库的问题~

显示全部楼层 · 2008-12-3 12:54:02

我把它编译成EXE把他放在和jms.mdb同文件夹里..但是老是出错,错在哪里了?????
Private Sub Form_Load()
Dim zhu As New ADODB.Connection
Dim kk
kk = App.Path
zhu.Open "Provider=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & kk & "\jms.mdb"
End Sub

千问 · 2008-12-3 12:54:02

'在窗口上放一个grid,放一个adodc '这将成为你学习VB数据库编程最重要的，最有用的一步'其实其它语言也是这样的'他将使你走进编程的大门Public MyConnection As New ADODB.Connection '定义数据库对象Public MyRecordset As New ADODB.Recordset '定义记录集对象Public DBName As String '定义数据库名称变量Public Status As Boolean '定义连接数据库的状态变量Private Sub Form_Load()
Dim sql As String '生成表上面部分的字符
...

千问 · 2008-12-3 12:54:02

这样试试:Dim zhu as objectDim kkkk=App.Pathset zhu=CreateObject("ADODB.Connection")zhu.open "Driver={Microsoft Access Driver (*.mdb)};UID=;PWD=;DBQ=" & kk &"\jms.mdb"...

千问 · 2008-12-3 12:54:02

你有引用加载对象？在工程——引用里面勾选Microsoft ActiveX Data Objects Recordset 6.0和Microsoft ActiveX Data Objects 6.0 Library这样才可以用你上面的代码...