| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 672 人关注过本帖
标题:关于excel导入数据库的问题
只看楼主 加入收藏
zhangjianghan
Rank: 1
等 级:新手上路
帖 子:43
专家分:0
注 册:2008-4-17
结帖率:100%
收藏
 问题点数:0 回复次数:2 
关于excel导入数据库的问题
问题是Excel导入数据库的时候,不管数据库的字段是用什么类型,是纯数字的时候就不能写进,前面数字带有字母或字符的时候都可以写进,我要求的是不管是数字还是字符或字母都可以写进,大家帮忙看看!
这是导入数据库的代码:
<%
Dim cn,aa,oConn,connstr
'打开XLS.
aa=request.form("bbb")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.Jet.OLEDB.4.0 "
cn.ConnectionString = "Data Source="&aa&";" & _
"Extended Properties=Excel 8.0;"
cn.Open
'打开MDB.
connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set oConn=server.CreateObject("ADODB.CONNECTION")
oConn.open connstr

'读取数据.
set rsRead=server.CreateObject("ADODB.Recordset")
rsRead.Open "select * from [Sheet1$]",cn,1,3
do until rsRead.EOF
'写入数据库.
oConn.Execute("Insert into users(userid,password,sex)Values('"& rsRead.Fields("userid")&"','" &rsRead.Fields("password") & "','"& rsRead.Fields("sex")&"')" )
rsRead.MoveNext
loop
%>
搜索更多相关主题的帖子: 数据库 excel 
2008-05-16 17:59
tianyu123
Rank: 1
等 级:新手上路
威 望:2
帖 子:576
专家分:0
注 册:2007-8-26
收藏
得分:0 
在写入数据时,先转换一下数据类型(把字段数据类型都设置为文本型)
oConn.Execute("Insert into users(userid,password,sex)Values('"& cstr(rsRead.Fields("userid"))&"','" &cstr(rsRead.Fields("password")) & "','"& cstr(rsRead.Fields("sex")&"'))" )

改变一切,须从改变观念开始!
2008-05-16 18:09
zhangjianghan
Rank: 1
等 级:新手上路
帖 子:43
专家分:0
注 册:2008-4-17
收藏
得分:0 
tianyu123你好  ,先按照你说的把字段数据类型都改为文本型,然后按照你的代码改,但还是不行,这样的如:小明123,222小明,ggg123, 234hhh, ggg ,小明,都能写进数据库,但纯数字如 242323 还是没法写进数据库,再帮忙看看。
2008-05-17 10:03
快速回复:关于excel导入数据库的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016324 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved