问DBGRID读取数据~~~~~

[xk2y]

请问当在DBGRID指针指先某行数据时!!
怎样才把那一行数据显示到TEXTBOX上~~~

[daisy8675]

dbgrid是VB5的控件,我建议你换成datagrid

[faysky2]

在RowColChange()事件里写：
Text1.Text=rs.Fields("要显示的字段名")

[faysky2]

Text1.Text=data1.Recordset.Fields("要显示的字段名")

[faysky2]

Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If Val(LastRow) <> DBGrid1.Row Then
Text1.Text = Data1.Recordset("要显示的字段名")
End If
End Sub

[上官云峰]

我认为你可以这样
你试试吧，好用的
记得要引用ado

Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
'strsql 是你的查询语句 你可以order by 排序的字段
'strsql="select xh as 学号 from 表" 这里的学号就是你数据表中字段的标题
strsql="select 字段 from 表"
Set Db = New Connection
Db.CursorLocation = adUseClient
'下面的连接数据字符串你要修改一下
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
end sub
将数据显示出来以后
当点击某行时用text1.text=rs.fields("字段")

[xk2y]

唔该各位!!!