如何通过数据库某个表中的某列的信息来查询出这一行的所有信息并且显示出来
SQL Server中Table_1  如下图：
VB界面如下图：
如何通过输入ID来查询对应的ID所在行的信息。

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

具体代码怎么写的，感觉还是一样的效果。
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

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

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

很少有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-1-10 22:53编辑过]

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

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