犀牛4.0 中文补丁:如何用VB列出MDB档当中所有table的名称

来源：百度文库编辑：神马品牌网时间：2024/07/15 05:26:54

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "driver={SQL Server};server=srv;" & _
"uid=sa;pwd=;database=pubs"
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

如何用VB列出MDB档当中所有table的名称如何用vb 编程出所有闰年急！如何用VB代码创建一个名为*.mdb的Access库！如何用VB制作如何用VB做记码器？如何用VB实现如何用VB输出图片？如何用VB建立数据库如何用 VB 读写文件？如何用vb调用excel？