ADO MS Jet

← →
shinus © (2004-03-04 15:13) [0]

Делаю подряд несколько инсертов (Query.Execute), после чего сразу открываю Query - ни одной записи запрос не вернул. Повторяю запрос через несколько секунд - возвращаются все записи, которые добавил. В чем беда?

← →
SPIRIT © (2004-03-04 15:20) [1]

Беда в коде.

← →
shinus © (2004-03-04 15:25) [2]

ну простой пример:
Query.SQL.Text := "INSERT [TableName] (Field1, Field2) VALUES (""+Value1+"",""+Value+"")";

Query.Excute;
Query.SQL.Text := "SELECT * FROM TableName";
Query.Open;
// после этого Query.RecordCount = 0
// повторяем запрос через 10 секунд
Query.Open;
// после этого Query.RecordCount = 1

← →
SPIRIT © (2004-03-04 15:31) [3]

пробуй
query.ExecSql

← →
shinus © (2004-03-04 15:34) [4]

Его и использую, написал просто Execute.
Суть не в этом

← →
shinus © (2004-03-04 15:34) [5]

Записи вставляются, вопрос только в том, что доступны они становятся не сразу.

← →
SPIRIT © (2004-03-04 15:36) [6]

а чё за база ?

← →
shinus © (2004-03-04 15:43) [7]

Jet ядро Access то есть файлы с расширением *.mdb

← →
SPIRIT © (2004-03-04 15:46) [8]

Insert через TAdoCommand попробуй ..

← →
shinus © (2004-03-04 16:01) [9]

а смысл?
function TADOQuery.ExecSQL: Integer;
begin
InitializeMasterFields(Self);
Command.Execute(FRowsAffected, EmptyParam);
Result := FRowsAffected;
end;
где
property Command: TADOCommand read FCommand;

Insert into

код правильный с поправкой [10]
попробуй установить jet ... хотя фик знает

INTO погоды не делает, атавизм анси sql
JET стоит , без него бы даже свзяь с базой было бы не установить

джеты разные бывают :)

ADO MS Jet Найти похожие ветки