| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 把Excel文件导入窗口1_Table1 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191724) |
| -- 作者：良才 -- 发布时间：2024/5/6 9:52:00 -- 把Excel文件导入窗口1_Table1 请老师指教，谢谢 Dim dlg As NewOpenFileDialog dlg.Filter = "Excel文件|*.xls;*.xlsx" If dlg.ShowDialog = DialogResult.OK Then If Connections.Contains("test") Then If DataTables.Contains("窗口1_Table1") Then DataTables.Unload("窗口1_Table1") Connections.Delete("test") End If Connections.Add("test", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dlg.FileName & ";Extended Properties=\'Excel 8.0;HDR=yes\'") Dim q As New QueryBuilder q.TableName = "窗口1_Table1" q.SelectString = "Select * f rom [" & e.Sender.Text & "]" q.Build End IF [此贴子已经被作者于2024/5/6 9:57:04编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2024/5/6 10:00:00 -- 首先，不能卸载窗口表 |