|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как передать поле таблицы из Access в переменную Delphi ?
Доброго времени суток !!! Не могу такую проблемку решить:
Есть такая вот структура, использую ее для программирования упорядоченного списка: Type TPN = ^TN; //Указатель на переменную типа TN //Описание типа элемента списка TN = record Number : integer; //Номер x0 : integer; //Координаты по X y0 : integer; //Координаты по Y Next : TPN; //Указатель на следующий элемент списка end; /Это один из 2-х разных по структуре списков/ После работы основной проги список нужно сохранить на винт, разобрался как сохранять в типизированные файлы. (точнее в два отдельных, т.к. в проге два списка), в один файл сохранять не получается. Может есть какой вариант ? Пробую сохранять один (показанный) список в базу MSAccess через ADO вот так: --------------кусь------------------------- ADOQuery1.SQL.Add('CREATE TABLE Tab1 (Number Number ,x0 Number,y0 Number)'); ADOQuery1.ExecSQL ADOQuery1.SQL.Clear; currN:=headN; predN:=nil; while (currN <> nil) do begin ADOQuery1.SQL.Add('INSERT INTO Tab1 (Number,x0,y0)'); ADOQuery1.SQL.Add('values('''+IntToStr(currN^.Numb er)+''','''+IntToStr(currN^.x0)+''','''+IntToStr(c urrN^.y0)''')'); ADOQuery1.ExecSQL; ADOQuery1.SQL.Clear; predN:=currN; currN:=currN^.Next; end; в Access все сохраняется, все ок. Внимание вопрос: ЧТО нужно написать что бы считать данные из Таблицы БД в структуру типа Запись ЗЫ:Может примерчик какой подкинете элементарный типа: Считываем в таблице поле - присваиваем значение переменной Delphi , дальше сам разберусь Заранее СПАСИБО ! |
#2
|
|||
|
|||
adoquery.sql.clear;
adoquery.sql.add(select * from tab1); adoquery.open; если одна запись в таблице [переменная]:=adoquery.fields[0].asstring;(если тип переменной string) и т.д. |
#3
|
||||
|
||||
Если я тя правильно понял, то:
Код:
Str:=Grid.DataSource.DataSet.FieldByName('(имя поля)').AsString; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|