Как перевести код

@Nevvermore · Регистрация: 11.12.2018

Author24 — интернет-сервис помощи студентам

Как перевести код использовал его на Delphi не могу перекинуть на С++ Builder

Delphi

procedure TfMain.Edit1Change(Sender: TObject);
var help1,help2,help3:string;
begin
help1:= '%'+ fMain.edit1.text + '%';
help2:= Quotedstr(help1);
with fdm.ADOZakaz do
begin
close;
sql.Clear;
Sql.Add('select * from Zzakaz where Fam like '+help2+' or model like'+help2+'or data_zakaza like '+help2+' order by Fam');
open;
end;
begin
with fdm.ADOTovar do
begin
close;
sql.Clear;
Sql.Add('select * from Ztovar where model like '+help2+' order by model');
open;
end;
end;
end;
 
end.

@D1973 · 11.12.2018, 16:11

А, может, и не надо??? Тут и на Дельфи чепуха написана...

@Nevvermore · 11.12.2018, 16:18 **[ТС]**

Ну это был поиск по строкам бд если иначе как то можно сделать можете сослаться на другой вопрос или написать здесь буду благодарен.

@D1973 · 11.12.2018, 17:32

Чтобы что-то писать, надо знать что писать... А этого не знает никто, боюсь, даже Вы сами...
Суть задачи - поиск по БД... А СУБД какая? А по каким таблицам поиск? Структура этих таблиц? Где вся эта информация?

@Nevvermore · 11.12.2018, 18:12 **[ТС]**

Сам разобрался код для поиска получился такой

C++

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
fDM -> ADOZakaz -> Close();
fDM -> ADOZakaz -> SQL -> Clear();
fDM -> ADOZakaz -> SQL -> Text="SELECT * FROM Zzakaz WHERE `Fam` LIKE '%"+Form1->Edit1->Text+"%'";
fDM -> ADOZakaz -> Open();
}

@D1973 · 12.12.2018, 06:06

Не надо писать лишнюю строку:

C++

1	fDM -> ADOZakaz -> SQL -> Clear();

Когда Вы меняете свойство SQL->Text - старый текст запроса будет очищен автоматически. Вы просто делаете лишнюю работу.

Сообщение от Nevvermore

Form1->Edit1->Text

Совсем ни к чему явно указывать имя класса формы в методах этого класса

И это хорошо, что у Вас в запросе только одна переменная величина. Если их будет больше - при таком, как у Вас, подходе код станет просто нечитаем: сами же и запутаетесь во всех этих кавычках, апострофах и полях ввода... Чтобы этого избежать - используйте параметры:

C++

fDM -> ADOZakaz->Close();
fDM -> ADOZakaz->SQL->Text = "SELECT * FROM Zzakaz WHERE `Fam` LIKE :p1";
fDM -> ADOZakaz->Parameters->ParamByName("p1")->Value = String().sprintf("%%%s%%", Edit1->Text);
fDM -> ADOZakaz->Open();

@Nevvermore · 13.12.2018, 15:54 **[ТС]**

спасибо учту это

@D1973 Модератор 9235 / 6018 / 2374 Регистрация: 21.01.2014 Сообщений: 25,718 Записей в блоге: 3
	11.12.2018, 16:11	2
	А, может, и не надо??? Тут и на Дельфи чепуха написана... 0

@Nevvermore 0 / 0 / 0 Регистрация: 11.12.2018 Сообщений: 4
	11.12.2018, 16:18 [ТС]	3
	Ну это был поиск по строкам бд если иначе как то можно сделать можете сослаться на другой вопрос или написать здесь буду благодарен. 0

@D1973 Модератор 9235 / 6018 / 2374 Регистрация: 21.01.2014 Сообщений: 25,718 Записей в блоге: 3
	11.12.2018, 17:32	4
	Чтобы что-то писать, надо знать `что` писать... А этого не знает никто, боюсь, даже Вы сами... Суть задачи - поиск по БД... А СУБД какая? А по каким таблицам поиск? Структура этих таблиц? Где вся эта информация? 0

@Nevvermore 0 / 0 / 0 Регистрация: 11.12.2018 Сообщений: 4
	13.12.2018, 15:54 [ТС]	7
	спасибо учту это 0

Опции темы