Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507739 Wed, 17 Feb 2010 05:48:24 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507739
НО попробовал работать с конвертацией анси в утф8 и наоборот... и о чудо... все работает как надо! :yes:

//выборка данных из базы

sldb.AddSystemCollate;

sltb := slDb.GetTable('SELECT * FROM telephons WHERE Upper(Name) LIKE "%'+ UpperCase(AnsiToUtf8(LabeledEdit2.Text)) +'%"'); //выборку делаем с переменной в утф8

if sltb.Count > 0 then begin //вывод данных в таблицу

for i:=1 to sltb.Count do begin

StringGrid1.Cells[0,i] := Utf8ToAnsi(sltb.FieldAsString(sltb.FieldIndex['ID'])); //возвращаем из базы в анси

StringGrid1.Cells[1,i] := Utf8ToAnsi(sltb.FieldAsString(sltb.FieldIndex['Number']));

StringGrid1.Cells[2,i] := Utf8ToAnsi(sltb.FieldAsString(sltb.FieldIndex['Name']));

StringGrid1.Cells[3,i] := Utf8ToAnsi(sltb.FieldAsString(sltb.FieldIndex['Adress']));

sltb.Next;

StringGrid1.RowCount := i+1;

end;

sltb.Free;

]]> VG_ Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507233 Tue, 16 Feb 2010 13:18:34 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507233 Цитата VG_ @ 16.02.10, 12:57

а чем орхивировал если не секрет? :-)

Total Commander 7.50a, встроенный ZIP архиватор.
ё! мой косяк! упаковывал в LZMA ZIP. (ZIP type 14). Currently only Winzip 12 can unpack it.
перезалил нормальный архив.]]> VJean Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507208 Tue, 16 Feb 2010 12:57:30 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507208 Цитата VJean @ 16.02.10, 12:45

1. архив 100% читабелен!

а чем орхивировал если не секрет? :-)]]> VG_ Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507198 Tue, 16 Feb 2010 12:45:45 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507198 2. Без понятия. У меня Delphi7 (хотя это не должно так повлиять на работу программы), код тоже рабочий, проверенно временем.]]> VJean Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507181 Tue, 16 Feb 2010 12:30:49 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507181 user posted image

2.Так в чем причина того, что у тебя работает, а у меня нет?]]> VG_ Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507140 Tue, 16 Feb 2010 11:51:30 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507140 Цитата VG_ @ 16.02.10, 10:49

Эм... а в приведенном коде я не вижу "%" "%" у Like...

% написаны в Edit1

Цитата VG_ @ 16.02.10, 10:49

и я так понимаю в приаттаченом файле WideLower реализован? и файл не качается

да. WideUpperFunc не сильно отличаетсо от AnsiUpperFunc.]]> VJean Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507082 Tue, 16 Feb 2010 10:49:17 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507082
и я так понимаю в приаттаченом файле WideLower реализован? и файл не качается]]> VG_ Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507069 Tue, 16 Feb 2010 10:40:06 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507069

procedure TForm1.Button2Click(Sender: TObject);

var sltb:TSQLiteTable;

i:integer;

s: string;

begin

Memo1.Lines.BeginUpdate;

try

Memo1.clear;

if CheckBox2.Checked

