Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > TADOCommand, TADODataSet что и как.

Автор: jigagun 22.1.2010, 23:35

Если не трудно дайте пожалуйста ссылки или отправьте на мыло [email protected], примеры работы с компонентами TADOCommand, TADODataSet.
хотя бы самые примитивные.

Автор: Данкинг 23.1.2010, 00:24

На форуме пробовал искать по TADODataSet ?

Автор: jigagun 23.1.2010, 01:18

Цитата(Данкинг @ 23.1.2010, 00:24)

На форуме пробовал искать по TADODataSet ?

пробовал... есть пару тем, но они на определенную тематику уже для посвещенных, а мне бы просто азы но чуть подробнее чем в книгах или примерчик с коротенкими пояснениями, т.к. мой опыт работы с бд теперь уже 2 недели и один день.
В инете очень много пролазил есть, одна интересная ссылка приведу, мож кому понадобиться (там вообще про многое)

http://www.sql.ru/articles/articles.aspx

Автор: Данкинг 23.1.2010, 02:04

Ну хорошо, тогда сформулируй конкретный вопрос: что именно требуется - подключиться к БД? Тогда ещё AdoConnection понадобится, где следует задать строку подключения для данной СУБД. Вот пример для Access:

Код


procedure TForm1.FormCreate(Sender: TObject);
var p,pp:string;
begin
p:=extractfilepath(application.ExeName)+'\sidi.mdb';//база лежит в каталоге с программой
pp:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+p+';Persist Security Info=False';
AdoConnection.ConnectionString:=pp;//подключаемся к БД
AdoConnection.Connected:=true;
AdoTable.Close;
AdoTable.TableName :='spisok';//В AdoTable открываем таблицу "spisok"
AdoTable.Open
end;

Автор: jigagun 23.1.2010, 02:41

ADOConnection и все что к нему надо уже есть и прописаны.

короче просто помоги составить запрос к таблице так что бы он возвращал результат поиска в каком либо не визуальном виде, типа таблица в которой 3 столбца
№тел | imei | фамилия

делаем запрос на сверку существует ли номер в таблице. Самое главное получение результата поиска True - есть, False - нет или сам номер телефона или значение nil(null)

Автор: morpheyushka 23.1.2010, 11:21

Цитата(jigagun @ 23.1.2010, 02:41

)

короче просто помоги составить запрос к таблице так что бы он возвращал результат поиска в каком либо не визуальном виде

зачем тогда тебе

Цитата(jigagun @ 22.1.2010, 23:35

)

TADOCommand, TADODataSet.

Кидаешь на форму TADOQuery, вяжешь ее с ТAdoConnection и пишешь код:

Код


function CheckNumber(number: String):Boolean;
begin
  with Query do begin
    Close;
    SQL.Clear;
    SQL.Add('select * from table where №тел = ' + '''' + number + '''');
    Open;
  end;
  Result := (Query.RecordCount = 1);
end;

ну и вызываешь где то на кнопочке

Код


procedure TForm14.Button1Click(Sender: TObject);
begin
  if(CheckNumber('5555555')) then
    ShowMessage('Номер есть')
  else
    ShowMessage('Номера нет');
end;

Автор: ~FoX~ 23.1.2010, 11:23

Код


SELECT NumTel, IMEI, FIO
FROM TebleName
WHERE NumTel Is Not Null;

Автор: Данкинг 23.1.2010, 13:12

Цитата(jigagun @ 23.1.2010, 02:41

)

короче просто помоги составить запрос к таблице

Тогда вопрос всё же сформулирован вообще не по теме. smile

Автор: jigagun 24.1.2010, 21:29

Цитата(Данкинг @ 23.1.2010, 13:12)

Цитата(jigagun @ 23.1.2010, 02:41

)

короче просто помоги составить запрос к таблице

Тогда вопрос всё же сформулирован вообще не по теме. smile

извени.... тупанул.... Огромное спасибо Вы мне очень помогли