| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 689 人关注过本帖
标题:高手请指点迷经啊
只看楼主 加入收藏
wenhao
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2007-12-22
收藏
 问题点数:0 回复次数:5 
高手请指点迷经啊
excel建表有什么规则吗
我对它不太熟
我的记录除了最后一条是字符的其余的都是数字
第一条导不进去,最后一条导入后显示空值
代码如下:
 dim aa
  aa=request.form("bbb")  '获取传递过来的值

  Dim   StrConnect,cc   
  Dim   objConn   
  Dim   rs   
  Dim   Sql   
  cc=0
  'Excel连接驱动
  aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&aa&";Extended Properties=Excel 8.0"
   

   set StrConnect=CreateObject("ADODB.Connection")
StrConnect.Open aaa
  
   
  '注意   表名一定要以下边这种格试   "[表名$]"   书写   
  Set   rs = Server.CreateObject("ADODB.Recordset")     
  Sql="select   *   from   [Sheet1$]   "   
  rs.Open   Sql,StrConnect,2,2     
  IF     rs.Eof   And     Rs.Bof   Then   
  response.Write("<script>alert   ('没有资料可以导入!');history.go(-1)</script>")   
   
   
  else   

 set   rssql=server.CreateObject("adodb.recordset")
  rssql.Open   "select   *   from   School",conn,1,3   
Do   While   Not   rs.EOF
  '列出表内信息  
    response.write"excel数据为: <br>"
    response.write ""&rs(0)&"-"&rs(1)&"-"&rs(2)&""
response.write"<br>"
  
  '插入SQL2000里   
  
  rssql.AddNew   
  if   rs(0)<>""   then   
  rssql(1)=rs(0)   
  end   if   
  if   rs(1)<>""   then   
  rssql(2)=rs(1)   
  end   if   
  if   rs(2)<>""   then   
  rssql(3)=rs(2)   
  end   if   
  cc=cc+1  
  Rs.MoveNext   
Loop
rssql.Update  
  end   if   
  response.Write   "<script   language=javascript>alert('资料导入成功!\n共有"&cc&"条数据导入');history.go(-1)</script>"
搜索更多相关主题的帖子: Microsoft Dim StrConnect 
2007-12-23 11:21
hmhz
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:30
帖 子:1890
专家分:503
注 册:2006-12-17
收藏
得分:0 
如果是将excel导入sql 2000 数据库里可以使用sql 2000 导入,先在数据源管理器里添加excel文件路径,然后在使用sql 2000 导入工具导入,导入的时候选择对应字段类型
2007-12-23 13:12
wenhao
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2007-12-22
收藏
得分:0 
这是手动的吧
我想用的是
在asp程序中导入,这个我实现了,
但第一条记录怎么也导不进去啊,
是这个问题
版主hmhz帮我解决一下,谢谢!!!,
2007-12-23 15:29
hmhz
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:30
帖 子:1890
专家分:503
注 册:2006-12-17
收藏
得分:0 
rs.Open   Sql,StrConnect,2,2  改成 rs.Open   Sql,StrConnect,1,1 看看
2007-12-24 12:39
wenhao
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2007-12-22
收藏
得分:0 
还是不行啊
还是不行啊
2007-12-24 16:25
wenhao
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2007-12-22
收藏
得分:0 
不是这的毛病啊
不是这的毛病啊
2007-12-24 16:26
快速回复:高手请指点迷经啊
数据加载中...
 
   



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

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