VB6.0连接SQL关于DataGrid的问题，急！

来源：百度知道 编辑：UC知道 时间：2024/06/01 01:06:13
From1中有DataGrid控件和一个按钮，点按钮弹出From2，From2中有若干个textbox。在from1的DataGrid表中选中一列，然后点按钮弹出from2，如何实现from2中的textbox分别显示from1中选中的那一列数据。
就是Private Sub Command1_Click()
............
End Sub
中间填什么？ 问题解决还有追加分，我QQ：177723222 谢谢

LZ:应该是行吧?1行数据就是1条记录.
Option Explicit
Dim cn As New ADODB.Connection '定义数据库的连接
Dim rs As New ADODB.Recordset
Dim sql As String
Dim l As Integer
Dim zsl As Integer
Dim strData As String
Dim i As Integer
Dim j As Integer

Private Sub Command3_Click()
sql = "select * from jishijilu where car_bm like 'DF160%'"
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\VB_program\kongtiao\CarTempTs.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
zsl = rs.RecordCount
l = rs.Fields.Count
End Sub

Private Sub DataGrid1_Click()
from2.Text1.Text = rs.Fields(0)
from2.Text2.Text = rs.Fields(1)
from2.Text3.Text = rs.Fields(2)
'....
End Sub

Private Sub Command1_Click(