VPF::TADOCommand, TADODataSet что и как. - Форум программистов

jigagun

Дата 22.1.2010, 23:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 17.1.2010

Репутация: нет
Всего: нет

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

Данкинг

Дата 23.1.2010, 00:24 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

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

Это сообщение отредактировал(а) Данкинг - 23.1.2010, 00:24

--------------------

There's nothing left but silent epitaphs.

jigagun

Дата 23.1.2010, 01:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 17.1.2010

Репутация: нет
Всего: нет

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

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

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

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

Данкинг

Дата 23.1.2010, 02:04 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Ну хорошо, тогда сформулируй конкретный вопрос: что именно требуется - подключиться к БД? Тогда ещё 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;

--------------------

There's nothing left but silent epitaphs.

jigagun

Дата 23.1.2010, 02:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 17.1.2010

Репутация: нет
Всего: нет

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

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

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

morpheyushka

Дата 23.1.2010, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Зеленый человек

Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: нет
Всего: 8

Цитата(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;

Это сообщение отредактировал(а) morpheyushka - 23.1.2010, 11:22

--------------------

Спасибо делается вот так!!!

~FoX~

Дата 23.1.2010, 11:23 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

Код


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

--------------------

…множественность никогда не следует полагать без необходимости…

Данкинг

Дата 23.1.2010, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

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

)

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

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

--------------------

There's nothing left but silent epitaphs.

jigagun

Дата 24.1.2010, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 17.1.2010

Репутация: нет
Всего: нет

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

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

)

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

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

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »