Импортируйте данные из Excel в Access при условии, что таблица в Access создана.
тусклый конн
тусклый конн2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Пароль базы данных=;Источник данных=c:book1.mdb"
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Пароль базы данных=;Расширенные свойства=Excel 5.0;Источник данных=c:book1.xls"
sql = "ВЫБРАТЬ * ИЗ [Лист1$]"
установите rs = conn2.execute(sql)
пока не rs.eof
sql = "вставить в значения xxx([a],[b],[c],[d])('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) & "','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(sql)
rs.movenext
вступить
в контакт.закрыть
установить соединение = ничего
conn2.закрыть
set conn2 = ничего,
функция fixsql(str)
тусклый новостной стрим
ньюстр = стр
если isnull(newstr) тогда
новостистр = ""
еще
newstr = replace(newstr,"'","''")
конец, если
fixsql = ньюстр
конечная функция
импортируется в базу данных сервера Sql, если файл Excel и база данных не находятся на одном сервере, обратитесь к приведенному выше коду. На том же компьютере вы можете обратиться к следующему коду (нет необходимости сначала создавать таблицу, программа автоматически создаст таблицу, используя первую строку данных в Excel в качестве имени поля таблицы):
dim conn
set conn=CreateObject("ADODB.Connection")
conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "ВЫБРАТЬ * в новую таблицу ИЗ OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source=""c:book1.xls"";Идентификатор пользователя=Администратор;Пароль=;Расширенные свойства=Excel 5.0') ...[Лист1$] "
conn.execute(sql)
conn.close
set conn = ничего не
выбрано из блога sxycgxj