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

Question

我本来是想查询两个表的,所以我没有指定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 SubPrivate Sub cmdClear_Click()
 Text1.Text = ""
 Combo1.Text = ""
 
End SubPrivate Sub Form_Load()
 Combo1.Clear
 Combo1.AddItem "永久", 0
 Combo1.AddItem "长期", 1
 Combo1.AddItem "短期", 2
End sub

Answer 1

strCon = " 外部来文.保管期限= '" & Combo1.Text & " ' "
  
  strSQL = "select 外部来文.文件类型,外部来文.来文级别,外部来文.保管期限,上级来文.来文级别,上级来文.上级来文级别,上级来文.上级来文类型 where 外部来文.来文级别=上级来文.来文级别"
                 
   strSQL = strSQL + " and " + strCon & "from 外部来文,上级来文"

Answer 2

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

Answer 3

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