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

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

另外，数据库的 *** 作，一两句话还真说不清楚。

我就说个最最简单的ACCESS数据库吧！那就用VB6里的Data控件，选中它，设置属性：

DatabaseName 属性：连接到数据库文件

RecordSource 属性：连接数据表（可以用Select语句返回记录集）

然后使用它的：data1.Recordset.Fields(“字段名”)，就可以返回获得你说的内容了。

从数据库的某表提取一条记录可从已关联数据库该表的DataGrid中选中行 *** 作提取。

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

Debug.Print DataGrid1.Columns("shijian").CellValue(DataGrid1.Bookmark) '提取shijian字段列值

End Sub

Private Sub Form_Load()

Dim sqlstr As String

sqlstr = "select * from jishijilu"

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\wdOld.mdbPersist Security Info=False"

Adodc1.RecordSource = sqlstr

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

End Sub

例如一个表INFO的字段有：user,password,question,answer

Dim cn As New ADODB.Connection '定义数据库的连接

Dim rs As New ADODB.Recordset

''''

这里连接数据库

''''

'查询语句

SQL="select * from INFO where user='账号"

rs.open SQL

rs.movefirst

pw=rs.Fields(1).Value '''这就是密码

或者

pw=rs.Fields("password").Value '''这就是密码

---