Question

VB中连接access数据库如何连接 我有代码和数据库不知道如何连接

我有一个盘上边是vb代码 数据库是access 运行时候提示行 86: 控件 SockToCln 的类 MSWinsockLib.Winsock 不是一个已加载的控件类。
行 90: 属性名 _ExtentX 在 SockToCln 中是无效的。
行 91: 属性名 _ExtentY 在 SockToCln 中是无效的。
行 92: 属性名 _Version 在 SockToCln 中是无效的。
行 197: 控件 SockToSvr 的类 MSWinsockLib.Winsock 不是一个已加载的控件类。
是什么意思啊

Answer 1

vb连接acess数据库很容易,你后面写的东西我不明白,
把下面的代码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 Function