怎样用VB文本框查询ACCESS的内容并显示在另外的文本框。

Question

怎样用VB文本框查询ACCESS的内容并显示在另外的文本框。注明：ACCESS的内容没有表，所有的产品都在资料表里，但查询时无法找到资料表。

Answer 1

楼主的意思是ACCESS里保存的仅是个路径或链接,所有的产品都在资料表里,但资料表又是什么东东?你没有说明白呀?

Answer 2

在资料表有许多产品名称，每个产品名称包含LotNo,测试数量，测试人员，工号等等。
我要查询的是，在文本框输入一个产品名称，按查询按钮，则在其它文本框自动显示LotNo,测试数量，测试人员，工号。

Answer 3

程序上很简单,我不明白的是资料表是单独的一个磁盘文件吗?还是存在于ACCESS库中?

Answer 4

资料表在ACCESS库中。
我的VB源码是
Private ADOcn As Connection
Private Sub Command1_Click()
 Dim strSQL As String
    Dim ADOrs As New Recordset
'ADOrs.ActiveConnection = ADOcn
strSQL = "Select * From资料表 Where PartNo=" + " ' " + Text1 + " ' ADOrs.OpenstrSQL"
If Not ADOrs.EOF Then
      Text2 = ADOrs.Fields("PartNo")
        Text3 = ADOrs.Fields("LotNo")
        Text4 = ADOrs.Fields("工号")
   ' Else
        MsgBox "要查询的PartNo不存在，请重新输入!", vbOKOnly, "信息提示"
        Text1 = ""
     Text1.SetFocus
    End IfEnd SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
Dim cn As New ADODB.ConnectionADOcn.Open“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\lantest.mdb
End Sub

Answer 5

一般情况下
我都是通过VB6里面的一个数据工程中新建一个页面
这样在提示下找到数据源
这样可以生成code或控件化地界面