Примечание. Структура базы данных dbf должна соответствовать таблице sql.
<%
Тусклый conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf
тусклый Conn_sql, StrCnn, я, str_dbf
dim имя_таблицы_dbf,имя_таблицы_sql
'имя базы данных dbf
dbf_table_name="20005070"
'имя таблицы sql
sql_table_name="zjls"
str_dbf=""
'Создаем объект dbfConnection
Установите conn_dbf = Server.CreateObject("ADODB.Connection")
Driver_dbf = "Driver={Драйвер Microsoft Visual FoxPro};"
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
Установите conn_sql = Server.CreateObject("ADODB.Connection")
«Начальный каталог — это имя базы данных SQL, источник данных — локальное имя».
StrCnn = "Provider=sqloledb; Идентификатор пользователя=sa; Пароль=; Начальный каталог=jz30data; Источник данных=chaihua"
Conn_sql.OpenStrCnn
Установите CreateDbfRecordset_sql= Server.CreateObject("ADODB.Recordset")
'Открываем файл DBF, второй параметр - объект Connection
' www.downcodes.com
rd_dbf.movefirst
Делай, пока не rd_dbf.Eof
'Создаем строку поля, считанную из базы данных DBF
стр_дбф=""
для я = от 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("Отправка успешна!")
%>
Автор: Чай Хуа QQ:57302017