datagrid控件与sql server数据库如何用ado连接？（很着急）（速答速给分）

Question

'用ADO连接的例子,数据库用的是Access97。在你机上要重建一数据库并修改路径
Option Explicit
Dim conn As New ADODB.Connection
Dim rst As New ADODB.RecordsetPrivate Sub Form_Load()
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Jet OLEDB:Database Password=sa;" & _
"Data Source=C:\My Documents\David\test\db1.mdb;"
conn.Openrst.Open "test", conn, 1, 3, adCmdTable
'此处用的是MSHFlex Grid并将它命名为Grid1
'下面这句比较关键，是把你用的控件和ADO中的Recordset对象联接起来
Set Grid1.DataSource = rstEnd Sub

Answer 1

'用ADO连接的例子,数据库用的是Sql Server。
Option Explicit
Dim conn As New ADODB.Connection
Dim rst As New ADODB.RecordsetPrivate Sub Form_Load()
'下面一句中的Data Source是SqlServer服务器名称，你要根据你机上做相应修改
conn.ConnectionString = _
"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=suny"
conn.Openrst.Open "employees", conn, 1, 3, adCmdTable
'此处用的是MSHFlex Grid并将它命名为Grid1
'下面这句比较关键，是把你用的控件和ADO中的Recordset对象联接起来
'用DataGrid了一样要用这句
Set Grid1.DataSource = rstEnd Sub

Answer 2

连接的事情楼上的大哥都说完了
用mshflexgrid好

Answer 3

连接如上所说
不要给DATAGRID添加列之类的属性
用SET DG=RS
后自动会添加的
如故设置了倒显示不了数据了

Answer 4

数据库用sql server
Option Explicit
Dim conn As New ADODB.Connection
Dim rst As New ADODB.RecordsetPrivate Sub Form_Load()
conn.ConnectionString = "odbc;driver={sql server};dsn=数据源；database=数据库名；uid=用户名；pwd=密码；"
conn.Openrst.Open "test", conn, 1, 3, adCmdTable
'此处用的是MSHFlex Grid并将它命名为Grid1
'下面这句比较关键，是把你用的控件和ADO中的Recordset对象联接起来
Set Grid1.DataSource = rstEnd Sub

Answer 5

Public db  As ADODB.Connection
Public rs As ADODB.RecordsetPrivate Sub Form_Load()
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.Open "Provider=MSDASQL;DSN=Test;Password=123;"
rs.Open "SELECT * FROM test", db, adOpenKeyset, adLockPessimistic,adCmdText
Set DataGrid1.DataSource =db
end sub

Answer 6

'****************
首先改正前面回复的错误：
'刚才是连接Access
现在是Sql-Server
db.Open "Provider=MSDASQL;DSN=test;user id=test;password=123;"
set datagrid1.datasourece=rs
'*********************************
'下面是通过注册表连接
Option Explicit
Dim defaultTable As StringPrivate Sub cmdConnect_Click()
Dim servernameString As String    dbConnectionString = BuildConnectString(cmdDatabaseType.ItemData(cmdDatabaseType.ListIndex), txtServerName, txtDatabaseName, txtUsername, txtPassword)
    
    Me.Hide
    servernameString = UCase(Mid(txtServerName, 1, 1)) & LCase(Mid(txtServerName, 2))
    If txtDatabaseName <> "" Then
        servernameString = servernameString & " : " & UCase(Mid(txtDatabaseName, 1, 1)) & LCase(Mid(txtDatabaseName, 2))
    End If
    Call frmConnecting.ShowConnecting("Connecting to " & BuildDatabaseName(cmdDatabaseType.ItemData(cmdDatabaseType.ListIndex), servernameString, e_LastOpened_Network), frmMain, cmdDatabaseType.ItemData(cmdDatabaseType.ListIndex))
    On Error GoTo e_Trap
    If dbObj.State = adStateOpen Then
        dbObj.Close
    End If
    dbObj.Open dbConnectionString
    If dbObj.State <> adStateOpen Then
        Call MessageBox(Me.hwnd, "Failed to open Database on " & txtServerName, vbOKOnly + vbCritical, "Connect Failure")
        frmConnecting.Hide
        Me.Show vbModal, frmMain
    Else
        dbType = cmdDatabaseType.ItemData(cmdDatabaseType.ListIndex)
        dbPath = UCase(Mid(txtServerName, 1, 1)) & LCase(Mid(txtServerName, 2))
        If txtDatabaseName <> "" Then
            dbPath = dbPath & " : " & UCase(Mid(txtDatabaseName, 1, 1)) & LCase(Mid(txtDatabaseName, 2))
        End If
        LastOpenedType = e_LastOpened_Network
        Call frmMain.SetupDatabase(defaultTable)
        Call SaveSetting(App.Title, DEF_REGISTRY_CONNECTIONS, "", cmdDatabaseType.ItemData(cmdDatabaseType.ListIndex), HKEY_LOCAL_MACHINE, "SOFTWARE\Database")
        Call SaveSetting(App.Title, DEF_REGISTRY_CONNECTIONS & "\" & cmdDatabaseType.Text, "Server Name", txtServerName, HKEY_LOCAL_MACHINE, "SOFTWARE\Database")
        Call SaveSetting(App.Title, DEF_REGISTRY_CONNECTIONS & "\" & cmdDatabaseType.Text, "Database Name", txtDatabaseName, HKEY_LOCAL_MACHINE, "SOFTWARE\Database")
        Call SaveSetting(App.Title, DEF_REGISTRY_CONNECTIONS & "\" & cmdDatabaseType.Text, "Username", txtUsername, HKEY_LOCAL_MACHINE, "SOFTWARE\Database")
        Call SaveSetting(App.Title, DEF_REGISTRY_CONNECTIONS & "\" & cmdDatabaseType.Text, "Password", txtPassword, HKEY_LOCAL_MACHINE, "SOFTWARE\Database")
        Unload Me
    End If
    Exit Sub
e_Trap:
    Call MessageBox(Me.hwnd, "Error Connecting to Database on " & txtServerName & vbCr & Err.Description & " (" & Err.Number & ")", vbCritical + vbOKOnly, "Connect Failure")
    frmConnecting.Hide
    Me.Show vbModal, frmMain
End Sub

Answer 7

dim Rs_Sys_Sbtz as  New ADODB.Recordset
    With Rs_Sys_Sbtz
        If .State = adStateOpen Then
            .Close
        End If
        .ActiveConnection = adoCN
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockBatchOptimistic
        .Source = "SELECT * FROM Sys_Sbtz "
        .Open
    End With
  set Datagrid1.datasource=Rs_Sys_Sbtz