高校问答自贡高中压阀门厂:vb与数据库连接 查询显示 提示错误
来源：百度文库 编辑：高校问答 时间：2024/05/05 02:05:37
代码如下：
Dim sc As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ybtz.mdb;Persist Security Info=False"
If ctrls = 0 Then
sc = "select * from sba,xja where sba.设备自动编号=xja.设备自动编号 and (xja.是否到检=-1 or datediff(d,now,xja.到检日期)<=0)"
End If
Adodc1.RecordSource = sc
Set DataGrid1.DataSource = Adodc1
运行提示 adodc1至少有一个参数没有被指定值。
（钱夫人：）为什么？
编号是数字；是否到检是是否；到检日期是日期的短格式。
好像毛病和这个没关系吧
Dim sc As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ybtz.mdb;Persist Security Info=False"
If ctrls = 0 Then
sc = "select * from sba,xja where sba.设备自动编号=xja.设备自动编号 and (xja.是否到检=-1 or datediff(d,now,xja.到检日期)<=0)"
End If
Adodc1.RecordSource = sc
Set DataGrid1.DataSource = Adodc1
运行提示 adodc1至少有一个参数没有被指定值。
（钱夫人：）为什么？
编号是数字；是否到检是是否；到检日期是日期的短格式。
好像毛病和这个没关系吧
用SQL语句查询应该用DataSource
Adodc1.RecordSource = sc
改为:
Adodc1.DataSource= sc
在vb中使用select语句要注意你查询的字段的数据类型。如果你的字段是字符类型则：select * from talbe where 字段 like '" & textbox.text & "'" ;
如果字段是日期类型则：select * from talbe where 字段 like #" & textbox.text & "#"；
如果是数值型的话就什么也 不用加了。