1188
社区成员
各位大虾，美眉帮帮忙，小女子在线等！
我的问题是这样的：
有这样一组数据：010000A8900016F000169DC0 可口可乐
其中“010000A8900016F000169DC0”对应的是SQL 2000数据库中表”ypinf“中的“药品EPC码”，偶想截取“010000A8900016F000169DC0”利用SQL语句在ypinf表中查询对应药品的信息，然后显示在一个Text文本中，代码如何实现？
没做过这样的程序，不知道如何实现在线显示，不懂，愁啊：（
有这样一组数据：010000A8900016F000169DC0 可口可乐
其中“010000A8900016F000169DC0”对应的是SQL 2000数据库中表”ypinf“中的“药品EPC码”，偶想截取“010000A8900016F000169DC0”利用SQL语句在ypinf表中查询对应药品的信息，然后显示在一个Text文本中，代码如何实现？
没做过这样的程序，不知道如何实现在线显示，不懂，愁啊：（
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
rayxu 2006-03-16
哈哈。他应该是想实现一个打码认商品的功能，像商场一样，打入编码得到商品的名字价钱。
这个很简单，只要一条查询语句就可以了。
顶二楼回答的。
这个很简单，只要一条查询语句就可以了。
顶二楼回答的。
- 打赏
- 举报
easyrock 2006-03-16
可口可乐 也是药品？？
- 打赏
- 举报
of123 2006-03-16
010000A8900016F000169DC0 可口可乐
不知你的分隔符是空格还是制表符。
Dim strTemp As String, strYpinf() As String
strTemp = "010000A8900016F000169DC0 可口可乐"
'置换分隔符，以适用各种情况
If InStr(strTemp, vbTab) Then
strTemp = Replace(strTemp, Space(1), "")
Else
'去除多余的空格
Do Until InStr(strTemp, Space(2)) < 1
strTemp = Replace(strTemp, Space(2), Space(1))
Loop
strTemp = Replace(strTemp, Space(1), vbTab)
End If
strYpinf = Split(strTemp, vbTab)
rs.Open "SELECT * FROM ypinf WHERE 药品EPC码='" & strYpinf(0) & "'", cnn
Text1 = rs.Fields("药品EPC码")
Text2 = rs.Fields("药品名称")
不知你的分隔符是空格还是制表符。
Dim strTemp As String, strYpinf() As String
strTemp = "010000A8900016F000169DC0 可口可乐"
'置换分隔符，以适用各种情况
If InStr(strTemp, vbTab) Then
strTemp = Replace(strTemp, Space(1), "")
Else
'去除多余的空格
Do Until InStr(strTemp, Space(2)) < 1
strTemp = Replace(strTemp, Space(2), Space(1))
Loop
strTemp = Replace(strTemp, Space(1), vbTab)
End If
strYpinf = Split(strTemp, vbTab)
rs.Open "SELECT * FROM ypinf WHERE 药品EPC码='" & strYpinf(0) & "'", cnn
Text1 = rs.Fields("药品EPC码")
Text2 = rs.Fields("药品名称")
- 打赏
- 举报
viena 2006-03-16
不懂U Words
- 打赏
- 举报
51365133 2006-03-16
哇哈哈哈,我就是作超市系统地,我相信你的这些信息不是在一个表中的,我建议你多看下SQL 吧,要不我们就是把语句写出来,你也不知道怎么用的.
- 打赏
- 举报
51365133 2006-03-16
Select * form 表名 where 字段名='010000A8900016F000169DC0'
- 打赏
- 举报
vansoft 2006-03-16
010000A8900016F000169DC0
這個長度應該是固定的。
只要用left取左邊多少位就行了。
然後就是二樓說的，
Select * form 表名 where 字段名='取出來的值'
這個長度應該是固定的。
只要用left取左邊多少位就行了。
然後就是二樓說的，
Select * form 表名 where 字段名='取出來的值'
- 打赏
- 举报
