关于Ado与DataGrid的链接，望指教

Question

在工程中添加了一个窗体，窗体中有一个DataGrid控件
请问怎样链接sql数据库呢？
希望高手给出相关代码，谢谢了！

Answer 1

http://club.book.csdn.net/people/mylist444.html
    Con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DBNAME;Data Source=DBServerName;UID=Sa;PWD="
    Con.Open
    Con.CursorLocation = adUseClient
    rs.Open "Select * From PASSPORT Order By ID", Con, adOpenStatic, adLockOptimistic
    Set Me.DataGrid1.DataSource = rs
    Me.DataGrid1.Refresh

Answer 2

Dim Con As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Answer 3

参考：
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
'有密码的Access数据库
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\videorental.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=incubus"
cnn.OpenSet adoRS = New ADODB.Recordset
adoRS.Open "Select * from users", cnn, adOpenStatic, adLockPessimistic
Set DataGrid1.DataSource = adoRS

Answer 4

加个ADODC控件很快的，不咬写代码的！不写一句代码就可以连接数据库！
---------------------------------------------------------------------------------
人事考勤工资系统88元！9天自助建站系统80元！VB项目毕业设计参考20元!100个商业网站源码热销中!
阳光软件网:
http://www.sun883.com

Answer 5

Dim cnn As New ADODB.Recordset
    Dim rs As New ADODB.Recordset
    Dim strCnn As String, strSQL As String
    
    On Error GoTo exitHandle
    
    strCnn="Driver={SQL Server};Server=" & @ServerName & ";UID=" & @UserID & ";PWD=" & @Password & ";Database=" & @Database
    cnn.CursorLocation = adUseClient
    cnn.Open strCnn
    
    strSQL=....
    rs.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly '如果只是浏览的话
    Set rs.ActiveConnection = Nothing
    Set Datagrid1.Datasource = rs    
exitHandle:
    If err.Number <> 0 Then
        MsgBox err.Number & ":" & err.Description
        If rs.State = adStateOpen Then rs.Close
        Set rs = Nothing
    End If
    If cnn.State = adStateOpen Then cnn.Close
    Set cnn = Nothing

Answer 6

我有这样的示例。需要我发给你
QQ：5658967
VB群：4411229

Answer 7

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strconn As String
Private Sub Command1_Click()
strconn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;database=qq"'qq是sql server中数据表
conn.Open strconn
rs.Open "select * from 数据表", conn, adOpenStatic, adLockPessimistic
DataGrid1.DataSource = rs
End Sub
'点击Command1后就可以把数据库表的数据填充到DataGrid中