1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Делфи

Тема в разделе "Помощь по всем вопросам.", создана пользователем psfdek, 23 янв 2014.

  1. TopicStarter Overlay
    psfdek

    psfdek

    Регистрация:
    19 дек 2013
    Сообщения:
    40
    Симпатии:
    31
    В делфи не очень хорошо понимаю.
    Как сделать запрос к базе данных Mysql?
    Например на PHP такой:
    Код:
    "SELECT DISTINCT LOGIN, FREEDATE FROM CLIENTS WHERE LOGIN LIKE '%psfdek%';"
    Мне надо что бы значение из ячейки FREEDATE выводило в едит.
    Если кому не сложно помогите!

    Теги для поиска по форуму: Delphi mysql, delphi, делфи mysql, делфи работа с базой данных, делфи получение данных из mysql (мало ли вдруг пригодится кому).

    Решение найдено!
    Код:
    var
    s:String;
    begin
    ADOQuery1.SQL.Text :='SELECT FREEDATE FROM CLIENTS WHERE LOGIN ='+QuotedStr(Edit1.Text);
    ADOQuery1.Open;
    s :=ADOQuery1.Fields[0].AsString;  //заносим рез-т в переменную
    ADOQuery1.Close;
    Edit2.Text :='Freedate '+s;
    end;
    Код:
    var
    s:TDateTime; //тип "Дата/время"
    begin
    ADOQuery1.SQL.Text :='SELECT FREEDATE FROM CLIENTS WHERE LOGIN ='+QuotedStr(Edit1.Text);
    ADOQuery1.Open;
    s :=ADOQuery1.Fields[0].AsDateTime;  //заносим дату в переменную
    ADOQuery1.Close;
    Edit2.Text :='Freedate '+DateToStr(s); //преобразуем дату в строку и выводим
    end;
     
    • Like Like x 1
    Метки:
  2. usFire

    usFire

    Регистрация:
    20 авг 2012
    Сообщения:
    274
    Симпатии:
    177
    гдет был исходник mysql delphi
     
  3. TopicStarter Overlay
    psfdek

    psfdek

    Регистрация:
    19 дек 2013
    Сообщения:
    40
    Симпатии:
    31
    У тебя был или на форуме был?
     
  4. usFire

    usFire

    Регистрация:
    20 авг 2012
    Сообщения:
    274
    Симпатии:
    177
    у мня , есть моней ?
     
  5. TopicStarter Overlay
    psfdek

    psfdek

    Регистрация:
    19 дек 2013
    Сообщения:
    40
    Симпатии:
    31
    Нет. Странная у тебя надпись под аватаром, пожалуй не буду иметь с тобой дела :D
    Хрен знает что это за слово такое, но похоже пытались написать что ты мошенник.

    [​IMG]
    Хотя может я и ошибаюсь, и мошейник значит что то связанное с мхом :)​
     
  6. TopicStarter Overlay
    psfdek

    psfdek

    Регистрация:
    19 дек 2013
    Сообщения:
    40
    Симпатии:
    31
    Я не могу сформировать кратко свою проблему, поэтому получается в поиске фигня.
    Думал может профессионалы подскажут что искать, на то и создан ведь раздел помощь что бы помощи просить.
    Назвали бы его тогда раздел где при обращении посылают на хер на гугл.
     
  7. TopicStarter Overlay
    psfdek

    psfdek

    Регистрация:
    19 дек 2013
    Сообщения:
    40
    Симпатии:
    31
    На CyberForum помогли.
    Код:
    var
    s:String;
    begin
    ADOQuery1.SQL.Text :='SELECT FREEDATE FROM CLIENTS WHERE LOGIN ='+QuotedStr(Edit1.Text);
    ADOQuery1.Open;
    s :=ADOQuery1.Fields[0].AsString;  //заносим рез-т в переменную
    ADOQuery1.Close;
    Edit2.Text :='Freedate '+s;
    end;
    Код:
    var
    s:TDateTime; //тип "Дата/время"
    begin
    ADOQuery1.SQL.Text :='SELECT FREEDATE FROM CLIENTS WHERE LOGIN ='+QuotedStr(Edit1.Text);
    ADOQuery1.Open;
    s :=ADOQuery1.Fields[0].AsDateTime;  //заносим дату в переменную
    ADOQuery1.Close;
    Edit2.Text :='Freedate '+DateToStr(s); //преобразуем дату в строку и выводим
    end;
    Так что всё, всем спасибо.
     
  8. usFire

    usFire

    Регистрация:
    20 авг 2012
    Сообщения:
    274
    Симпатии:
    177


    у мня с компонентом mydac норм реалезовано , работает
     
  9. TopicStarter Overlay
    psfdek

    psfdek

    Регистрация:
    19 дек 2013
    Сообщения:
    40
    Симпатии:
    31
    mydac - как то звучит обидно.
    Но такое есть Please login or register to view links на devart.com
     
    • Like Like x 1

Поделиться этой страницей

Загрузка...