用ODBC方式连EXCEL,怎样知道此EXCEL中有那些表与表中的字段?Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic
sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.open "SELECT * FROM [" + List.List(List.ListIndex) + "$]", sconn
Set Read_Excel = rs
Set rs = Nothing在此之前,我要让用用户来选择打开的表和要查看的字段,怎么实现啊?
Set rs = New ADODB.Recordset
Dim sconn As String rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic
sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.open "SELECT * FROM [" + List.List(List.ListIndex) + "$]", sconn
Set Read_Excel = rs
Set rs = Nothing在此之前,我要让用用户来选择打开的表和要查看的字段,怎么实现啊?
解决方案 »
- 翻译文件应该保存成什么编码类型
- 用普通的电脑摄像头作一个监控软件的问题
- 招聘 VB6+SQL Server数据库开发作者
- 想看美人请进入“http://www.kan120.com/?yongliux_y”
- vb中怎么绘制曲线图
- 请问有关电脑 it新闻的“著名”!英文网站有哪些?
- 真是痛苦啊,VB太让我受不了了,快来帮帮我啊!
- 我用var obj=new ActiveXObject("alert.UserControl1");创建了一个对象,可是怎么显示不出来呢?这个对象是个mediaplayer的播放器
- 請教,使用MSMQ的時候,怎麼使用它的事件,讓它在有消息的時候自動調用相關程序?(MSMQ)
- VB数组长度能修改吗?数组内容不变。
- 问个白痴问题!
- toolbar上的图标为何汇兑是好多颜色?
lstTable1.Clear
lblStatus1.Caption = "数据源连接成功,正在检索数据表..."
DoEvents
Do Until rs.EOF
If Trim(rs!TABLE_TYPE) = "TABLE" Then lstTable1.AddItem Trim(rs!TABLE_NAME)
rs.MoveNext
Loop
for i=0 to rs.fields.count-1
print rs.fileds.name
next