我要得到所有的表名称,该怎么办 我在SQLSERVER里面建立名为“CAS”的数据库,我现在想有ADO得到所有的用户表名称,该怎么办,还有没有别的办法? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 select name from sysobjects where type='U' Private Sub Command1_Click() Dim intIndex As Integer Dim objCon As ADODB.Connection Dim objRst As ADODB.Recordset ' 產生一個新Connection物件,並設定objCon作為存取的物件變數。 Set objCon = New ADODB.Connection ' 使用Open方法連接,並設定相關參數。 objCon.Open gstrConn_NWind ' 找出資料表名稱。 Set objRst = objCon.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table")) ' 列舉名稱、型態、修改日期資料。 If objRst.RecordCount <> 0 Then intIndex = 1 Do Until objRst.EOF lvw1.ListItems.Add intIndex, , objRst.Fields("TABLE_NAME") lvw1.ListItems(intIndex).SubItems(1) = objRst.Fields("TABLE_TYPE") lvw1.ListItems(intIndex).SubItems(2) = Format(objRst.Fields("DATE_MODIFIED"), "yyyy/mm/dd") intIndex = intIndex + 1 objRst.MoveNext Loop End If objRst.Close objCon.Close Set objRst = Nothing Set objCon = NothingEnd Sub for each 的问题 请求帮忙!!!!!!!!!!!!!!!!!!! 一个发传真的问题 如何可以在网格中做到我单击那一个网格就激活那个网格事件 看看这个工资项目表怎么弄? 哪有银行本票,支票、汇票的图例下载啊 怎么没有人知道这个问题? 我在combobox的click事件中unload一个我运行时装载的一个控件,提示“不能在该上下文中卸载” ,为什么? 好何设计一个好的VB软件 有谁知道,为什么ACCESS为什么VB不认,成功了再加分 一般什么情况下会出现object required的错误? 在编辑为dll文件时候出错???
Dim intIndex As Integer
Dim objCon As ADODB.Connection
Dim objRst As ADODB.Recordset
' 產生一個新Connection物件,並設定objCon作為存取的物件變數。
Set objCon = New ADODB.Connection
' 使用Open方法連接,並設定相關參數。
objCon.Open gstrConn_NWind
' 找出資料表名稱。
Set objRst = objCon.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
' 列舉名稱、型態、修改日期資料。
If objRst.RecordCount <> 0 Then
intIndex = 1
Do Until objRst.EOF
lvw1.ListItems.Add intIndex, , objRst.Fields("TABLE_NAME")
lvw1.ListItems(intIndex).SubItems(1) = objRst.Fields("TABLE_TYPE")
lvw1.ListItems(intIndex).SubItems(2) = Format(objRst.Fields("DATE_MODIFIED"), "yyyy/mm/dd")
intIndex = intIndex + 1
objRst.MoveNext
Loop
End If
objRst.Close
objCon.Close
Set objRst = Nothing
Set objCon = Nothing
End Sub