vb将excel 里两列的内容导入到数据库里

sduupc 2008-12-22 08:46:48

access数据库吧，如何实现啊！数据库的表格已经建好！

...全文

49 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

jhone99 2008-12-22

打赏
举报

[Quote=引用 4 楼 fangmanhua8888 的回复:]
這樣可能不行吧，沒有打開ACCESS數據庫啊
引用 1 楼 jhone99 的回复:
VB codeDimcnAsADODB.ConnectionSetcn=NewADODB.Connection
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&App.Path&"\f1.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""cn.Execute"Insert Into [;database="&App.Path&"\f2.mdb].[user](姓名,年龄,部门,电话) Select 姓名,年龄,部门,电话 From [Sheet1$]"cn.CloseSetcn=Nothing
[/Quote]

呵呵，测试一下

fangmanhua8888 2008-12-22

打赏
举报

這樣可能不行吧，沒有打開ACCESS數據庫啊
[Quote=引用 1 楼 jhone99 的回复:]
VB codeDimcnAsADODB.ConnectionSetcn=NewADODB.Connection
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&App.Path&"\f1.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""cn.Execute"Insert Into [;database="&App.Path&"\f2.mdb].[user](姓名,年龄,部门,电话) Select 姓名,年龄,部门,电话 From [Sheet1$]"cn.CloseSetcn=Nothing
[/Quote]

tjgbl 2008-12-22

打赏
举报

友情up

qqlpp 2008-12-22

打赏
举报

友情up

jhone99 2008-12-22

打赏
举报

Dim cn As ADODB.Connection 



Set cn = New ADODB.Connection 

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\f1.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""" 



cn.Execute "Insert Into [;database=" & App.Path & "\f2.mdb].[user](姓名,年龄,部门,电话) Select 姓名,年龄,部门,电话 From [Sheet1$]"  



cn.Close 

Set cn = Nothing