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

johson1982 2004-09-22 10:25:36
我本来是想查询两个表的,所以我没有指定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
...全文
69 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ch_gufen 2004-09-22
这些问题都能自己解决.
在 strSQL = strSQL + " and " + strCon 处设置断点.
在debug窗口写
print strsql
看看打印的语句 是否合乎规范就可以了。
同时强烈建议不要用中文字段名
回复
johson1982 2004-09-22
我也是langtao1982,我昨天发帖子找你咋不回答我呢,我一直在线,我昨天那个shell的问题还没解决,因为我用你的代码出了点问题,我原来那个帖子和我现在以johson1982发在控件里的新帖子都说了我的问题,麻烦你再帮我看看那个问题,你挺历害的
回复
tztz520 2004-09-22
strCon = " 外部来文.保管期限= '" & Combo1.Text & " ' "

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

strSQL = strSQL + " and " + strCon & "from 外部来文,上级来文"
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-09-22 10:25
社区公告
暂无公告