vb中如何和SQL數據庫連接

Question

我是一個菜鳥，剛剛學習VB，大家多多賜教
在VB中，我想通過控件訪問SQL數據，該如解決？

Answer 1

Private Sub Form_Load()
    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
    strSQL = "select  * from TableName"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTableEnd Sub

Answer 2

补充一句,需要引用"Microsoft AOD Data Control"在工具箱右键-->部件 那里可以添加!

Answer 3

'窗体上放有DataGrid、CommandButtonOption Explicit
    Public mCnnString As String
    Public mRst As New ADODB.RecordsetPrivate Sub Command1_Click()     '保存按钮
    mRst.UpdateBatch
End SubPrivate Sub Form_Load()
    mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"  '连接字符串
    If mRst.State = adStateOpen Then mRst.Close
    mRst.CursorLocation = adUseClient
    mRst.Open "Select * From MyTable", mCnnString, adOpenStatic, adLockBatchOptimistic, adCmdText
    Set DataGrid1.DataSource = mRst
    DataGrid1.Refresh
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    mRst.Close
    Set mRst = Nothing
End Sub