» Вопросы по Delphi 2

Kostya
ADOQuery.SQL.Text:='select NAME from data where № like "%'Edit1.Text+'%"'
ADOQuery.Open
...

А плюсик ненужно перез Edit1 ?

Kostya
надо, надо.
Да, заметим, что ещё нужно предусмотреть вариант, когда в строке, записаной в едите есть двойная кавычка. Её нужно экранировать, иначе будут проблемы (просто весь запрос поплывёт). Я в своё время просто подменял её на "

Цитата:

Да, заметим, что ещё нужно предусмотреть вариант, когда в строке, записаной в едите есть двойная кавычка. Её нужно экранировать, иначе будут проблемы (просто весь запрос поплывёт). Я в своё время просто подменял её на "

А не проще ли написать так:

ADOQuery.SQL.Text:='select NAME from data where № like :N';
ADOQuery.Parameters.ParamByName('N').Value:= '%'+Edit1.Text+'%';
ADOQuery.Open;

Щас попробую сделать.

А подскажите еще как сделать: я добавил на форму комбобокс и надо чтобы при запуске программы в нем был список пилей таблицы. Ну чтобы выбирать по кокому поиск осуществлять. Я что-то сидел думал думал, но видимо моих познааний дельфы нехватило чтобы надумать правельный ответ

Цитата:

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

