VB调用数据库如何显示表头
来源:百度知道 编辑:UC知道 时间:2024/08/23 16:14:38
我用Vb编写一个调用Access数据库的程序,希望在窗体load的时候能在ListTable中显示数据库这个表的表头(即字段名),请问如何实现?
给我一段语句就OK了
给我一段语句就OK了
Private Sub Form_Load()
Dim RS As ADODB.Recordset
Dim tSql As String
Dim I As Integer
List1.Clear
Set RS = New ADODB.Recordset
RS.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};Dbq=数据库路径;Uid=Admin;Pwd=数据库密码"
tSql = "Select * From 表名称"
RS.Open tSql, , adOpenStatic, adLockOptimistic
For I = 0 To RS.Fields.Count - 1
List1.AddItem RS.Fields(I).Name
Next I
Set RS = Nothing
End Sub
Rs.Fields(2).name