我是个初学者,有个简单的问题想问问各位大侠,敬请各位给予帮助(急)

Apex00 2004-01-07 05:14:27
我的问题对各位大侠来说可能很简单,但对我来说比较困难,希望大家给予帮助!谢谢~~~~

我希望的是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
...全文
22 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
busisoft 2004-01-07
  • 打赏
  • 举报
回复
上面

Dim rsTemp As New ADODB.Recordset后面加一句

rsTemp.CursorLocation = adUseClient
busisoft 2004-01-07
  • 打赏
  • 举报
回复
这样改也可以

Private Sub CMD_Search_Click()

Dim szCon As String
Dim szSql As String
Dim rsTemp As New ADODB.Recordset

szCon = "Microsoft.Jet.OLEDB.4.0;Data
Source=E:\ToggeryManageSystem\TMS.mdb;Persist Security Info=False"

szSql = "select 商品名称 from G_Bale where 货号='" & huohao
& "';"

rsTemp.Open szSql, szCon, adOpenDynamic, adLockPessimistic

If rsTemp.RecordCount = 1 Then

Text4.Text = rsTemp("pingming")

End Sub
Apex00 2004-01-07
  • 打赏
  • 举报
回复
谢谢大侠问题已经得到解决,马上给您分!~以后遇到问题还希望向您请教!~~~谢谢!~~
SoHo_Andy 2004-01-07
  • 打赏
  • 举报
回复
试试
Private Sub CMD_Search_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Dim houHao As String
Dim strSQL As String
houHao = Trim(Text3.Text)


If cn.State = 1 Then
cn.Close
End If
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"

strSQL = "select 商品名称 from G_Bale where 货号='" & houHao & "'"

rs.Open strSQL, cn, adOpenStatic, adLockOptimistic

If rs.RecordCount = 1 Then
Text4.Text = rs!商品名称
End If

rs.Close
End Sub

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