有一关于ADODC的问题像向大家请教

[johson1982]

我本来是想查询两个表的,所以我没有指定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

[tztz520]

strCon = " 外部来文.保管期限= '" & Combo1.Text & " ' "

strSQL = "select 外部来文.文件类型,外部来文.来文级别,外部来文.保管期限,上级来文.来文级别,上级来文.上级来文级别,上级来文.上级来文类型 where 外部来文.来文级别=上级来文.来文级别"

strSQL = strSQL + " and " + strCon & "from 外部来文,上级来文"

• 打赏
• 举报

回复 赞

[johson1982]

我也是langtao1982,我昨天发帖子找你咋不回答我呢,我一直在线,我昨天那个shell的问题还没解决,因为我用你的代码出了点问题,我原来那个帖子和我现在以johson1982发在控件里的新帖子都说了我的问题,麻烦你再帮我看看那个问题,你挺历害的

• 打赏
• 举报

回复 赞

[ch_gufen]

这些问题都能自己解决.
在 strSQL = strSQL + " and " + strCon 处设置断点.
在debug窗口写
print strsql
看看打印的语句 是否合乎规范就可以了。
同时强烈建议不要用中文字段名

• 打赏
• 举报

回复 赞