Question

如何把数据库中查询到的内容添加到memo中？

在线等~~~
delphi语言写的

Answer 1

Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TBCS08D.MDB;Jet OLEDB:DataBase password=wn8815732;" 'TBCS08D改成你自己的数据库名称
Conn.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from LiaoWei ", Conn, 1, 3 'LiaoWei改成你自己的数据表名称
text1.text==Rs.Fields(1)
text2.text==Rs.Fields(2)
.......
以下同理

Answer 2

利用索引查，直接定位表