Private Sub Form_Load()
'定義并創建資料庫連接和訪問物件
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'定義資料庫連接字串變數
Dim strCn As String
'定義資料流連接引數變數
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
'定義Sql陳述句
Dim sql As String
'初始化資料庫連接變數
db_host = "localhost"
db_user = "root"
db_pass = ""
db_data = "up"
cn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Driver};" & _
"SERVER=" & db_host & ";" & _
"DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" & _
"OPTION=3;stmt=SET NAMES GB2312"
cn.Open strCn
cn.CursorLocation = adUseClient
' 訪問表 test
sql = "select * from up"
rs.Open sql, cn
MsgBox rs.RecordCount
End Sub
uj5u.com熱心網友回復：
新手上路，請大神指導uj5u.com熱心網友回復：
具體連接什么型別的資料庫？如果是sqlserver建議不要用odbc轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/26865.html
上一篇：抽取word里的表格到新檔案
下一篇：跪求啊