请问 以下的 vb 透过 ado 与sql的 连接 如何 显示在datagrid1中呢

Question

Private Sub Command1_Click()
Dim GCon As New ADODB.Connection
Dim rsTest As ADODB.Recordset
Dim strSQL As String, CCSQL As String
    CCSQL = "Driver={SQL Server};Server=10.10.1.211;DATABASE=STXT;UID=sa;PWD=1;"
    GCon.ConnectionString = CCSQL
    GCon.Open
    
    strSQL = "SELECT * from RS"
    'Set rsTest = GCon.Execute(strSQL)
    rsTest.Open strSQL, GCon
    Set DataGrid1.DataSource = rsTest
 
' 已经引用了 ms activex objects library 2.6  ...
End Sub

Answer 1

Dim rsTest As ADODB.Recordset这句错了吧??
Dim GCon As New ADODB.Connection
Dim rsTest As New ADODB.Recordset
Dim strSQL As String, CCSQL As String
    CCSQL = "Driver={SQL Server};Server=10.10.1.211;DATABASE=STXT;UID=sa;PWD=1;"  GCon.Open CCSQL
  GCon.CursorLocation = adUseClient
  strSQL = "SELECT * from RS"
  Set rsTest = GCon.Execute(strSQL)
  Set DataGrid1.DataSource = rsTest

Answer 2

1.要设置DataGrid1的Field属性
2.Dim rsTest As New ADODB.Recordset

Answer 3

Public Function databindtogrid(ByVal strsql As String, byval DataGrid1 As DataGrid)
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sqlstr As String
Set cnn = New ADODB.Connection
cnn.Open Connect   //这里的连接字符串自己写。我用的是一个Connect函数
cnn.CursorLocation = adUseClient
Set rst = New ADODB.Recordset
Set rst = cnn.Execute(strsql)
If rst.RecordCount <= 0 Then
  MsgBox "no record"
Else
  Set DataGrid1.DataSource = rst
End If
  End Function
调用：
Private Sub Form_Load()
Dim strsql As String
strsql = "select * from yhping"
Call databindtogrid(strsql, DataGrid1)
End Sub

Answer 4

不好意思，借个地方问一下：通过上面的函数绑定记录到datagrid后，如何获得在此datagrid上选中的记录的各字段的值。（数据集已封装在函数里面）

Answer 5

Private Sub DataGrid1_DblClick()
Dim fiel As String
Dim i As Integer
For i = 0 To DataGrid1.Columns.Count - 1
fiel = DataGrid1.Columns.Item(i).Text
MsgBox fiel
Next i
End Sub
自己适了一下，就这样可以访问到了。