Question

VB6.0如何把access查询的结果显示在textbox里

Answer 1

dim cn As New ADODB.Connection Dim rs1 As New ADODB.Recordset Private Sub Command1_Click() cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='数据库';Persist Security Info=False" rs1.ActiveConnection = cn rs1.Open "select * from 数据表" text1.text= = rs1("字段") end sub 这样应该可以吧