該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

Private Sub Command1_Click()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

'打開指定的服務器

sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=food;Password=123456;Data Source=192.168.1.251\sql2005,1413"

'sql = "Provider=SQLOLEDB.1;Persist Secexcelnamety formname=False;User ID=" & UID & ";password=" & PWD & ";Data Source=" & DS

conn.Open sql

'獲取服務器下的所有數據庫

sql = "select Name from SysDatabases order by Name"

rs.Open sql, conn, 1, 1

If rs.RecordCount <> 0 Then

For k = 1 To rs.RecordCount

Combo1.AddItem Trim(rs.Fields("name").Value)

rs.MoveNext

Next

rs.Close

Else

rs.Close

End If

If conn.State = 1 Then

conn.Close

End If

Private Sub Combo1_Click()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

sql = "Provider=SQLOLEDB.1;Persist Secexcelnamety formname=False;User ID=food;password=123456;Data Source=192.168.1.251\sql2005,1413;Initial Catalog=" & Combo1.Text & ""

conn.Open sql

'加載數據庫下用戶表

sql = "select Name from SysObjects Where XType='U'and status>=0 order by Name"

rs.Open sql, conn, 1, 1

If rs.RecordCount <> 0 Then

For k = 1 To rs.RecordCount

Combo2.AddItem Trim(rs.Fields("name").Value)

rs.MoveNext

Next

rs.Close

Else

rs.Close

End If

End Sub

代碼就是這么多， 剛學VB時候做的、、、以前寫的比較簡單..

總結

以上是生活随笔為你收集整理的vb 读取mysql所有表名_vb怎么列举出一个mdb数据库里面所有表名？的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。