AF
Инсерт в такой записи ничего не возвращает
пустой sql отправляю??
Open и Active, убери. Close поставь.
На какой строке то ошибка?
Size: a a a
2020 March 03
AF
Open и Active, убери. Close поставь.
На какой строке то ошибка?
На какой строке то ошибка?
не подсвечивает. примерно на sql.clear)
ГМ
if ADOQuery.Active then ADOQuery.Close;
DB
ADOQuery.Active := False не прокатит?
DB
не знаю точно свойств ADOQuery
ГМ
ADOQuery.Active := False не прокатит?
У него уже это выполняется. Но как видишь
SB
Query := TADOQuery.Create(nil);
try
Query.Connection := DBConnection;
Query.SQL.Text := 'SELECT ID, GSMNumber FROM GuardDevice';
Query.Open();
while not Query.Eof do
begin
id := Query.FieldByName('ID').AsInteger;
sGsmNum := Query.FieldByName('GSMNumber').AsString;
Query.Next();
end;
Query.Close();
finally
FreeAndNil(Query);
end;
try
Query.Connection := DBConnection;
Query.SQL.Text := 'SELECT ID, GSMNumber FROM GuardDevice';
Query.Open();
while not Query.Eof do
begin
id := Query.FieldByName('ID').AsInteger;
sGsmNum := Query.FieldByName('GSMNumber').AsString;
Query.Next();
end;
Query.Close();
finally
FreeAndNil(Query);
end;
SB
Откопал рабочий пример
AF
0_о
AF
такс такс. сейчас попробую его
ГМ
0_о
это без невизаульного компонента на форме
ГМ
Удали сначала с формы запрос
DB
Откопал рабочий пример
это select
AF
это select
кстати
AF
селект так то работает с этой бд
DB
insert может по-другому идти
AF
ГМ
По-хорошему использовать параметры
SB
if ADOQuery.SQL.Text <> updSQL then
begin
ADOQuery.SQL.Text := updSQL;
ADOQuery.Prepared := True;
end;
ADOQuery.Parameters.ParamByName('DtNow').Value := dtNow;
ADOQuery.Parameters.ParamByName('ID').Value := StatusItem.RowID;
ADOQuery.ExecSQL();
begin
ADOQuery.SQL.Text := updSQL;
ADOQuery.Prepared := True;
end;
ADOQuery.Parameters.ParamByName('DtNow').Value := dtNow;
ADOQuery.Parameters.ParamByName('ID').Value := StatusItem.RowID;
ADOQuery.ExecSQL();