请问datagrid控件如何通过ado来显示数据？？

Question

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & strUserID & ";Initial Catalog=" & strDBName & ";Data Source=" & strServerName
Adodc1.Password = strPassword
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from test"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

Answer 1

是那种不用任何ado控件的方法！

Answer 2

Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim sql As String
     
     Set cn = New ADODB.Connection
     
  '   cn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=name"
     cn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=name"
     
     Set rs = New ADODB.Recordset
    
     sql = "select * from yb_hospital"
     rs.Open sql, cn, adOpenStatic, adLockBatchOptimistic
   
  '   rs.Open sql, cn, 1, 1
  '   MsgBox rs.Fields(0).Value
     
    Set Me.DataGrid1.DataSource = rs
    Me.DataGrid1.Refresh

Answer 3

我是在我的机上演示了的，你有没有引用ADO啊

Answer 4

set datagrid1.datasoure=rs'rs为ADO记录集对象
datagrid1.refresh