如何通过数据库某个表中的某列的信息来查询出这一行的所有信息并且显示出来 - 编程论坛

#2

wmf20142019-01-08 09:35

sql="select * form Table_1 where id=" & val(text1)

#3

childH2019-01-08 21:20

回复 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

只有本站会员才能查看附件，请登录

#4

wmf20142019-01-09 06:40

修改如下即可：
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

#5

childH2019-01-09 23:00

回复 4楼 wmf2014

假如，我的ID数量类型改为char（10），代码应该怎么改，自己尝试改了很多次，还是不行。

只有本站会员才能查看附件，请登录

#6

wmf20142019-01-09 23:26

很少有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

#7

childH2019-01-10 21:55

回复 6楼 wmf2014

谢谢可以了。

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

#8

childH2019-01-10 22:02

回复 6楼 wmf2014

你好，我想把这个程序改进，就是我买了个扫码枪，ID号我打印出来生成一维码，想通过扫描一维码，得到ID，自动弹出所在那行的数据，再扫一个，不会覆盖前面的数据，而是又弹出另外一个数据，有点像超市收银的那种。这个代码怎么实现。

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