VB中如何把查找到的记录显示出来啊???
数据库是ACCESS,我查找到了相应的记录,记录里面有很多个字段,如电话,单位,姓名等等,怎么把查找到的记录中的字段输出到文本框控件里啊,谢谢。
[解决办法]
Text1.Text = Adodc1.Recordset.Fields( "姓名 ").Value & vbNullString
[解决办法]
插入一个datagrid控件,在它的DataGrid1_RowColChange属性下输入以下代码
当然,你可以把datagrid的显示属性设置为隐藏。我就是这样做的。呵呵
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
With Adodc1.Recordset
If .RecordCount > 0 Then
If .Fields( "类别编号 ") <> " " Then Text1.Text = .Fields( "类别编号 ")
If .Fields( "资料类别 ") <> " " Then Text2.Text = .Fields( "资料类别 ")
If .Fields( "备注 ") <> " " Then Text3.Text = .Fields( "备注 ")
End If
End With
End Sub
[解决办法]
If Adodc1.Recordset.RecordCount > 0 Then
adodc1..Recordset.movefirst
do until adodc1.eof
Text5.Text = txt5.text & Adodc1.Recordset.Fields( "telephone ") & vbNullString
loop
end if
adodc1..Recordset隻能一個個讀取數據.