有一关于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
...全文
93 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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 外部来文,上级来文"

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