永发信息网

.net从excel导入SQL数据库的问题

答案:1  悬赏:20  手机版
解决时间 2021-05-10 10:28
数据库的表有自动编号,那么excel里要怎么处理呢。急求。
最佳答案
dim conndim conn2set conn=CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb"set conn2=CreateObject("ADODB.Connection")conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls"sql = "SELECt * FROM [Sheet1$]" set rs = conn2.execute(sql)while not rs.eof sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')" conn.execute(sql) rs.movenextwendconn.closeset conn = nothingconn2.closeset conn2 = nothingfunction fixsql(str) dim newstr newstr = str if isnull(newstr) then  newstr = "" else  newstr = replace(newstr,"'","''") end if fixsql = newstrend function 我想你应该能看明白吧,你主要看其中的方法就行了,就是象access 数据库一样,把excel文件打开,再进行读再写到access中你要写到sqlserver中就把写的过程改一下就成了.祝你好运
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
布加迪朗朗是哪个国家,布加迪威龙是哪个国家
非本省的外地人在学车,考驾照要怎么考?
2010年南京机电职业技术学院在安徽录取最低分
为什么两个人的心总是没有交点!
历史三吴地区是在什么地方
有什么新药可以治银屑病啊?
艾青的北方名句,北方大地分集介绍
杭州西湖之声的频道的多少
诺基亚N95 8G版的帮看看是水货还是行的
这世界真的有真爱吗?
怎么泡妹最牛
请问,化眼妆需要的东西都是什么?要全部告诉
魔兽世界下载安装
怀孕初期,中期,后期的症状
夫妻之间没性趣怎么办?
推荐资讯
专卖店店员合同
民国钱币二百文可有收藏价值?市场价多钱?
哪个朝代有紫铜元宝 紫铜元宝现在价值有多少
执着的爱有错吗
梦幻诛仙 野生宝宝能抽取技能吗
特价活动说明怎么写,但是的日文怎么说,要日
邀请我开通QQ游戏人生
怎么能做到包容所有
小学老师教育格言,小学六年级数学老师的格言
qq会员的漫游消息怎么都看不到了呢?
流蛋白清白带无味是否正常
送永久A车会送狂风么?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?