Set dj = New ADODB.Recordset
dj.Open "select * from '" + Combo1.Text + "'", conn, adOpenStatic, adLockOptimistic我的想法是查询数据表的数据,数据表的名称是在COMBO框中获取的,可怎么也运行不了,总提示
''附近有语法错误.请问,怎么解决啊?

解决方案 »

  1.   

    dj.Open  "select * from " & Combo1.Text , conn, adOpenStatic, adLockOptimistic
      

  2.   

    dj.Open  "select * from " & Combo1.Text &"" , conn, adOpenStatic, adLockOptimistic是改成这样吗?
    好象还是错的啊!!
      

  3.   

    TO zq972(热)→(大·汗·天·子 AND   wully(吃木头长大)
       想两位这样改的话, 会提示from附近有语法错误!
      

  4.   

    dj.Open "select * from '" & Combo1.Text & "'", conn, adOpenStatic, adLockOptimistic
      

  5.   

    把你的错误帖出来。
    dj.Open "select * from " & Combo1.Text & "", conn, adOpenStatic, adLockOptimistic
    是应该这样用。
    如果你的表是特殊关键字用下面的方式。
    dj.Open "select * from [" & Combo1.Text & "]", conn, adOpenStatic, adLockOptimistic
      

  6.   

    combo1.text 的内容是什么?
    如果是系统关键值,如User之类的表名,就会出现from的错误
    将表名改为A1
    再用看看
    dj.Open "select * from " & Combo1.Text, conn, adOpenStatic, adLockOptimistic
      

  7.   

    dim sql as string 
    sql=你要做的sql查询然后放到数据库里面直接查询,看看有没有错误(2000有sql 分析器,access也有同样的)如果你的表格名字是关键字需要加[]
      

  8.   

    TO hanstins(无):
    Combo1.text中的内容是数据库中的表名,如:allart,article,artmemo……
    里面应该没有系统关键字吧
    TO clear_zero(清晰):
    我要的就是你的“你要做的sql查询”,特别是关于Combo1.text中数据的获取!
      

  9.   

    Set dj = New ADODB.Recordset
     自己定义错了
    set dj = new adodb.connection
      

  10.   

    顺便问一下
     我想自动个物品附编码,主要思想是读取数据库中编码最大的值然后+1
     可我用
    Dim rs As ADODB.Recordset
    Set rs = denglu.conn.Execute("select max(bianma2) from provider")
    Data = CInt(rs.Fields("bianma2")) + 1
    无法实现
     各位帮帮忙
      

  11.   

    唉,设个断点,把你生成sql语句放到查询里去试一下就知道哪里有错误了正常的表名按照我们提供的写法肯定没问题的或者再看看你的conn是怎么定义