首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB execl导入ACCESS(生手)

2012-12-30 
VB execl导入ACCESS(新手)Dim adocn As ADODB.ConnectionDim Cnstr As StringCnstr ProviderMicrosoft

VB execl导入ACCESS(新手)
    Dim adocn As ADODB.Connection
    Dim Cnstr As String
    Cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\qq\1231.mdb"
    Set adocn = New ADODB.Connection
    adocn.ConnectionString = Cnstr
    adocn.Open
        adocn.Execute " insert into [excel 8.0;database=c:\qq\1123.xls].[sheet1] select * from aaa"
    Set adocn = Nothing
c:\qq\1123.xls].[sheet1导入1231.mdb  aaa错在哪里?
[解决办法]
try

adocn.Execute " insert into [sheet1$] in 'c:\qq\1123.xls' 'excel 8.0;' select * from aaa"

[解决办法]
http://blog.csdn.net/asftrhgjhkjlkttttttt/article/details/4914132

热点排行