tname=" qj"
select * from" & tname & "where dm='" & Trim(Str(i)) & "'"
'tname是表名

解决方案 »

  1.   

    但是总提示from 子句有错誤
      

  2.   

    Option ExplicitPrivate Sub Form_Load()
    Dim strSQL As String
    Dim str(9) As String
    Dim tname As String
    str(1) = "1"
    tname = " qj"
    strSQL = "select * from" & tname & " where dm='" & Trim(str(1)) & "'"End Sub
    ----------
    www.vicmiao.com
    努力就有美好时光!
      

  3.   

    '多加几个空格试试
    select * from " & tname & " where dm='" & Trim(Str(i)) & "'