首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB中怎么把查找到的记录显示出来啊

2012-01-23 
VB中如何把查找到的记录显示出来啊???数据库是ACCESS,我查找到了相应的记录,记录里面有很多个字段,如电话,

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隻能一個個讀取數據.

热点排行