참고: dbf 데이터베이스 구조는 sql 테이블과 일치해야 합니다.
<%
희미한 conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf
희미한 Conn_sql,StrCnn,i,str_dbf
희미한 dbf_table_name,sql_table_name
'dbf 데이터베이스 이름
dbf_table_name="20005070"
'SQL 테이블 이름
sql_table_name="zjls"
str_dbf=""
'dbfConnection 객체 생성
conn_dbf = Server.CreateObject("ADODB.Connection") 설정
Driver_dbf = "드라이버={Microsoft Visual FoxPro 드라이버};"
SourceType_dbf = "소스 유형=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 객체 생성
conn_sql = Server.CreateObject("ADODB.Connection") 설정
'초기 카탈로그는 SQL 데이터베이스 이름이고, 데이터 소스는 로컬 이름입니다.
StrCnn = "공급자=sqloledb; 사용자 ID=sa; 비밀번호=; 초기 카탈로그=jz30data; 데이터 소스=chaihua"
Conn_sql.OpenStrCnn
CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset") 설정
'DBF 파일을 엽니다. 두 번째 매개변수는 Connection 객체입니다.
' www.downcodes.com
rd_dbf.movefirst
rd_dbf.Eof가 아닌 동안 수행
'DBF 데이터베이스에서 읽은 필드 문자열을 구성합니다.
str_dbf=""
i=1 ~ 38의 경우
str_dbf=str_dbf&",'"&rd_dbf.fields(i)&"'"
다음
str_dbf="'"&rd_dbf.fields(0)&"'"&str_dbf
'SQL 테이블에 삽입
CreateDbfRecordset_sql.Open ""&sql_table_name&" 값 삽입("&str_dbf&")", conn_sql,2,2
rd_dbf.MoveNext
루프
conn_sql.close
conn_dbf.close
response.write("제출 성공!")
%>
작성자: Chai Hua QQ:57302017