比如:有个数据库data.mdb
内有四张表格:Z10名称,Z20数量,Z30供应商,Z40其他
能否只用前三个字即:Z10,Z20,Z30,Z40来确定是Z10名称,Z20数量,Z30供应商,Z40其他
即有点类似字段的模糊查询来确定表格名称再问一个,怎么判断一个数据库内是否存在一个指定的表格

解决方案 »

  1.   

    select * From Z10名称 Z10,Z20数量 Z20,Z30供应商 Z30,Z40其他 Z40
      

  2.   

    select z10.* From Z10名称 Z10 where z10.a>20........
    把“Z10”作为“Z10名称 ”的别名。可以在其他地方引用别名。
      

  3.   

    怎么判断一个数据库内是否存在一个指定的表格
    -------------------------------------------------
    '工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)
    Private Sub Form_Load()
    Dim adoCN   As New ADODB.Connection                '定义数据库的连接
    Dim strCnn   As String
    Dim rstSchema As New ADODB.Recordset
    Dim I As Integer
       strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"
       adoCN.Open strCnn
             
       Set rstSchema = adoCN.OpenSchema(adSchemaTables)
         
       Do Until rstSchema.EOF
            If rstSchema!TABLE_TYPE = "TABLE" Then
               
                 If  rstSchema!TABLE_NAME = "指定的表名称" Then
                     MsgBox "存在指定的表!"
                     Exit Do 
                 End If  
            End If
            rstSchema.MoveNext
       Loop
       rstSchema.Close     
       adoCN.CloseEnd Sub
      

  4.   

    谢谢 faysky2 ,你总是这么热情!再请教一个问题
    怎么在一个表格内确定某个指定的字段名存在,若存在则删除!
    现在我可以删除,但不能判断是否存在,只能通过错误判断
    感谢!
      

  5.   

    怎么在一个表格内确定某个指定的字段名存在
    ---------------------------------------------
    '工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)
    Private Sub Form_Load()
    Dim adoCN   As New ADODB.Connection                '定义数据库的连接
    Dim strCnn   As String
    Dim rst As New ADODB.Recordset
    Dim i As Integer
       strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"
       adoCN.Open strCnn
             
       rst.Open "查找的表", adoCN, adOpenDynamic, adLockOptimistic, adCmdTable
       For i=0 To rst.Fields.Count-1
          If rst.Fields(i).Name="指定的字段" Then 
              MsgBox "指定的字段存在!"
              Exit For
          End If
       Next
       rstSchema.Close     
       adoCN.CloseEnd Sub