如何以ADO方式打开表单时获得表单所有的字段数目
编号：QA001282
建立日期: 1999年7月3日 最后修改日期：1999年7月3日
所属类别：
张弦:
vb6
win98
如何在使用代码方发，以ADO方式打开一个数据库的表单时获得表单所有的字段数目？麻烦您了，多谢。
回答:
确定字段的数目用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"
此问题由JiaQiang Xu回答。
| |
|
|
| |
|
|
