如何实现查询多个表里包括的相同字段
时间:2011-11-21
来源:互联网
我有多个表,表里都有PartNumber、Quantity字段,但Quantity字段内容不同,另外还有一个Location字段,这三个字段同时存在在表Inventory里。现在我想通过在文本框中输入某一个零件号,点击按钮,并通过DataGrid1控件显示Inventory表中的这三个字段的内容。请大家帮忙这该如何写呢,我写了代码,但有错误,不知道应该如何写
Dim filter As String
Private Sub Command1_Click()
Dim strQuery As String
strQuery = "select * from [Inventory] where [PartNumber] = 零件号 and [Quantity] =库存数量 and [Location]=存放位置 WHERE Inventory.PartNumber='" & Text1.Text & "'"
Adodc1.RecordSource = strQuery
Adodc1.Refresh
End Sub
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
Dim strQuery As String
Adodc1.ConnectionString = conn.ConnectionString
strQuery = "SELECT Inventory.PartNumber AS 零件号,Inventory.Quantity AS 库存数量, Inventory.Location AS 存放位置"
Adodc1.RecordSource = strQuery
Adodc1.Refresh
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
Dim filter As String
Private Sub Command1_Click()
Dim strQuery As String
strQuery = "select * from [Inventory] where [PartNumber] = 零件号 and [Quantity] =库存数量 and [Location]=存放位置 WHERE Inventory.PartNumber='" & Text1.Text & "'"
Adodc1.RecordSource = strQuery
Adodc1.Refresh
End Sub
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
Dim strQuery As String
Adodc1.ConnectionString = conn.ConnectionString
strQuery = "SELECT Inventory.PartNumber AS 零件号,Inventory.Quantity AS 库存数量, Inventory.Location AS 存放位置"
Adodc1.RecordSource = strQuery
Adodc1.Refresh
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
作者: lenovo7610 发布时间: 2011-11-21
strQuery = "select * from [Inventory] where [PartNumber] = '"& 零件号 &"' and [Quantity] ="& 库存数量 &" and [Location]='"& 存放位置 &"' WHERE Inventory.PartNumber='" & Text1.Text & "'"
作者: Leftie 发布时间: 2011-11-22
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28