VB From子句语法错误，求教大神，万分感谢！！！
Private Sub Command1_Click()If 仓库编号.Text = "" Then MsgBox "请选择仓库编号!": Exit Sub
Dim SQL As String
SQL = ""
On Error GoTo quit
If 仓库编号.Text = "1" Then
SQL = "select DISTINCT * from 货物信息 where 仓库信息.仓库编号= '1' "
End If
Adodc1.RecordSource = SQL
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
Dim i As Integer
For i = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Columns(i).Width = Len(DataGrid1.Columns(i).Caption) * 200
Next
quit:
End Sub
运行后出现From子句语法错误，请大神赐教，万分感谢 --------------------编程问答-------------------- 你的表到底是货物信息还是仓库信息。
select DISTINCT * from 货物信息 where 仓库信息.仓库编号= '1'
至少有一处是错的。 --------------------编程问答-------------------- SQL = "select DISTINCT * from 货物信息 where 仓库信息.仓库编号= '1' "
红色部分必须相同 --------------------编程问答-------------------- 请问大神，怎么样才能通过一张表限制另外一张表记录的选择，我是个新手，还望大神能赐教！！十分感谢！！！ --------------------编程问答-------------------- 要说清楚希望怎么限制 --------------------编程问答-------------------- SQL = "select DISTINCT * from 货物信息 where 货物信息.仓库编号='1'"
我试过改成上面的形式，还是出现From子句语法错误的问题，这是怎么回事？
求教大神！！！
--------------------编程问答--------------------
我是想这样限制的：我现在有两个表：仓库信息和货物信息，通过限制仓库信息中的仓库编号为1，来查询货物信息表中仓库编号为1的货物，不知该怎么操作？
--------------------编程问答--------------------
除
--------------------编程问答--------------------
'楼主的意思是不是通过手工输入仓库编码来查询对应的记录?--------------------编程问答--------------------
if trim(仓库编号.text)="" then
msgbox "请输入仓库编号！",48,"提示"
仓库编号.setfocus
exit sub
else
SQL = "select DISTINCT * from 货物信息 where 仓库编号='"& trim(仓库编号.text) &"'"
end if
货物信息 where 货物信息.仓库编号='1'"
货物编号这个表是否在数据库中存在
仓库编号字段是否为数值，如果，则1不要加单引号
另外DISTINCT 可以不加，一般数据库记录在有主键的情况下，是不会重复的，加了会使得查询变慢，以为需要判断查询的结果是否有重复数据 --------------------编程问答--------------------
SQL = "select * from 货物信息 where 货物信息.仓库编号='1'" '如果仓库编号为字符类型
SQL = "select * from 货物信息 where 货物信息.仓库编号=1 " '如果仓库编号为数值类型
--------------------编程问答--------------------
差不多就是这个意思，只不过在输入仓库编号时我用了个combobox控件。 我试了试这个代码，运行后又显示Else 没有If，这又是什么原因？还劳烦大神指教。 --------------------编程问答-------------------- 请贴出你的代码 --------------------编程问答--------------------
Private Sub Command1_Click()
Dim SQL As String
If 仓库编号.Text = "" Then
MsgBox "请输入仓库编号！", 48, "提示"
仓库编号.SetFocus
Exit Sub
Else
SQL = "select DISTINCT * from 货物信息 where 仓库编号='" & 仓库编号.Text & "'"
End If
End Sub
这次试了试，连反应都没有了，这是怎么回事？求教大神。 --------------------编程问答--------------------
我看了看，货物信息的仓库编号为文本型，我加了单引号，但是还是出现From子句语法错误。 --------------------编程问答--------------------
如果点击Command1没有出错，应该代码没有问题，可能是你输入的仓库编号.text中的内容在表中没有记录，所以没有反应 --------------------编程问答-------------------- 最好不要用中易做图数据库的表名和字段名
补充：VB , 数据库(包含打印，安装，报表)
