注: 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 = "ドライバー={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 ファイルを開きます。2 番目のパラメータは Connection オブジェクトです
rd_dbf.Open "select * from "&dbf_table_name, conn_dbf, 2, 2
' sqlConnection オブジェクトを作成
set conn_sql = Server.CreateObject("ADODB.Connection")
'初期カタログは SQL データベース名、データ ソースはローカル名です
StrCnn = "プロバイダー=sqloledb; ユーザー ID=sa; パスワード=; 初期カタログ=jz30data; データ ソース=chaihua"
Conn_sql.OpenStrCnn
Set CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset")
'DBF ファイルを開きます。2 番目のパラメータは 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