Question

VB中一个COMMAND和2个TEXT控件~SLQ数据库~怎么样在text1中输入一个数据~点击COMMAND 输出数据在TEXT2中

输出的数据是在一个数据表中对应TEXT1中的内容~求代码
要从SLQ中调用数据表~~

Answer 1

Option Explicit
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim txtsql As String
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydata.mdb;Persist Security Info=False" '设置链接ACCESS数据库字符串
cn.Open '连接数据库
Dim s As String
s = Text1.Text
txtsql = "select * from admin where id =" & s & " " '从表admin中查询，条件是id = s = text1.text
Set rs = cn.Execute(txtsql)
Text2.Text = rs.Fields(1) '将对应的结果输出到text2中
End Sub