如何以ado方式打开表单时获得表单所有的字段数目.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 23 行

确 定 字 段 的 数 目 用 ADO Ext Object Module或 SQL-DMO(SQL Server)。 
    用 SQLOLE或 SQL-DMO： 
     Dim MyServer As SQLOLE.SQLServer 
     Dim MyDatabase As SQLOLE.Database 
     Dim MyTable As SQLOLE.Table 
     
     Set MyServer = New SQLOLE.SQLServer 
     MyServer.Connect "server1", "sa", "" 
     Set MyDatabase = MyServer.Databases("database1") 
     Set MyTable = MyDatabase.Tables("table1") 
     MsgBox "There are " & MyTable.Columns.Count & " fields in Table1" 
     
    用 ADO Ext: 
     Dim cnn As New Connection 
     Dim cat As New Catalog 
     Dim MyTable As Table 
     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
     "Data Source= c:\Program Files\Microsoft Office\" & _ 
     "Office\Samples\Northwind.mdb;" 
     Set cat.ActiveConnection = cnn 
     Set MyTable = cat.Tables("table1") 
     MsgBox "Thare are " & MyTable.Columns.Count & "fields in Table1" 
<END>