各位大虾,美眉帮帮忙,小女子在线等!

benben20000521 2006-03-16 11:03:20
我的问题是这样的:
有这样一组数据:010000A8900016F000169DC0 可口可乐
其中“010000A8900016F000169DC0”对应的是SQL 2000数据库中表”ypinf“中的“药品EPC码”,偶想截取“010000A8900016F000169DC0”利用SQL语句在ypinf表中查询对应药品的信息,然后显示在一个Text文本中,代码如何实现?
没做过这样的程序,不知道如何实现在线显示,不懂,愁啊:(
...全文
76 7 点赞 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过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("药品名称")

  • 打赏
  • 举报
回复
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 字段名='取出來的值'
  • 打赏
  • 举报
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2006-03-16 11:03
社区公告
暂无公告