＋设为首页 ＋添加到收藏夹
我使用ADO控件连接了一个Access数据库，比如我想使用一个SELECT * FROM TABLE查询，但如何执行以及如何获取每个字段的数据？还有如何执行下面的语句DELETE FROM TABLE,可以加分
Public Function M_Access(M_AccessName As String)
Dim M_temp As String
Dim M_Error As String
On Error GoTo ine
Set conn = New Connection
Set rs = New ADODB.Recordset
M_temp = ""
M_temp = App.Path + "\" & M_AccessName & ";"
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & M_temp & ";"
Set rs = conn.Execute("select data from login where number=1")
a = rs.fields("Date").value
rs.Close
conn.Close
GoTo inerr
ine:
M_Error = "数据库错误号：" & Err.Number & " 错误内容：" & Err.Description
MsgBox M_Error, , "错误信息"
inerr:
Set rs = Nothing
End Function
