请教vba中的数据库连接问题
我要再vba中连接我创建好的数据库，数据库是用Acess做成的。可是都连接不上。高手帮忙看下面代码，哪里出错了？小女子感激不尽！Private Sub UserForm_Initialize()
strPath = ThisDrawing.Application.VBE.ActiveVBproject.FileName '获得当前工程路径
Set adoCon = New Connection
adoCon.CursorLocation = adUseClient
adoCon.Open "Provide=Microsoft.Jet.OLEB.4.0;Data Source=" & Left(strPath, Len(strPath) - 8) & "sixsteel.mdb;"
Set adoRs = New Recordset
adoRs.Open "六角钢管", adoCon, adOpenDynamic, adLockOptimistic
If adoRs.RecordCount > 0 Then
adoRs.MoveLast
adoRs.MoveFirst
ExchangeData False
End If
End Sub
其中ExchanggeData是我定义的一个函数。
Left(strPath, Len(strPath) - 7)
调试是很重要的哦！
页:
[1]