我使用ADO連接數據庫，通過綁定datagrid控件來顯示數據庫中符合條件的內容。

Option Explicit

Private Sub Command1_Click()

Dim cn As New ADODB.Connection '數據庫連接變量

Dim Cmd As New ADODB.Command '命令集

Dim rs As New ADODB.Recordset '記錄集

Dim strConnect As String '連接字符串

Set cn = New ADODB.Connection

strConnect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=database;Data Source=servername" '指定連接字符串

cn.ConnectionString = strConnect

cn.Open '連接數據庫

With Cmd

.ActiveConnection = cn

.CommandType = adCmdStoredProc '有四種可選擇的類型,在編程過程中使用SQL SERVER的存儲過程是很好的方法

.CommandText = "SP_Get_Name" '存儲過程名稱

.Parameters.Refresh

.Parameters("@dt").Value = date() '存儲過程中參數的值(存儲過程中只有一個參數)

End With

With rs

.CursorLocation = adUseClient

.CursorType = adOpenStatic

.LockType = adLockReadOnly

.Open Cmd

End With

Set DataGrid1.DataSource = rs '綁定數據庫顯示控件

End Sub

要在DataGrid控件中顯示數據CursorLocation = adUseClient和Set DataGrid1.DataSource = rs兩個語句不可缺少。

總結

以上是生活随笔為你收集整理的vb datagrid mysql_vb ADO 连接数据库，并绑定datagrid控件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。