Question

vb 读取如何提取数据库中的内容并在在text中显示？

Answer 1

你这个问题比较笼统，数据库的类型有不少？你说的VB是什么版本呢？

另外，数据库的操作，一两句话还真说不清楚。
我就说个最最简单的ACCESS数据库吧！那就用VB6里的Data控件，选中它，设置属性：
DatabaseName 属性：连接到数据库文件
RecordSource 属性：连接数据表（可以用Select语句返回记录集）
然后使用它的：data1.Recordset.Fields(“字段名”)，就可以返回获得你说的内容了。

追问

版本vb6.0
数据库access

我用的是字符串连接，不是用控件，求解答！谢谢

追答

通过菜单[工程] -- [引用]，勾选 Microsoft ActiveX Data Object 2.6 Library
Microsoft ActiveX Data Object 2.7 Library
Microsoft ActiveX Data Object 2.8 Library
都可以

Option Explicit

Private Sub Command1_Click()
Dim conn As ADODB.Connection '声明连接对象
Dim rst As ADODB.Recordset '声明记录集对象

Set conn = New ADODB.Connection '实例化对象
Set rst = New ADODB.Recordset '实例化对象

'连接数据库
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
'返回记录集
rst.Open "Select * From 数据表名", conn, adOpenKeyset, adLockPessimistic

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'这里是具体对记录的操作
If Not Rst.Eof Then
Text1.Text = rst.Fields("字段名")
End If
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Set rst = Nothing '释放对象
Set conn = Nothing '释放对象