select的问题(高手你会吗??)

Question

一般select语句是select col_list from table1,table2.
但如果这些表都以b开头并随着软件的运行(手动新建\删除)表的数目会发生变化那么这时怎么使用select语句来select这些表啊

Answer 1

把表名字放到变量里，然后：
dim sqlstr as string
sqlstr="select col_list from " & 存放表名的变量

Answer 2

我是用数据环境连接数据库的,用datagrid显示数据的应该怎么写代码啊,教教我拉!!谢谢!!

Answer 3

把表名字放到变量里，然后：
dim sqlstr as string
sqlstr="select col_list from " & 存放表名的变量把表名称做成变量,随便他怎么变都没问题

Answer 4

Dim strSQL As String 'SQL语句变量
Dim strTableName As String '表名变量
strSQL="select col_list from " & strTableName
明白否？

Answer 5

那得到strqal后应该怎样把strqal和datagrid连接啊!

Answer 6

全部代码Private Sub Form_Load()
    '数据库连接字符串                ACCESS表和SQL表结构要一样，程序可以不需要修改
    '在ACCESS中字段类型为OLE ，在SQL 数据库中为IMAGE类型
   'iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\image.mdb;Persist Security Info=False"
'下面的语句是连接sqlserver数据库的.
    iConcstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=text1;Data Source=ZXY"
   Set iConc = New ADODB.Connection
   iConc.Open iConcstr
End Sub
Sub s_SaveFile()
    Dim iRe As ADODB.Recordset
    Set iRe = New ADODB.Recordset
    With iRe
        .Open "select * from [image] where 1=0", iConc, 1, 3
        .AddNew '新增一条记录
        .Fields("ID") = MaxID
        .Fields("FileName") = CommonDialog1.FileTitle
        .Fields("FileDress") = CommonDialog1.FileName
        .Update
    End With
   '完成后关闭对象
  
   MsgBox "添加成功！", vbInformation
   set datagride.datasource=ire
     iRe.Close
End Sub