then s := 'SELECT tstamp,notes FROM log WHERE WideLower(notes) LIKE '''+LowerCase(Edit1.text)+''' ORDER BY notes;'

else s := 'SELECT tstamp,notes FROM log WHERE notes LIKE '''+Edit1.text+''' ORDER BY notes;';

sltb := sldb.GetTable(s);

try

for i := 0 to sltb.Count - 1 do begin

memo1.Lines.add(sltb.FieldAsString(0)+' = '+sltb.FieldAsString(1));

sltb.Next;

end;

finally

sltb.Free;

end;

finally

Memo1.Lines.EndUpdate;

end;

Label1.Caption := AnsiUpperCase(Edit1.Text) + ' #' + IntToStr(sltb.RowCount);

Button2.Enabled := not CheckBox1.Checked;

Button4.OnClick(Sender);

end;

SQLite3_unit.zip (SQLite3.pas, SQLiteTable3.pas)]]> VJean Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507020 Tue, 16 Feb 2010 09:53:15 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2507020 VJean,

//выборка данных из базы

sldb.AddSystemCollate;

sltb := slDb.GetTable('SELECT * FROM telephons WHERE AnsiUpper(Name) LIKE "%'+ AnsiUpperCase(LabeledEdit2.Text) +'%"');

if sltb.Count > 0 then begin //вывод данных в таблицу

for i:=1 to sltb.Count do begin

StringGrid1.Cells[0,i] := sltb.FieldAsString(sltb.FieldIndex['ID']);

StringGrid1.Cells[1,i] := sltb.FieldAsString(sltb.FieldIndex['Number']);

StringGrid1.Cells[2,i] := sltb.FieldAsString(sltb.FieldIndex['Name']);

StringGrid1.Cells[3,i] := sltb.FieldAsString(sltb.FieldIndex['Adress']);

sltb.Next;

StringGrid1.RowCount := i+1;

end;

sltb.Free;

]]> VG_ Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2504031 Fri, 12 Feb 2010 12:56:28 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2504031 VG_, напиши свой запрос, а лучше участок кода с этим запросом.]]> VJean Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2503562 Fri, 12 Feb 2010 05:41:35 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2503562 Цитата VJean @ 11.02.10, 13:41

всё происходит может у вас база на UTF8?

Конечно база в утф8, а что можно и в win-1251 создать?)

Цитата VJean @ 11.02.10, 13:41

это мой запрос в программе, в вашей он будет саавсем другой

я знаю, и поэтому я свое задание переделал на ваш запрос)]]> VG_ Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2502959 Thu, 11 Feb 2010 13:41:26 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2502959 VG_, всё происходит ;) может у вас база на UTF8? тогда припишите функцию по разбору WideString (WideUpper, WideLower).

s := 'SELECT tstamp,notes FROM log WHERE AnsiUpper(notes) LIKE "%'+UpperCase(Edit1.text)+'%" ORDER BY notes;';

это мой запрос в программе, в вашей он будет саавсем другой :)]]> VJean Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2502323 Thu, 11 Feb 2010 04:50:33 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2502323 VJean, такого кода у меня небыло в SQLiteTable3.pas, я добавил и вроде работает, но ищет тока точное совпадение, а вот так s := 'SELECT tstamp,notes FROM log WHERE AnsiUpper(notes) LIKE "%'+UpperCase(Edit1.text)+'%" ORDER BY notes;' почемуто не работает. Почему не происходит отбор всех сопадений? :wall:]]> VG_ Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2500740 Tue, 09 Feb 2010 20:34:53 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2500740 Цитата VG_ @ 09.02.10, 05:39

как быть?

Перейти на другую СУБД.]]> Anatoly Podgoretsky Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2500719 Tue, 09 Feb 2010 20:16:16 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2500719

procedure AnsiUpperFunc(context: Pointer; nArg: Integer; args: PPChar); cdecl;

var

sVal: PAnsiChar;

Buf: AnsiString;

Size: Integer;

begin

try

case SQLite3_value_type(args^) of

SQLITE_NULL: sqlite3_result_null(context);

else begin

sVal := PAnsiChar(SQLite3_value_text(args^));

buf := AnsiUpperCase(sVal);

SQLite3_result_text(context, PChar(buf), Length(buf), 0);

end;

except

sqlite3_result_null(context);

Exit;

end;

...

constructor TSQLiteDatabase.Create(const FileName: string);

begin

...

sqlite3_create_function(fDB, 'AnsiUpper', 1, SQLITE_ANY, nil, @AnsiUpperFunc, nil, nil);

...

end;

в коде программы:

unit Main;

...

implementation

uses SQLiteTable3;

...

var sltb:TSQLiteTable;

i:integer;

s: string;

begin

Memo1.Lines.BeginUpdate;

try

Memo1.clear;

if CheckBox2.Checked then

s := 'SELECT tstamp,notes FROM log WHERE AnsiUpper(notes) LIKE '''+UpperCase(Edit1.text)+''' ORDER BY notes;'

else

s := 'SELECT tstamp,notes FROM log WHERE notes LIKE '''+Edit1.text+''' ORDER BY notes;';

sltb := sldb.GetTable(s);

try

for i := 0 to sltb.Count - 1 do

begin

memo1.Lines.add(sltb.FieldAsString(0)+' = '+sltb.FieldAsString(1));

sltb.Next;

end;

finally

sltb.Free;

end;

finally

Memo1.Lines.EndUpdate;

end;

Label1.Caption := AnsiUpperCase(Edit1.Text) + ' #' + IntToStr(sltb.RowCount);

Button2.Enabled := not CheckBox1.Checked;

end;

]]> VJean Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2499857 Tue, 09 Feb 2010 05:39:32 +0000 не работает Like https://forum.sources.ru/index.php?showtopic=294492&view=findpost&p=2499857 Были решения по поводу:

select * from tel where Name collate russian Like "%ива%"

, но открыв базу в SQLite Expert Pro, увидел что в коллэйт листе нету русского...
как быть?]]> VG_ Delphi: Базы данных