急！如何用VB连接数据库？按钮可以连接数据库吗？希望有个人手把手交一下

Question

现在做毕业论文，第一次接触VB,搞了大半个月了，因为又要考公务员，要看书，大家帮点忙啊！急！谢谢，方便的话可以加Q！主要问题是，不懂怎么连接SQL数据库，貌似连接上了，又不太懂用！急啊！谢谢!

Answer 1

看看我的博客，以下连接有详细说明：
http://blog.csdn.net/chinaboyzyq/archive/2009/07/31/4395997.aspx

Answer 2

我博客里的文是连接ACCESS的，如果你要连接SQL SERVER连接方式如下，其它基本一样。Private Sub Command1_Click()
   Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=dg;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=."
   Adodc1.CommandType = adCmdText
   Adodc1.RecordSource = "select * from sysobjects"
   Adodc1.Refresh
   
   MsgBox Adodc1.Recordset.Fields(0)
   Adodc1.Recordset.Close
   
End Sub

Answer 3

给个例子
Private Sub Command1_Click()
   '工程-->引用 添加 Microsoft activex data objects 2.5 library
    '工程-->部件 添加 Microsoft flexgrid control 6.0
    Dim Cnn As New ADODB.Connection
    Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access DB\Database1.mdb;"
    If Cnn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cnn.Close
    Cnn.Open    Dim Rs As ADODB.Recordset
    Set Rs = New ADODB.Recordset
    With Rs
        Set .ActiveConnection = Cnn
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open "SELECT good_code,customer,sum(price*amount)/sum(amount) AS avg_price FROM sales GROUP BY good_code,customer"
        If .RecordCount > 0 Then
            MSFlexGrid1.Clear
            MSFlexGrid1.Cols = 3
            MSFlexGrid1.Rows = .RecordCount + 1
            MSFlexGrid1.TextMatrix(0, 0) = "商品编号"
            MSFlexGrid1.TextMatrix(0, 1) = "顾客名称"
            MSFlexGrid1.TextMatrix(0, 2) = "平均价格"            .MoveLast: .MoveFirst
            For i = 1 To .RecordCount
                MSFlexGrid1.TextMatrix(i, 0) = .Fields(0).Value & vbNullString
                MSFlexGrid1.TextMatrix(i, 1) = .Fields(1).Value & vbNullString
                MSFlexGrid1.TextMatrix(i, 2) = .Fields(2).Value & vbNullString
                .MoveNext
            Next
        End If
        .Close
    End With
    Set Rs = Nothing
End Sub

Answer 4

qiong_times (qiong_times)
  '截至2010-04-17 16:51:16  用户结帖率0.00%   根据楼主的结贴情况，没必要犹豫了。