控件中国网现已改版,您看到的是老版本网站的镜像,系统正在为您跳转到新网站首页,请稍候.......
中国最专业的商业控件资讯网产品咨询电话:023-67870900 023-67871946
产品咨询EMAIL:SALES@COMPONENTCN.COM

ASP中实现从dbf数据库导出数据到sql表

作者:未知 出处:不详 2010年02月01日 阅读:

说明:dbf数据库结构要与sql表一致

以下为引用的内容:

  <%
  Dim conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf
  dim Conn_sql ,StrCnn,i,str_dbf
  dim dbf_table_name,sql_table_name
  'dbf数据库名称
  dbf_table_name="20005070"
  'sql表名称
  sql_table_name="zjls"
  
  str_dbf=""
  ' 建立dbfConnection 对象
  Set conn_dbf = Server.CreateObject("ADODB.Connection")
  Driver_dbf = "Driver={Microsoft Visual FoxPro Driver};"
  SourceType_dbf = "SourceType=DBF;"
  'datadbf为dbf数据库所在目录
  DBPath_dbf = "SourceDB=" & Server.MapPath( "datadbf" )
  
  ' 调用Open 方法打开数据库
  conn_dbf.Open Driver_dbf & SourceType_dbf & DBPath_dbf
  
  Set rd_dbf= Server.CreateObject("ADODB.Recordset")
  ' 打开DBF文件,参数二为Connection对象
  rd_dbf.Open "select * from "&dbf_table_name, conn_dbf, 2, 2
  
  '建立sqlConnection 对象
  Set conn_sql = Server.CreateObject("ADODB.Connection")
  'Initial Catalog为sql数据库名,Data Source为本机名
  StrCnn = "Provider=sqloledb; User ID=sa; Password=; Initial Catalog=jz30data; Data Source=chaihua"
  Conn_sql.Open StrCnn
  Set CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset")
  ' 打开DBF文件,参数二为Connection对象 
   
  rd_dbf.movefirst
  Do While Not rd_dbf.Eof
  '构造从DBF数据库读出的字段字符串
  str_dbf=""
   for i=1 to 38
   str_dbf=str_dbf&",'"&rd_dbf.fields(i)&"'"
   next
   str_dbf="'"&rd_dbf.fields(0)&"'"&str_dbf
  '插入sql表
  CreateDbfRecordset_sql.Open "insert "&sql_table_name&" values("&str_dbf&")", conn_sql,2,2
  rd_dbf.MoveNext
  Loop
  
  conn_sql.close
  conn_dbf.close
  response.write("提交成功!")
  %>

                                                           
                                                            【注:本文由控件中国网转载】

热推产品

  • ActiveReport... 强大的.NET报表设计、浏览、打印、转换控件,可以同时用于WindowsForms谀坔攀戀Forms平台下......
  • AnyChart AnyChart使你可以创建出绚丽的交互式的Flash和HTML5的图表和仪表控件。可以用于仪表盘的创......
首页 | 新闻中心 | 产品中心 | 技术文档 | 友情连接 | 关于磐岩 | 技术支持中心 | 联系我们 | 帮助中心 Copyright-2006 ComponentCN.com all rights reserved.重庆磐岩科技有限公司(控件中国网) 版权所有 电话:023 - 67870900 传真:023 - 67870270 产品咨询:sales@componentcn.com 渝ICP备12000264号 法律顾问:元炳律师事务所 重庆市江北区塔坪36号维丰创意绿苑A座28-5 邮编:400020
在线客服
在线客服系统
在线客服
在线客服系统