Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.09.2007, 14:32   #1
VladimirAleks
Пользователь
 
Регистрация: 11.09.2007
Сообщений: 34
По умолчанию Access в Delphi. Как аполнить массив элементами поля таблицы?

Как аполнить массив элементами поля таблицы?
Всё подключено и работает, нужно только из одного столбика таблицы Access занести элементы в массив программы.
VladimirAleks вне форума Ответить с цитированием
Старый 11.09.2007, 15:34   #2
Pitbull
детский тренер
Форумчанин
 
Аватар для Pitbull
 
Регистрация: 08.06.2007
Сообщений: 532
По умолчанию

ну вот тебе самій простой пример... Тут у меня масив string....

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
adoTable1.first;
i:=0;
while AdoTable1.eof<>true do
begin
myArray[i]:=adoTable1.FieldByName('name').asS tring;//имя столбца...Можешь через индексі...как тебе удобнее
adoTable1.next;
inc(i);
end;

end;
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp

Последний раз редактировалось Pitbull; 11.09.2007 в 15:39.
Pitbull вне форума Ответить с цитированием
Старый 11.09.2007, 17:13   #3
VladimirAleks
Пользователь
 
Регистрация: 11.09.2007
Сообщений: 34
По умолчанию

Спасибо, помогло, первый раз всё работает. Но если нажать на кнопку повторно, то появляется сообщение об ошибке: 'access violation at 0x0048962c: read of address 0x5f35331a'
VladimirAleks вне форума Ответить с цитированием
Старый 12.09.2007, 14:28   #4
Pitbull
детский тренер
Форумчанин
 
Аватар для Pitbull
 
Регистрация: 08.06.2007
Сообщений: 532
По умолчанию

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;
type
TForm1 = class(TForm)
Button1: TButton;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOTable1id: TAutoIncField;
ADOTable1fname: TStringField;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
myArray : array[1..6] of string;
begin
adoTable1.first;
i:=0;
while AdoTable1.eof<>true do
begin
myArray[i]:=adoTable1.FieldByName('name').AsS tring;//èìÿ ñòîëáöà...Ìîæåøü ÷åðåç èíäåêñ³...êàê òåáå óäîáíåå
adoTable1.next;
Memo1 .Lines.add(myArray[i]);
inc(i);
end;

end;
end.

Вот вам олній код..у меня работает без сбоев....
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
Pitbull вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблемы с экспортом таблицы из Access d0_0b Microsoft Office Excel 3 07.11.2007 21:56
Взять данные из таблицы Access Inbox БД в Delphi 2 04.07.2007 13:53
В combobox выбирать данные из списка таблицы (Access) Inbox БД в Delphi 1 15.06.2007 10:45
Как связать таблицы в Access 2003 ? Nowichok Microsoft Office Access 2 13.02.2007 16:31