procedure TForm1.OnShow();
var i: integer;
begin
...
ADOTable1.Open;
for i:= 0 to ADOTable1.Fields.FieldCount-1 do
ComboBox1.Items.Add(ADOTable1.Fields[i].FieldName;
end;

Спасибо!!!

А если нетрудно подскажите как присвоить к Edit1 форме результат выполнения какого либо запроса а то в книжке ненайти что-то. Везде примеры с DBGrid. А хочется чтобы например после SELECT count(*) AS [Всего] FROM [tb1] этот результат выводился в какоенибуть обычно поле

Добавлено:
А как сделать чтобы комбобокс нельзя было редактировать. Чтобы список был и все.

свойство Style = csDropDownList

А на счет Edit1 подскажешь?

Kostya
Да просто всё

Код:
var rs:_RecordSet;
begin
ADOCommand.commandText:='SELECT count(*) AS [Всего] FROM [tb1]'; //но запрос коректируеш
rs:=ADOCommand.execute;
Edit1.text:=rs.field[0].value;
rs.close;

А подскажите еще как сделать проверку на то что ввели. Например нужно чтобы в поле были только числа. Как сделать? если поставить в базе формат числовой то при вводе в проге вылетает ошибка недепая. А как сделать чтобы было понятно что воодить нужно числа.

В php можно было делать проверку так preg_match("/^[0-9]+$/",$_GET['id'])

А в дельфе как сделать? или в ней подругому делается?

Цитата:

А подскажите еще как сделать проверку на то что ввели. Например нужно чтобы в поле были только числа.

Если к полю прицепишь DBEdit, то он сам будет не разрешать вводить неверные данные, и без ошибок. А если вводишь в Edit, то проверять можно так:
var N: integer;
try
N:= StrToInt(Edit1.Text);
except
ShowMessage('В поле "Бла-бла" нельзя вводить буквы и знаки');
end;

Спасибо!

Добавлено:
А подскажите еще как допустим сделать чтобы можно было дату добовлять и зDateTimePicker. А то неполучается мне ее перекинуть в базу

Kostya
для ввода только цыфер и разделителя, делается так

Код:
procedure TEdit.KeyPress(var Key: Char);
begin
case key of
'0'..'9': ; // цифры
#8: ; // забой
'.', ',':
if Pos(DecimalSeparator, Text) = 0 then
Key := DecimalSeparator
else
Key := #0; // десятичный разделитель
else
key := #0;
end; // case
end;

Цитата:

чтобы можно было дату добовлять и зDateTimePicker. А то неполучается мне ее перекинуть в базу

Юзать TDBDateTimePickerEh из EhLib
или так:
ADOQuery1.Add('INSERT INTO Tbl(...,DateField) VALUES(...,:DateField)');
ADOQuery1.Parameters.ParamByName('DateField').Value:= DateTimePicker1.DateTime;
ADOQuery1.ExecSQL;

Подскажите я правельно делаю?

Form1.ADOCommand1.CommandText := 'INSERT INTO tb1(дата) VALUES("qwqeqweqweqwe")';
Form1.ADOCommand1.Execute;

И еще почему мне вылетаешь ошибка "примерно: does nor return a result set" когда я пишу так:

Form1.ADOQuery1.SQL.Text := 'INSERT INTO tb1(Дата) VALUES("qweqwe")';
Form1.ADOQuery1.Open;

Kostya
Какого типа у тебя поле "Дата"?
Могут ли другие поля (которые не указаны в запросе) принимать значения NULL?

тектовый тип
другий да могут принимать.

Kostya

Цитата:

И еще почему мне вылетаешь ошибка "примерно: does nor return a result set" когда я пишу так:

Form1.ADOQuery1.SQL.Text := 'INSERT INTO tb1(Дата) VALUES("qweqwe")';
Form1.ADOQuery1.Open;

Метод Open применяется только для запросов, возвращающих выбоки - грубо говоря для select'ов. Для insert/update надо применять метод ExecSQL.

Тебе собственно это и написано в ошибке.

Спасибо. А правельно я запрос сделал? все так?

Kostya
Да вроде все так, что смущает то?

Да я пока незнаю ничего что могло бы меня смущать. Просто решил спросить у тех кто знает

Kostya
Слушай, а самому хоть что-то сообразить не судьба?
Или хоть доки почитать?

2ALL
Народ, а не хватит ли отвечать на вопросы "сколько будет 2х2". Задрало. Один деятель не желает ничего читать из док, а остальные его поощряют. Кнопку F1 никто не отменял.

SergeBS
Ну видишь, человек - пхп-шник, осваивается только.

Butcher

Цитата:

Ну видишь, человек - пхп-шник, осваивается только.

А этого что, достаточно чтобы доки не читать? По-моему так наоборот: вначале читаем доки, а уж если там ответа нет - спрашиваем. Осваивать надо с чтения док, а не вопросов, ответы на которые ТОЧНО есть в описаниях компонент, которые применяются.

Цитата:

Осваивать надо с чтения док, а не вопросов, ответы на которые ТОЧНО есть в описаниях компонент, которые применяются.

согласен, поддерживаю.

У меня книжка тут есть "Библия Дельфы" ее читаю

Добавлено:

Цитата:

Kostya
Слушай, а самому хоть что-то сообразить не судьба?
Или хоть доки почитать?

2ALL
Народ, а не хватит ли отвечать на вопросы "сколько будет 2х2". Задрало. Один деятель не желает ничего читать из док, а остальные его поощряют. Кнопку F1 никто не отменял.

У меня книжка тут есть "Библия Дельфы" ее читаю! и Ф1 тоже смотрю, но это для тебя это 2х2 потому что ты это знаешь. А я можно сказать первый раз дельфу открыл.

Kostya

Цитата:

У меня книжка тут есть "Библия Дельфы"

Нашел что читать... Лучше найди Архангельского (у него ошибок меньше и излагает как надо, без пальцовки) , или Пачеко+Тейксера - эти вообще классики жанра.


Цитата:

А я можно сказать первый раз дельфу открыл.

Ну так и читай по F1, что применять пытаешься. Пользы больше будет, и быстрее, чем вопросы задавать.
А еще сходи на http://delphiworld.narod.ru - там мощнейший набор статей по Делфи на все случаи жизни.

Я же незнаю какие книги лучше. В ирке спросил книжу по дельфе мне сказали такую.

А на счет сайта то уже сходил туда.

Цитата:

Нашел что читать...

Согласен. Помоему у Фленова все книги - муть.
От себя добавлю, Kostya зайди на drkb.ru и скачай DRKB 2.3, тоже оличная подборка статей по Delphi