Question

vb+access查询问题，想要将查询内容显示在text中，但是不知道具体怎么写语法

Private Sub Command1_Click()
Dim Rs As New Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\data.mdb"
conn.Open
Text4.Text = "select 欠款时间 from 用户资料单 where 名称='" & Trim(Text1.Text) & "'"
Text5.Text = "select 库存量 from 库存 where 零件代码='" & Trim(Text2.Text) & "'"
conn.Close
End Sub
不知道怎么写，还请大神帮忙！谢谢

Answer 1

Private Sub Command1_Click()
    Dim Rs As New Recordset
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\data.mdb"
    conn.Open 
    rs.open  "select 欠款时间 from 用户资料单 where 名称='" & Trim(Text1.Text) & "'",conn
    
    Text4.Text =rs.fields("欠款时间")
    rs.close
    rs.open "select 库存量 from 库存 where 零件代码='" & Trim(Text2.Text) & "'",conn
    Text5.Text = rs.fields("库存量")
    rs.close
    set rs=nothing
    conn.Close
    set conn=nothing
End Sub

Answer 2

conn.open 后面改写：
q= "select 欠款时间 from 用户资料单 where 名称='" & Trim(Text1.Text) & "'"
conn.Open q
text4.text=conn.Fields("欠款时间")
conn.close
q= "select 库存量 from 库存 where 零件代码='" & Trim(Text2.Text) & "'"
conn.Open q
text5.text=conn.Fields("库存量")
conn.close