请帮我看看这个程序哪里有问题.谢谢高手,菜鸟感激
我做了个查询系统但是一直报错.程序如下:
Option Explicit
Dim rs_find As New ADODB.Recordset
Dim sqlfind As String
Dim sql As String
Dim v_tiaojian1 As String
Dim v_ziduan1 As String
Private Sub Command2_Click()
Unload Me
MDIForm1.Show
End Sub
Private Sub Command1_Click()
v_tiaojian1 = Combo2.Text
v_ziduan1 = Combo1.Text
If v_ziduan1 = "石洞口编号" Or v_ziduan1 = "委托号" Or v_ziduan1 = "物料代码" Or v_ziduan1 = "名称" Or v_ziduan1 = "型号规格" Or v_ziduan1 = "是否交货完毕" Then
sql = "select * from 资料登记 where " & v_ziduan1 & " " & v_tiaojian1 & " '" & Text1.Text & "' " '设置要查询的条件
End If
If v_ziduan1 = "接单日期" Or v_ziduan1 = "提货日期" Or v_ziduan1 = "要求交货期" Then
sql = "select * from 资料登记 where " & v_ziduan1 & " " & v_tiaojian1 & " DateValue('" & Text1.Text & "' ) " '设置要查询的进货表的条件
End If
If v_ziduan1 = "数量" Or v_ziduan1 = "报价(单价)" Or v_ziduan1 = "合同(单价)" Then
sql = "select * from 资料登记 where " & v_ziduan1 & " " & v_tiaojian1 & Text1.Text '设置要查询的进货表的条件
End If
Adodc1.RecordSource = sql
Adodc1.Refresh
L_exit:
cmderror:
If Err.Number <> 0 Then
MsgBox "请输入正确的查询条件！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
End Sub
Private Sub Command4_Click()
Adodc1.RecordSource = "select * from 资料登记"
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Combo1.AddItem "石洞口编号"
Combo1.AddItem "委托号"
Combo1.AddItem "物料代码"
Combo1.AddItem "名称"
Combo1.AddItem "型号规格"
Combo1.AddItem "接单日期"
Combo1.AddItem "提货日期"
Combo1.AddItem "数量"
Combo1.AddItem "要求交货期"
Combo1.AddItem "是否交货完毕"
Combo1.AddItem "报价(单价)"
Combo1.AddItem "合同价(单价)"
Combo1.ListIndex = 0
Combo2.AddItem ">"
Combo2.AddItem "="
Combo2.AddItem "<"
Combo2.ListIndex = 1
Adodc1.RecordSource = "select * from 资料登记"
Adodc1.Refresh
formatgrid
End Sub
报错内容如下
实时错误-2147217900(80040e14)
对象Refresh的方法IAdodc失败 好像是 你的Select 语句有问题，仔细查看一下你的单双引号。
页:
[1]
