Чтение из базы данных

[Valium]

Вопрос настоящего новичка, простите. Как получить данные из базы данных? Не отобразить их в DBGrid, как показывается в тысячах примеров, а скопировать в свою переменную? Есть база, в ней есть таблица, выполняю код:

Код: Выделить всё

SQLQuery1.Active:=false;
    SQLQuery1.SQL.Clear;
    SQLQuery1.sql.add('SET character_set_client='+#39+'utf8'+#39+', character_set_connection='+#39+'cp1251'+#39+',character_set_results='+#39+'utf8'+#39+';');
    SQLQuery1.ExecSQL;
    SQLQuery1.SQL.Clear;
    SQLQuery1.sql.add('SELECT * from t1;');
    SQLQuery1.Open;


Всё хорошо, но дальше что? Мне нужно прочесть значения из базы и в соответствии с ними изменить нужные объекты на форме. Можете дать образчик кода?

[ViruZ]

Какая СУБД используется?
Вообще для работы с данными используется связка TxxxConnection+TSqlQuery, параметры подключения задаются в TxxxConnection, послевыполнения

SQLQuery1.SQL.Clear;
SQLQuery1.sql.add('SELECT * from t1;');
SQLQuery1.Open;

доступ к данным можно получить через

Код: Выделить всё

mystringvar := SqlQuery1.FieldByName('strfield').AsString;
myintvar := SqlQuery1.FielByName('intfield').AsInteger;


[big teapot]

Читаем значение из базы:
Edit1.Text:=SQLQuery1.FieldByName('field_xxx').AsString;
где field_xxx - имя нужного поля из таблицы tl.

изменяем значение в таблице tl
если поле field_xxx числовое
SQLQuery1.SQL.Text := 'update tl set field_xxx=' + Edit1.Text + ' where <здесь условие, какие записи менять>';

если поле field_xxx текстовое
SQLQuery1.SQL.Text := 'update tl set field_xxx=''' + Edit1.Text + ''' where <здесь условие, какие записи менять>';
SQLQuery1.ExecSQL;
SQLTransaction1.Commit;

А вообще, документация по работе с базами данных здесь
http://wiki.freepascal.org/Databases
http://wiki.freepascal.org/Working_With_TSQLQuery

[Valium]

Спасибо То, что было нужно.