SQL запрос

← →
Shota_body © (2003-06-11 10:19) [0]

Вешаю на баттон
procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add("update "c:\temp\sql\import.dbf" set ad2_tst="TTT" where ad2_ori="RRR"");
ExecSQL;
end;
end;
а дельфя типа все отработала - а на самом деле не присваивает он полям то что надо ((( База локальная ....
Плиз хелп ми !!!

← →
sniknik © (2003-06-11 10:35) [1]

> where ad2_ori="RRR"
может нет там таких записей?
а есть
with Query1 do begin Close; SQL.Clear; SQL.Add("update "c:\temp\sql\import.dbf" set ad2_tst="TTT" where ad2_ori LIKE "RRR%""); ExecSQL; end;
???

← →
Shota_body © (2003-06-11 12:07) [2]

огромадное спасиба )))) точно ...усе пашет
только щас вопрос встал вот какой если записывать данные в русскими буквами то есть ad2_tst="НАБ" то в базу он записывает в WIN кодеровке - а dbf тама млин иероглифы....

← →
sniknik © (2003-06-11 12:16) [3]

dBASE RUS cp866 у лэнгдрайвера в настройках используемого драйвера (DBASE), в BDEAdministrator-e.
а будут проблемы с конвертацией/сортировкой/неотображением отдельных букв попробуй туда же руками Pdox ANSI Cyrillic (или подбор и остальных их там много)

← →
Соловьев © (2003-06-11 12:18) [4]

> c:\temp\sql\import.dbf"

наверное без алиаса работаем? тогда может в Session надо попробовать настроить?

← →
Shota_body © (2003-06-11 14:41) [5]

короче
procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do begin
Close;
SQL.Clear;
SQL.Add("update import set ad2_tst="НАБ" where ad2_ori LIKE "RRR%"");
ExecSQL;
end;
end;
работаю я с алиасом
перебирал я в лангдривере - все равно в другой кодировке пишет
подскажите как записать в поле
set ad2_tst ="НАБ" значение какой либо переменной или (допустим char(157) )
просто у меня раньше была такая проблемс в дельфях с базой я решил ее просто в win кодировке буква свое значение - в dos свое - вот я и разницу между ними находил и вычитал - тогда в dos нормально записывалась ...

← →
clickmaker © (2003-06-11 14:58) [6]

Ну попробуй "update import set ad2_tst="" + CharToOem("НАБ") + "" ...

← →
Shota_body © (2003-06-11 15:17) [7]

нет это не пашет

← →
Соловьев © (2003-06-12 10:03) [8]

> set ad2_tst="НАБ"

через параметры попробуй.

Query1.ParamByName("p").AsString:="НАБ";
типа того и потом как параметр
SQL.Add("update import set ad2_tst:p where ad2_ori LIKE "RRR%"");
попробую

> SQL.Add("update import set ad2_tst:p where ad2_ori LIKE
> "RRR%"");

SQL.Add("update import set ad2_tst = :p where ad2_ori LIKE
"RRR%"");
и все-таки точно ты используешь алиас? потому как строка "c:\temp\sql\import.dbf" говорит об обратном...

да нет это старый вариант - точно точно алиас использую ;)

усе сделал всем спасибо )))

SQL запрос Найти похожие ветки