Question

VB怎么链接数据库

如题

Answer 1

Dim strAppPath As String
strAppPath = App.Path
If Right(strAppPath, 1) <> "\" Then
strAppPath = strAppPath & "\"
End If
strAppPath = strAppPath & "BigText.mdb"
ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strAppPath & ""
Set cnn = New ADODB.Connection
cnn.Open ConnectString
'-----------------sqlDim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As Stringcnn.CursorLocation = adUseClient
str = "Provider=SQLOLEDB.1;Persist Security Info =False;" _
& "User ID=sa;" _ '数据库的登录名
& "Pwd=123456;" _ '数据库的密码
& "Initial Catalog=db1;" _
& "Data Source=whx" '连接数据库的名字cnn.Open str
是否可以解决您的问题？

Answer 2

使用ADO对象
连接
操作