Remarque : La structure de la base de données dbf doit être cohérente avec la table SQL
<%
Dim conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf
faible Conn_sql,StrCnn,i,str_dbf
faible nom_table_dbf, nom_table_sql
'nom de la base de données dbf
dbf_table_name="20005070"
'nom de la table SQL
sql_table_name="zjls"
str_dbf=""
'Créer un objet dbfConnection
Définir conn_dbf = Server.CreateObject("ADODB.Connection")
Driver_dbf = "Pilote={Pilote Microsoft Visual FoxPro};"
SourceType_dbf = "SourceType=DBF;"
'datadbf est le répertoire où se trouve la base de données dbf
DBPath_dbf = "SourceDB=" & Server.MapPath( "datadbf" )
' Appelez la méthode Open pour ouvrir la base de données
conn_dbf.Open Driver_dbf & SourceType_dbf & DBPath_dbf
Set rd_dbf= Server.CreateObject("ADODB.Recordset")
'Ouvrez le fichier DBF, le deuxième paramètre est l'objet Connection
rd_dbf.Open "select * from "&dbf_table_name, conn_dbf, 2, 2
'Créer un objet sqlConnection
Définir conn_sql = Server.CreateObject("ADODB.Connection")
'Le catalogue initial est le nom de la base de données SQL, la source de données est le nom local
StrCnn = "Provider=sqloledb ; ID utilisateur=sa; Mot de passe=; Catalogue initial=jz30data; Source de données=chaihua"
Conn_sql.OpenStrCnn
Définir CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset")
'Ouvrez le fichier DBF, le deuxième paramètre est l'objet Connection
' www.downcodes.com
rd_dbf.movefirst
Faire sans le faire rd_dbf.Eof
'Construire la chaîne de champ lue dans la base de données DBF
str_dbf=""
pour i=1 à 38
str_dbf=str_dbf&",'"&rd_dbf.fields(i)&"'"
suivant
str_dbf="'"&rd_dbf.fields(0)&"'"&str_dbf
'Insérer dans une table SQL
CreateDbfRecordset_sql.Open "insérer "&sql_table_name&" valeurs ("&str_dbf&")", conn_sql,2,2
rd_dbf.MoveNext
Boucle
conn_sql.close
conn_dbf.close
réponse.write("Soumission réussie !")
%>
Auteur : Chai Hua QQ : 57302017