以前VB5的時候用DAO可以在DATABASE的TableDef物件來操作資料表
那麼現在VB6使用ADO該怎麼操作資料表呢?
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(2) 人氣()


留言列表 (2)

發表留言
  • wave
  • MS的範例:
    OpenSchema 方法範例
    此範例使用 OpenSchema 方法,顯示於 Pubs 資料庫中每個資料表的名稱與類型。
    Public Sub OpenSchemaX()
    Dim cnn1 As ADODB.Connection
      Dim rstSchema As ADODB.Recordset
      Dim strCnn As String
        
      Set cnn1 = New ADODB.Connection
        strCnn = "Provider=sqloledb;" & _
        "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
      cnn1.Open strCnn
        
      Set rstSchema = cnn1.OpenSchema(adSchemaTables)
      
      Do Until rstSchema.EOF
        Debug.Print "Table name: " & _
          rstSchema!TABLE_NAME & vbCr & _
          "Table type: " & rstSchema!TABLE_TYPE & vbCr
        rstSchema.MoveNext
      Loop
      rstSchema.Close
      
      cnn1.Close
      
    End Sub
    此範例指定 OpenSchema 方法中 Criteria 引數的 TABLE_TYPE 查詢約束條件。只會傳回於 Pubs 資料庫中指定所 Views 的結構敘述資訊當作結果。然後範例會顯示每一資料表的名稱與類型。
    Public Sub OpenSchemaX2()
    Dim cnn2 As ADODB.Connection
      Dim rstSchema As ADODB.Recordset
      Dim strCnn As String
        
      Set cnn2 = New ADODB.Connection
        strCnn = "Provider=sqloledb;" & _
        "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
      cnn2.Open strCnn
        
      Set rstSchema = cnn2.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "VIEW"))

    Do Until rstSchema.EOF
          Debug.Print "Table name: " & _
            rstSchema!TABLE_NAME & vbCr & _
            "Table type: " & rstSchema!TABLE_TYPE & vbCr
          rstSchema.MoveNext
        Loop
      rstSchema.Close
      
      cnn2.Close
      
    End Sub
  • 小葉
  • 謝謝!!!!!!
    我會試試看的
    希望能弄得懂
    如果還是不懂的話
    就只有再多指教了喔!!!!!!!