Выполняю команду(Adodb.command), которая создает временную таблицу, а потом открываю из нее рекордсет. Рекордсет не открывается, говорит, нет такой таблицы. Кликаю продолжить, открывается. Очевидно, из за асинхронности предыдущей команды. Пробовал Connection.Execute, та же фигня.
Про ExecuteComplete прочитал, наверно, с ним можно сделать. У меня на Dim withevents аллергия. Как напишу, так куча отчетов в микрософт:-) Может, еще как нибудь можно. Напишите, пожалуста, пример синхронного(не отдающего управление пока не закончится) запроса на изменение данных.

100000 доевентсов ставил:-) Не помогает

> а сделай..
нафига? Какая, блин, разница? Если таблицы НЕТУ, то хранимка из нее чего то вернет, что ли?

И че, он обновляемый получится?
Мне этот рекордсет на форму вешать.
ваще правильный ответ- это забить на временные таблицы SQL и пользоваться mdb шкой, лежащей рядом с проектом. Я, собсно, так и делаю. Просто это форма годичной давности. А переписывать ее - дешевле удавится.

>раз, два
для одного и того же
>Я вообще не понимаю
Когда нужно редактировать нередактируемое
>для кеширования
и это тоже

Там много кода:-)
Вот функция
Public Function RunScript(cN As ADODB.Connection, InFile As String) As Boolean
On Error GoTo RunScript_Err
Dim cm As New ADODB.Command
Dim infileopen As Boolean
Dim incmd$, batch$, Q$

Q$ = """" 'quoted id char

cm.ActiveConnection = cN
cm.CommandType = adCmdText

Open InFile For Input As #1
infileopen = True

Do While Not EOF(1)
Line Input #1, incmd$
If (LCase(Left(incmd$, 2)) <> "go") Then
batch$ = batch$ + incmd$ + vbCrLf
Else
If batch$ <> "" Then
cm.CommandText = batch$
cm.Execute
batch$ = ""
End If
End If
Loop

Close #1
RunScript = True
Exit Function
RunScript_Err:
MsgBox Err.Description, vbCritical + vbOKOnly, "Îøèáêà"
If infileopen Then
Close #1
End If
RunScript = False

End Function




Вот SQL
if (object_id('tempdb..#t2TariffGroupTransport') IS NULL)
CREATE TABLE #t2TariffGroupTransport(
fDate smalldatetime,
fName varchar(50),
f_100 money,
f_200 money,
f_300 money,
f_500 money,
f_700 money,
f_1000 money,
f_1500 money,
f_3000 money,
f_5000 money,
fInshurence money,
f_100_ money,
f_200_ money,
f_300_ money,
f_500_ money,
f_700_ money,
f_1000_ money,
f_1500_ money,
f_3000_ money,
f_5000_ money,
fInshurence_ money,
PRIMARY KEY CLUSTERED (fDate, fName)
)
go

if (object_id('tempdb..#t2TariffGroupInHome_Delivery') IS NULL)
CREATE TABLE #t2TariffGroupInHome_Delivery(
fTG_Name varchar(50),
fDate smalldatetime,
fLorryType varchar(50),
fDeliveryPriceTime money,
fDeliveryMinTime money,
fDeliveryPriceDistance money,
fDeliveryPriceTime_ money,
fDeliveryMinTime_ money,
fDeliveryPriceDistance_ money,
PRIMARY KEY CLUSTERED (fTG_Name, fDate, fLorryType)
)
go

if (object_id('tempdb..#t2TariffGroupInHome') IS NULL)
CREATE TABLE #t2TariffGroupInHome(
fDate smalldatetime,
fName varchar(50),
fExpediteSingle money,
fExpediteSeveral money,
fPackageWeight money,
fPackagePiece money,
fLoadWeight money,
fLoadPiece money,
fExpediteSingle_ money,
fExpediteSeveral_ money,
fPackageWeight_ money,
fPackagePiece_ money,
fLoadWeight_ money,
fLoadPiece_ money,
PRIMARY KEY CLUSTERED (fDate, fName)
)
go

if (object_id('tempdb..#t2PriceInHome') IS NULL)
CREATE TABLE #t2PriceInHome(
fBranch varchar(50),
fDate smalldatetime,
fTariffName varchar(50),
fTariffName_ varchar(50),
PRIMARY KEY CLUSTERED (fBranch, fDate)
)
go

if (object_id('tempdb..#t2PriceTransport') IS NULL)
CREATE TABLE #t2PriceTransport(
fDate smalldatetime,
fBranchA varchar(50),
fBranchB varchar(50),
fTariffName varchar(50),
f_100 money,
f_200 money,
f_300 money,
f_500 money,
f_700 money,
f_1000 money,
f_1500 money,
f_3000 money,
f_5000 money,
fInshurence money,
fTariffName_ varchar(50),
f_100_ money,
f_200_ money,
f_300_ money,
f_500_ money,
f_700_ money,
f_1000_ money,
f_1500_ money,
f_3000_ money,
f_5000_ money,
fInshurence_ money,
PRIMARY KEY CLUSTERED (fDate, fBranchA, fBranchB)
)
go
Ну, вызываю ту функцию, а потом открываю форму. При открытии цепляю на нее рекордсет из временной таблицы.

>дело говорит
Повторяю вопрос:
И че, обновляемый получится?

>дело говорит 2
Не выйдет. У меня там SQL к временной таблице используется, а если создать таблицу в процедуре, то она в конце процедуры сдохнет, кажися

>Чем не вариант
Нормальный вариант. Как и с DAO. Просто в этой формочке километр кода и переписывать очень лениво. Если деваться некуда- перепишу, куда я денусь:-)

>Чем не вариант 2
C DAO вариант лучше, потому что я поклялся страшной клятвой не менять БД. Чтоб обновлялось проще. Она у меня уже эксплуатируется:-(

>даете жару
Ты исходник невнимательно читал. там столько екзекьютов, скока гоу. И ваще, помните, про че я спрашивал то:-) См название темы.

Мой коннект CurrentProject.Connection. Так что закрывать его поди не стоит:-)
А про асинхронность- сам удивляюсь, блин.
>непоследнюю в батче
пустую транзакцию попробую
>извини, по возможности
я это переживу:-)

Пустая транзакция не лечит.

Блин.
Я же написал.
Выдается ошибка: нет таблицы.
Я пишу дебаг.
Пишу продолжить.
И она ее(таблицу) НАХОДИТ.
Проблема в АСИНХРОННОСТИ.
Как CurrentProject.Connection может прибиваться?