我是个初学者,有个简单的问题想问问各位大侠,敬请各位给予帮助(急)
我的问题对各位大侠来说可能很简单,但对我来说比较困难,希望大家给予帮助!谢谢~~~~
我希望的是text1.text= 这个查询语句得到的值 (select 商品名称 from G_Bale where 货号='" & id & "';)
下面是我写的一些垃圾代码,我知道在[]括号当中的代码是存在问题的,希望各位大侠可以给予帮助,把我写错的地方修改一下,好吗!谢谢了!~~
Private Sub CMD_Search_Click()
Dim id As String
id = Trim(Text3.Text)
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0;Data
Source=E:\ToggeryManageSystem\TMS.mdb;Persist Security Info=False"
cn.Open
Set rs = New ADODB.Recordset
sql = "select 商品名称 from G_Bale where 货号='" & huohao
& "';"
[rs.Open pingming, cn, adOpenStatic, adLockOptimistic, adCmdText
If rs.RecordCount = 1 Then
Text4.Text = pingming]
End Sub