把下面的代碼copy妳的vb中的壹個模塊中就可以操作acess數據庫了
'使用方法:1、調用SetConnStr函數,產生連接字符串。2、打開數據庫連接,3。執行ExecuteSQL函數返回結果集。
'======================== 必須引用ADO2.5庫方可運行 ==========================
'VB數據庫編程的模塊,演示如何用ADO連接Access數據庫,以及 SQL 查詢語言的運用。
'引用ADO酷,可以將ADO孔件拖到窗體上再刪除就可以了
'=============================================================================
Public Function SetConnStr(ByVal DbName As String) As String
'生成數據庫連接字符串,參數為數據庫名(全路徑)
SetConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbName & ";Persist Security Info=False"
End Function
Public Function ExecuteSQL(ByVal Sql As String, ByVal ConnString As String) As ADODB.Recordset
'On Error Resume Next'當數據庫插入時,全部數據均為空時,將發生錯誤,所以要加這句話
'執行給定的sql語句,返回類型為記錄集
Dim Mycon As ADODB.Connection
Dim Rst As ADODB.Recordset
Set Mycon = New ADODB.Connection
Mycon.ConnectionString = ConnString
Mycon.Open
Dim Stokens() As String
' On Error GoTo ExectueSql_Error
Stokens = Split(Sql)
If InStr("INSERT,DELETE,UPDATE", UCase(Stokens(0))) Then
Mycon.Execute Sql
Else
Set Rst = New ADODB.Recordset
Rst.Open Trim(Sql), Mycon, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = Rst
End If
ExectueSql_Exit:
Set Rst = Nothing
Set Mycon = Nothing
Exit Function
ExectueSql_Error:
Resume ExectueSql_Exit
End Functionejk
dwawa