powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / SQL/ACCESS
10 сообщений из 10, страница 1 из 1
SQL/ACCESS
    #32004672
Фотография Lena
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Schto nuschno uchitiwat pri Datatransfer na Server?
...
Рейтинг: 0 / 0
SQL/ACCESS
    #32004682
Bes!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
При импорте таблиц с ACCESS в SQL7 я уделял внимание тому как конвертятся типы полей, а также тригерам (целосности данных).
...
Рейтинг: 0 / 0
SQL/ACCESS
    #32004683
Фотография Lena
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
U menja index opredelennih dannih (ACCESS) otlichaetsja ot indexa kotoriji daetsja SQL.
Schto delat?
...
Рейтинг: 0 / 0
SQL/ACCESS
    #32004686
Genady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Чем отличается? Построен на других полях? И что значит индекс, который дается SQL?
Опишите подробнее проблему, иначе Вас довольно тяжело понять
...
Рейтинг: 0 / 0
SQL/ACCESS
    #32004712
Фотография Lena
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Index na SQL => Pri sozdanie tabliz. Pole gde
otmechaetsja identety.Automaticheski priswaewujuschijisja nommer.
...
Рейтинг: 0 / 0
SQL/ACCESS
    #32004724
Genady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Т. е. Вы хотите залить данные, у которых уже есть значение для этого поля?
Тогда Вам поможет set identity_insert [Имя таблицы] on
А после заливки set identity_insert [Имя таблицы] off
...
Рейтинг: 0 / 0
SQL/ACCESS
    #32004732
Фотография Lena
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
W etoji chasti programmi pokaziwaet oschibku.
Pochemu? Neznaju.

' If Identity, then "SET Identity_Insert ON"
If IfIdentity Then
Set qb = db.CreateQueryDef("")
With qb
.Connect = ConStr
.SQL = "set Identity_Insert " & TableName & " on"
.ReturnsRecords = False
.Execute
End With
qb.Close
Set qb = Nothing
End If
Set qb = db.CreateQueryDef("")
With qb
.SQL = "INSERT INTO xxx SELECT " & TableName & ".* FROM " & TableName & " WHERE ((" & sf0 & ">=" & iu & ") And (" & sf0 & "<" & iu + 200 & "))"
.ReturnsRecords = False
.Execute
End With
qb.Close
Set qb = Nothing
' if Identity, then "SET Identity_Insert OFF"
If IfIdentity Then
Set qb = db.CreateQueryDef("")
With qb
.Connect = ConStr
.SQL = "set Identity_Insert " & TableName & " off"
.ReturnsRecords = False
.Execute
End With
qb.Close
Set qb = Nothing
End If
...
Рейтинг: 0 / 0
SQL/ACCESS
    #32004733
Фотография Lena
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
W etoji chasti programmi pokaziwaet oschibku.
Pochemu? Neznaju.

' If Identity, then "SET Identity_Insert ON"
If IfIdentity Then
Set qb = db.CreateQueryDef("")
With qb
.Connect = ConStr
.SQL = "set Identity_Insert " & TableName & " on"
.ReturnsRecords = False
.Execute
End With
qb.Close
Set qb = Nothing
End If
Set qb = db.CreateQueryDef("")
With qb
.SQL = "INSERT INTO xxx SELECT " & TableName & ".* FROM " & TableName & " WHERE ((" & sf0 & ">=" & iu & ") And (" & sf0 & "<" & iu + 200 & "))"
.ReturnsRecords = False
.Execute
End With
qb.Close
Set qb = Nothing
' if Identity, then "SET Identity_Insert OFF"
If IfIdentity Then
Set qb = db.CreateQueryDef("")
With qb
.Connect = ConStr
.SQL = "set Identity_Insert " & TableName & " off"
.ReturnsRecords = False
.Execute
End With
qb.Close
Set qb = Nothing
End If
...
Рейтинг: 0 / 0
SQL/ACCESS
    #32004734
Фотография Lena
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
W etoji chasti programmi pokaziwaet oschibku.
Pochemu? Neznaju.

' If Identity, then "SET Identity_Insert ON"
If IfIdentity Then
Set qb = db.CreateQueryDef("")
With qb
.Connect = ConStr
.SQL = "set Identity_Insert " & TableName & " on"
.ReturnsRecords = False
.Execute
End With
qb.Close
Set qb = Nothing
End If
Set qb = db.CreateQueryDef("")
With qb
.SQL = "INSERT INTO xxx SELECT " & TableName & ".* FROM " & TableName & " WHERE ((" & sf0 & ">=" & iu & ") And (" & sf0 & "<" & iu + 200 & "))"
.ReturnsRecords = False
.Execute
End With
qb.Close
Set qb = Nothing
' if Identity, then "SET Identity_Insert OFF"
If IfIdentity Then
Set qb = db.CreateQueryDef("")
With qb
.Connect = ConStr
.SQL = "set Identity_Insert " & TableName & " off"
.ReturnsRecords = False
.Execute
End With
qb.Close
Set qb = Nothing
End If
...
Рейтинг: 0 / 0
SQL/ACCESS
    #32004746
Genady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если я правильно понял, Вы после установки identity_insert on закрываете соединение, в таком случае все правильно, поскольку эта установка действует в рамках соединения и когда вы создаете новое соединение, то получаете установки на него по умолчанию.
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / SQL/ACCESS
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]