Вопрос : База данных сервера SQL скопируйте/экспорта для того чтобы достигнуть

Я имею режим вызван с щелчком кнопки в VB6. Я использую сервера 2005 MS SQL курьерского, и доступа MS 97-2003 баз данных. Режим уничтожает мой существующий DB доступа, воссоздает пустое одно, после этого закрепляет петлей через таблицы в DB сервера SQL, создавая их после этого заполняя их с данными по таблицы. Он работает совершенно, кроме того что он медленн на таблицах с большим количеством данных. То потому что для каждой таблицы SQL, оно раскрывает recordset, строит шнур «вставки», и добавляет рядок к доступу DB.

I комментировало вне Кодий, котор мне нужно быть замененным. Я хотел был бы это Кодий после того как я заменен с одним заявлением копирует показатели в одном идет. Я имею судимо каждое пермутирование заявлений как «ОТБОРНОЕ * В ОТ » (не работает потому что он пытается создать уже-существующий таблицу). Также судимая «ВСТАВКА В ОТБОРНОЕ * ОТ », и миллион другие вещей. Должно быть дорога, я как раз не могу найти ее, или возможно я имею но имел синтаксис errors.

This иду быть грубое одним. Я не хочу создать мои таблицы нисколько по-разному, я не хочу услышать о DTS или SSIS, котор хранят процедурах, или соединенных базах данных. На этап где Кодий прокомментировано вне, обе базы данных открыты, все имена таблицы известный и существуют в обоих DB, и все готово для копируя процедуры. Я как раз хочу славные чистые заявление SQL/вопрос скопируют показатели более быстро чем бегущ через recordsets. Единственное другой ответ, котор я мог принять режет вне прокомментированное Кодего, закрывает базы данных, и копирует таблицы по-разному. Но вспомните, вы потеряете имена таблицы которые дороге и будет нужно для того чтобы fetch они снова. Идеей этого режима будет скопировать любую базу данных SQL к DB доступа, без знать что-нибыдь о таблицах или их structure.

Sounds легких, но она управляла мной nuts. Может любое помочь? Под режим:

Function SQLtoAccess () как Boolean
затемняет sqlDB как новое jetDB ADODB.Connection
тусклое как новые rs ADODB.Connection
тусклые как новое ADODB.Recordset
тусклый rt как новое

ADODB.Recordset
ReDim Tables$ (0) на Delete ***
бэра Hell
местной ошибки
*** базы данных двигателя переход старом если Len, то (Dir$ (DBFileSpec$)) Then
CRFO (***
бэра If
конца file
убийства DBFileSpec$, «k», h%, 0) «создает самосхват ***
sqlDB.Open SQLFileSpec$

бэра *** сервера SQL нового ***
бэра
CreateAccessDB звонока
*** базы данных двигателя (DBFileSpec$) открытый все
*** таблиц SQL SQL$ = «ВЫБИРАЕТ * ОТ ЗАКАЗА INFORMATION_SCHEMA.Tables Table_Type, rs
Table_Name ". Раскройте SQL$, sqlDB, adOpenForwardOnly, adLockReadOnly
пока не *** rs.EOF
бэра за исключением заповедника Tables$
ReDim *** имени таблицы (UBound (Tables$) + 1)
Tables$ (UBound (Tables$)) = rs! Table_Name
      rs.MoveNext
   Wend
   rs.
