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

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP中实现从dbf数据库导出数据到sql表】，下面是详细的分享！

ASP中实现从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对象
  ' www.knowsky.com
  
  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("提交成功!")
  %>

以上所分享的是关于ASP中实现从dbf数据库导出数据到sql表，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：在SQL中建立的表如何导出为.dbf文件？如何在另外一...

　　答：不用导出的啊.你开始的建数据库的时候,你数据库是放在哪个位置咯????直接去那个地方复制剪切就可以了啊.....不过在复制之前,你要在你要复制的数据库上点右键→任务→分离/或脱机 成功后就可以把数据库复制走了....下次你要用的话,你在道软件中的数... >>详细

　　相关问题：求救 如何实现将dbf文件数据导入到SQLServer一个表中

　　答：首先建立dbf的odbc源，然后在程序中用jdbc-odbc来连接该odbc源；连接sqlserver有多种方式，可以用jdbc-odbc，也可以用商业的jdbc驱动；两个数据库都连接后，边读边写。 >>详细

　　相关问题：如题 怎么写程序将数据表DBF结构导出成SQL代码 以...

　　答：USE TABLE.DBF COPY STRUCTURE TO NEW.DBF &&复制一个新表结构 >>详细