Hinweis: Die DBF-Datenbankstruktur muss mit der SQL-Tabelle übereinstimmen
<%
Dimmen Sie conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf
dim Conn_sql,StrCnn,i,str_dbf
dbf_table_name,sql_table_name dimmen
'dbf-Datenbankname
dbf_table_name="20005070"
'SQL-Tabellenname
sql_table_name="zjls"
str_dbf=""
'Erstelle ein dbfConnection-Objekt
Setze conn_dbf = Server.CreateObject("ADODB.Connection")
Driver_dbf = "Driver={Microsoft Visual FoxPro-Treiber};"
SourceType_dbf = "SourceType=DBF;"
'datadbf ist das Verzeichnis, in dem sich die DBF-Datenbank befindet
DBPath_dbf = "SourceDB=" & Server.MapPath( "datadbf" )
' Rufen Sie die Open-Methode auf, um die Datenbank zu öffnen
conn_dbf.Open Driver_dbf & SourceType_dbf & DBPath_dbf
Set rd_dbf= Server.CreateObject("ADODB.Recordset")
'Öffnen Sie die DBF-Datei, der zweite Parameter ist das Connection-Objekt
rd_dbf.Open "select * from "&dbf_table_name, conn_dbf, 2, 2
'sqlConnection-Objekt erstellen
Setze conn_sql = Server.CreateObject("ADODB.Connection")
„Anfänglicher Katalog ist der Name der SQL-Datenbank, Datenquelle ist der lokale Name.“
StrCnn = „Provider=sqloledb; Benutzer-ID=sa; Passwort=; Erstkatalog=jz30data; Datenquelle=chaihua“
Conn_sql.OpenStrCnn
Setze CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset")
'Öffnen Sie die DBF-Datei, der zweite Parameter ist das Connection-Objekt
' www.downcodes.com
rd_dbf.movefirst
Tun Sie dies, solange nicht rd_dbf.Eof
'Konstruieren Sie die aus der DBF-Datenbank gelesene Feldzeichenfolge
str_dbf=""
für i=1 bis 38
str_dbf=str_dbf&",'"&rd_dbf.fields(i)&"'"
nächste
str_dbf="'"&rd_dbf.fields(0)&"'"&str_dbf
'In SQL-Tabelle einfügen
CreateDbfRecordset_sql.Open „insert „&sql_table_name&“ Values(“&str_dbf&“)“, conn_sql,2,2
rd_dbf.MoveNext
Schleife
conn_sql.close
conn_dbf.close
Response.write("Übermittlung erfolgreich!")
%>
Autor: Chai Hua QQ:57302017