怎么才能让从数据库调用出来的数据一列一列显示
来源:百度知道 编辑:UC知道 时间:2024/05/24 09:58:31
怎么才能让从数据库调用出来的数据一列一列显示??
请大侠说得越详细越好.
Option Explicit
Public appdisk As String
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public db As String
Private sSQL As String
Private Sub Form_Load()
Dim i As Integer
On Error GoTo Err
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Text2.Text & ""
conn.CursorLocation = adUseClient
conn.Open db
i = 0
Set Rs = conn.OpenSchema(adSchemaTables)
' "SELECT MSysObjects.Name FROM MSysObjects WHERE ((Left([name],4)<>'MSys') AND ((MSysObjects.Type)=1)) ORDER BY MSysObjects.Name"
If Rs.EOF = False Then
Do Until Rs.EOF
If Left(Rs!TABLE_NAME, 4) <> "MSys" Then
Combo2.AddItem Rs!TABLE_NAME, i
i = i + 1
End If
Rs.MoveNext