| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 227 人关注过本帖
标题:如何通过数据库某个表中的某列的信息来查询出这一行的所有信息并且显示出来
只看楼主 加入收藏
childH
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2019-1-7
结帖率:100%
  已结贴   问题点数:20  回复次数:7   
如何通过数据库某个表中的某列的信息来查询出这一行的所有信息并且显示出来
如何通过数据库某个表中的某列的信息来查询出这一行的所有信息并且显示出来
SQL Server中Table_1  如下图:
VB界面如下图:
如何通过输入ID来查询对应的ID所在行的信息。
附件: 您没有浏览附件的权限,请 登录注册
2019-01-07 23:53
wmf2014
Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:157
帖 子:1734
专家分:9677
注 册:2014-12-6
  得分:0 
sql="select * form Table_1 where id=" & val(text1)

能编个毛线衣吗?
2019-01-08 09:35
childH
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2019-1-7
  得分:0 
回复 2楼 wmf2014
具体代码怎么写的,感觉还是一样的效果。
Private Sub Command1_Click()
  Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bd_manpowerinfo"
  Adodc1.RecordSource = "select id,name,sex,住址 from dbo.Table_1"
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Text1_Click()
sql = "select * form Table_1 where id=" & Val(Text1)
End Sub
附件: 您没有浏览附件的权限,请 登录注册
2019-01-08 21:20
wmf2014
Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:157
帖 子:1734
专家分:9677
注 册:2014-12-6
  得分:20 
修改如下即可:
Private Sub Command1_Click()
  Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bd_manpowerinfo"
  Adodc1.RecordSource = "select id,name,sex,住址 from dbo.Table_1 where id=" & Val(Text1)
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
End Sub

能编个毛线衣吗?
2019-01-09 06:40
childH
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2019-1-7
  得分:0 
回复 4楼 wmf2014
假如,我的ID数量类型改为char(10),代码应该怎么改,自己尝试改了很多次,还是不行。
附件: 您没有浏览附件的权限,请 登录注册
2019-01-09 23:00
wmf2014
Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:157
帖 子:1734
专家分:9677
注 册:2014-12-6
  得分:0 
很少有ID使用字符类型的,修改如下即可:
Private Sub Command1_Click()
  Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bd_manpowerinfo"
  Adodc1.RecordSource = "select id,name,sex,住址 from dbo.Table_1 where id='" & Val(Text1) & "'"
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
End Sub

能编个毛线衣吗?
2019-01-09 23:26
childH
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2019-1-7
  得分:0 
回复 6楼 wmf2014
谢谢可以了。

[此贴子已经被作者于2019-1-10 22:53编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2019-01-10 21:55
childH
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2019-1-7
  得分:0 
回复 6楼 wmf2014
你好,我想把这个程序改进,就是我买了个扫码枪,ID号我打印出来生成一维码,想通过扫描一维码,得到ID,自动弹出所在那行的数据,再扫一个,不会覆盖前面的数据,而是又弹出另外一个数据,有点像超市收银的那种。这个代码怎么实现。

[此贴子已经被作者于2019-1-10 22:56编辑过]

2019-01-10 22:02







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035832 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved