VB与ACCESS连接

来源：百度知道 编辑：UC知道 时间：2024/06/18 02:26:54
哪位高手帮我看看下面的问题，运行错误！“实时错误430”！谢谢！！
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Set conn = New Connection
Dim Connectionstring As String
Connectionstring = "provider = microsoft.jet.oledb.4.0;" & "data source=c:\数据库\STUDENTS.mdb"
conn.CursorLocation = adUseClient
conn.Open Connectionstring

Dim STUDENTS As New ADODB.Recordset
Dim sqlstr As String
sqlstr = " select * from STUDENTS"
STUDENTS.Open sqlstr, conn, adOpenKeyset, adLockOptimistic

Set DBGrid1.DataSource = STUDENTS

End Sub
Set DBGrid1.DataSource = STUDENTS，运行的这一句，有实时错误“430”，类不支持自动化或不支持期望的接口！各位高手，帮我看看，谢谢了！

Set conn = New ADODB.Connection

你参考下下面的几个函数吧：
Public Function connectstr() As String
strsql = App.Path & "\数据库.mdb"
connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strsql & ""
End Function
Public Function runselect(ByVal sqlm As String) As ADODB.Recordset '返回记录集
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open connectstr()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open Trim(sqlm), cn, adOpenDynamic
Set runselect = rs
Set rs = Nothing
Set cn = Nothing
End Function
Public Function runsql(ByVal sql As String) '执行更新
Dim cn As ADODB.Connection
'On Error GoTo sql_err
Set cn = New ADODB.Connection
cn.Open connectstr()
cn.Execute Trim(sql)
Set cn = Nothing
Set cn = Nothing
End Functi