SELECT
COL_NAME(OBJECT_ID('Employees'),
1)
Employees是表名(改你的表名),
数字1就是第1个列名要第2个就改2,以此类推
Private Sub Form_Load()
Dim RS As ADODBRecordset
Dim tSql As String
Dim I As Integer
List1Clear
Set RS = New ADODBRecordset
RSActiveConnection = "Driver={Microsoft Access Driver (mdb)};Dbq=数据库路径;Uid=Admin;Pwd=数据库密码"
tSql = "Select From 表名称"
RSOpen tSql, , adOpenStatic, adLockOptimistic
For I = 0 To RSFieldsCount - 1
List1AddItem RSFields(I)Name
Next I
Set RS = Nothing
End Sub
你把Excel的宏安全设置成中或者低,设置成低附件可以直接使用,但建议设置成中,这样打开下面附件,会提示是否启用宏,点击启用宏,这样附件中的宏就可以使用了,要生成工资条的时候,点击一下那个生成工资按钮,工资条就会自动生成,点击删除工资条按钮,工资就会清除
以上就是关于怎么取sql数据库数据表的表头字段全部的内容,包括:怎么取sql数据库数据表的表头字段、VB调用数据库如何显示表头、如何将EXCEL工资表数据库打印成带有表头的工资条等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)