Close
Screen.MousePointer = 11 «***
бэра hourglass
соединяется к
*** базы данных двигателя jetDB.Provider = «Microsoft.Jet.OLEDB.4.0 " цикл ***
бэра
jetDB.Open DBFileSpec$
через таблицы, делая и заполняя их
*** для i% = 1 к ***
бэра UBound (Tables$) получает
*** info таблицы mesa$ =
Tables$ (i%) SQL$ = «ВЫБИРАЕТ» «& mesa$ &»» ОТ rs
INFORMATION_SCHEMA.Tables ". Раскройте SQL$, sqlDB, adOpenForwardOnly, adLockReadOnly
если не *** rs.EOF Then
бэра получает ***, то info колонки
SQL$ = «ОТБОРНОЕ Column_Name, Data_Type, Character_Maximum_Length,
Is_Nullable «SQL$ = SQL$ & «ОТ INFORMATION_SCHEMA.Columns ГДЕ «
SQL$ = SQL$ & «Table_Name = «» & mesa$ & «» «
rt. Раскройте SQL$, sqlDB, adOpenForwardOnly, adLockReadOnly
tbl$ =» ("
пока не rt.EOF
выбирают случай rt!
*** байта ***
бэра «tinyint " случая
случая «сдержал "
*** ***
бэра Yes/No txt$ = «YESNO " Data_Type
txt$ =
*** интежера ***
бэра «smallint " случая
«БАЙТА " txt$ =
*** интежера ***
бэра «int " случая
«ИНТЕЖЕРА " длиннее txt$ = «ДЛИНОЙ "
*** валюты ***
бэра «деньг " случая «
smallmoney», txt$ = ***
бэра случая
«ВАЛЮТЫ "
*** «реального " одиночное txt$ = «ОПРЕДЕЛИТЕ "
*** двойника ***
бэра «поплавка " случая/> txt$ =
*** датаа/время ***
бэра «фиксации времени " случая «
«ДВОЙНИКА " datetime», «smalldatetime», txt$ =
*** «DATETIME " *** случая 9
бэра
бинарное txt$ = «БИНАРНОЕ "
*** текста ***
бэра «чарса " случая «
nvarchar», «varchar», «nchar», ds$ = CStr (rt!
Character_Maximum_Length) txt$ = «*** памятки или Hyperlink ***
бэра «памятки " случая
*** предмета ***
бэра «изображения " случая
NVARCHAR (» & ds$ & ") «
ОЛЕ txt$ = конец Select

«ПАМЯТКИ " если rt! Is_Nullable = «НЕ» Then
txt$ = txt$ &»
НЕ NULL " конец If
tbl$ = tbl$ & «[» & rt! Column_Name & «]» & ««& txt$ &», «
rt/> Wend
rt.MoveNext
Mid$ (tbl$, Len (tbl$), 1) = ") «. Rs Close
. *** Close
бэра создает проклятую вещь уже!
*** SQL$ = «СОЗДАЕТ ТАБЛИЦУ [» & mesa$ & «]» & tbl$
jetDB.Execute SQL$, находка *** adExecuteNoRecords
бэра полностью
*** главным образом ключей SQL$ = «ОТБОРНОЕ s.name КАК TABLE_SCHEMA, t.name КАК TABLE_NAME, k.name КАК CONSTRAINT_NAME, k.type_desc КАК CONSTRAINT_TYPE, «
SQL$ = SQL$ & «c.name КАК COLUMN_NAME, ic.key_ordinal КАК
ORDINAL_POSITION «SQL$ = SQL$ & «ОТ sys.key_constraints КАК
k «SQL$ = SQL$ & «СОЕДИНЯЮТ sys.tables КАК t НА
t.object_id = k.parent_object_id «SQL$ = SQL$ & «СОЕДИНИТЕ sys.schemas КАК s НА
s.schema_id = t.schema_id «SQL$ = SQL$ & «СОЕДИНИТЕ sys.index_columns КАК ic НА ic.object_id = t.object_id И
ic.index_id = k.unique_index_id «SQL$ = SQL$ & «СОЕДИНЯЕТ sys.columns КАК c НА
c.object_id = t.object_id И c.column_id = ic.column_id «SQL$ = SQL$ & «ЗАКАЗ TABLE_SCHEMA, TABLE_NAME, CONSTRAINT_TYPE, CONSTRAINT_NAME,
rt ORDINAL_POSITION ". Открытое SQL$, sqlDB, adOpenForwardOnly, *** adLockReadOnly
бэра установило
*** главным образом ключей таблицы txt$ =
"" пока не rt.EOF
если rt! Table_Name = mesa$ Then
если rt! Constraint_Type = «PRIMARY_KEY_CONSTRAINT» Then
ConName$ = rt! Constraint_Name
txt$ = txt$ &» [«& rt! Column_Name &»], «конец If
rt.MoveNext
Wend
rt If
конца
. Close
если (txt$)
/> Then
jetDB.Execute SQL$, заполнение *** If
бэра конца If
конца adExecuteNoRecords
'er вверх!
*** SQL$ = «ВЫБИРАЕТ * ОТ [» & mesa$ & «] «rs
. Раскройте SQL$, sqlDB, adOpenForwardOnly, adLockReadOnly
пока не rs.EOF
SQL$ = «ВСТАВКА В [» & mesa$ & «] ОЦЕНИВАЕТ ("
для f% = 0 к rs. Fields.Count - 1
txt$ = SQLStr$ (rs. Fields (f%)
.value) если txt$ =» «True»» Then
txt$ = «, то - 1 "
ElseIf txt$ =» «ложное»» Then
txt$ = «0 " концов If

SQL$ = SQL$ & txt$
если f% < rs. Fields.Count - 1 Then
SQL$ = SQL$ &», «конец If
следующее f%

SQL$ = SQL$ & ") «
jetDB.Execute SQL$, rs adExecuteNoRecords
rs.MoveNext
Wend
. Rs

sqlDB.Close
jetDB.Close
Close
следующие i%
установленные = Nothing
установленное rt = sqlDB Nothing
установленное = jetDB Nothing
установленные =
Nothing
Screen.MousePointer = 0 '
SQLtoAccess normal
=
True

Hell Function
выхода:
если rs. Положение = 1 rs Then
. Rs Close
установленные = конец If
Nothing
если rt. Положение = 1 Then
rt. Close
установленное rt = конец If
Nothing
если <> sqlDB.State adStateClosed sqlDB Then
ssiDB.Close
установленные = конец If
, то Nothing
если <> jetDB.State adStateClosed jetDB Then
jetDB.Close
установленные = конец If
i% Nothing
=
MsgBox («внутренне ошибки», vbCritical, «SQLtoAccess» & vbCrLf & vbCrLf & Err.desription) Screen.MousePointer = 0 'справок, то normal

End Function

For, пример SQLFileSpec$ является следующим:
Provider=SQLOLEDB.1; Обеспеченность Info=FALSE Persist; Потребитель - =MyUserName удостоверения личности; Password=MyserPassword; Первоначально Catalog=MyDatabase; Данный Source= (местное) \ SQLEXPRESS; Connect Timeout=5

And DBFileSpec$ является следующим:

TIA для любой помощи любое
C:\Database\MyAccess.mdb может lend. class=

Ответ : База данных сервера SQL скопируйте/экспорта для того чтобы достигнуть

Я понимаю что, по мере того как вы заявляли, using работы IP но не имя «DNS», или FDQN по мере того как я люблю вызвать его.
Разницей в процессе или «трассе» запроса authenticate будет вопрос по мере того как вы заявляли его.
Препятствуйте нам рассмотреть разницы: XP VM внесено в журнал дальше к домену, и поэтому имеет сертификат на готовом, и оно знает имя и пароль потребителя fully-qualified. Имя пользователя следовательно автоматических или «pass-through».

Как мы имитируем это на сервере?
Когда вы logon от сервера, using IE разъема, вы используете администратора (или admin-типа) для документов.
К IIS это смотрит как [email protected] ИЛИ NETBIOSNAME/username ИЛИ username.domain.extension ИЛИ username@NETBIOSNAME, ИЛИ CN=administrator, OU=etc, OU=etc, etc.
Это выходит много итерирования для того чтобы найти правильное имя пользователя для потребителя.
КАК БЫ: когда вы используете IP, IE не препровождает документы Windows. ОН ПРИКРЫВАЕТ ВНЕ ТЕ ПОЛЯ.
Самый правоподобный отказ что сервер прилагает домен к уже существующий имени домена; как это: username.domain.com.domain.com
Этот потребитель не существует, и не может login. Nevermind вы как раз напечатали на машинке в username или username.domain.com
В виду того что вы заявляете что XP и связанные серверы весь пункт к точно такой же DNS, тогда проблема должны лежать в одном из 3 мест:
1. IE
2. Установки домена в поверхности стыка NIC как-то по-разному чем блок XP. Посмотрите установки DNS и сравните XP VM с сервером. Посмотрите установки домена.
3. IIS -- это smogло быть вопрос с документами необходимо и формами также, как фактически директория.
Должно быть телезритель ошибки в случае когда имя пользователя терпит неудачу. Оно скажет вас который вопрос вы смотрите на, хотя бы в смысле, что они определят неправильные имя или пароль (вспомните, он не имеет значение что вы кладете его в право, оно имеет значение что они соглашаются с формой IIS хотят ее и что форма изменена когда вы находитесь на местной машине), или что-то как «требует SSH» или что-то.

Моя догадка является следующим: Серверы добавляют бирки или что-то домена когда вы login сразу от их. Если вы используете FQDN, то DNS обеспечивает IP, показатели etc. etc. SRV эта, котор информация автоматическ-добавляется к документам вы печатаете на машинке внутри. Эта точно проблема случается на non-связанном обмене если вы logon к серверу как местный admin, то (когда сервер обменом не будет DC). Имя местного admin последовано за именем машины (admin.termserver1) и после этого когда вы пытаетесь использовать OWA, ваше имя приходит вне как administrator.domain.extension@termserver1
Оно терпит неудачу. Используйте IP, и он принимает напечатанное на машинке в creds.