Question

vb 如何查找两个表中的数据,让结果显示在一张表中

Set DataGrid1.DataSource = Adodc1
Adodc1.RecordSource = "select * from 采购表 and 生产入库表 where " + Combo1.Text + "='" + Text1.Text + "'"

Adodc1.Refresh

If Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF Then
MsgBox "数据库中没有所要查询的信息！"
Text1.Text = ""
Text1.SetFocus
运行说from语句错误

Answer 1

VB可编写SQL结构化查询语句关联两个数据表，将查询结果放置于一个记录集。

1. 使用As语句将表名引用作别名。如示例代码中的from字句中：

   JWCK_BM as cs,jwl_chuk as sl
   

2. 使用两表能关联字段关联。如示例代码中的where字句中 ：

   cs.备件代码 = sl.备件代码。

3. 将整个SQL查询语句赋值给Adodc控件的RecordSource属性。
   

代码示例：

Private Sub cmdChaxun_Click()
    Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"
    Adodc1.RecordSource = "select cs.备件代码,cs.备件名称,sl.凭据号,sl.领用部门,sl.日期,sl.出库数量,sl.出库单价 " & _
    "from JWCK_BM as cs,jwl_chuk as sl" & _
    " where cs.备件代码 = sl.备件代码" & " and  sl.日期 between '" & Text4 & "' and '" & Text5 & "'  order by sl.备件代码,sl.日期"
    Adodc1.Refresh
    DataGrid1.Refresh
    zsl = Adodc1.Recordset.RecordCount
    Text3 = zsl
    If zsl > 0 Then
        Adodc2.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"
        Adodc2.RecordSource = "select sum(出库金额) as hj from jwl_chuk where 日期 between '" & Text4 & "' and '" & Text5 & "'"
        Adodc2.Refresh
        Text6 = Int(Adodc2.Recordset(0) * 100 + 0.501) / 100
    End If
End Sub

SQL结构化查询语句：

Structured Query
Language（结构化查询语言 (SQL)），一种数据查询和编程语言。

Answer 2

sql语句
select 字段名 from 表一 ，表二 where

追问

我用“，”还是显示from子语句错误

追答

符号错误，用英文字符

追问

用的是英文字符来着

Answer 3

select * from table1,table2 where ...

追问

我用“，”还是显示from子语句错误

追答

用英文逗号,并关联两表,再加你的条件,然后看错误自信是什么.
如:
Adodc1.RecordSource = "select * from 采购表 a,生产入库表 b where a.id=b.id and a." & Combo1.Text & "='" & Text1.Text & "'"

追问

至少一个参数没有被指定值

追答

关联字段存在吗....如id
combo1.text是空的?
combo1.text表示的字段数据库没有?