有一关于ADODC的问题像向大家请教
我本来是想查询两个表的,所以我没有指定ADODC的记录源,用代码实现连接数据库,但我运行起来就遇到了问题,请先看我的代码
Private Sub cmdFind_Click()
Dim strCon As String
Dim strSQL As String
strCon = " 外部来文.保管期限= '" & Combo1.Text & " ' "
strSQL = "select 外部来文.文件类型,外部来文.来文级别,外部来文.保管期限," _
& " 上级来文.来文级别,上级来文.上级来文级别,上级来文.上级来文类型," _
& " 外部来文.来文级别=上级来文.来文级别"
strSQL = strSQL + " and " + strCon
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\工程.mdb;Persist Security Info=False"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strSQL
Adodc1.Refresh /错误出现在这句"实时错误,至少有一个参数没有被指定值"
End Sub
Private Sub cmdClear_Click()
Text1.Text = ""
Combo1.Text = ""
End Sub
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "永久", 0
Combo1.AddItem "长期", 1
Combo1.AddItem "短期", 2
End sub