jony 发表于 2007-11-8 16:46

VBA连接数据库错误

我在用VBA连接ACCESS数据库时出现如下错误,附图在附件:<BR>   请高手指点,谢谢![attach]30041[/attach]<BR>

loocuw 发表于 2007-11-27 16:55

看看这个

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
Set qrs = New ADODB.Recordset
With con
.Provider = "Microsoft.Jet.OLEDB.4.0"
.C
.Open
'con.Open ("provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\" & whodata)
End With
slSql = " select * from teacher"
With rs
.ActiveConnection = con
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open slSql
End With

[[italic] 本帖最后由 loocuw 于 2007-11-27 16:59 编辑 [/italic]]

页: [1]

编程论坛