ADO - примерче ?

Помогнете!
Опитвам се да отворя с ADO, таблица на ACCESS динамично.
От примера: Adotest на Borland само се обърках ( много е сложен ).
Има ли някоя проста примерна програмка която да го прави успешно.

10X

Драсти,
това което ти давам е псолутно минималното за "динамично" отваряне на MS Access таблица с ADO компонентите на Делфи
Има две стъпки

стъка1: UDL файл /не е задължителен, но на мен ми е удобно да работя с UDL-та/
отиваш в правилната директория /се тая коя, ти си избираш/
десен плъх, New->Text Document
преименуваш го на sample.udl (името пак е без значение, но за определеност)
dbl click на файла (sample.udl)
на 'Provider' таба избираш MS Jet 4.0 OLE DB (за Office 97 и по-пресни)
'Next'
на 'Connection' таба
1. Select or enter database - избираш си MDB-то което ти трябва
2. Login - каквото си требе, ако не си пипал секюритито на базата ги остави каквито са си
'Test Connection' - ако не си оцапал нещо ще е ОК
'OK'

стъпка2: Delphi app
Нова програма, на формата слагаш
от ADO таба - ADOConnection, ADOTable
от 'Data Access' - DataSource
от 'Data Controls' - DBGrid
две копчета

на DBGrid1, DataSource избираш DataSource1
на DataSource1 DataSet избираш ADOTable1
на ADOTable1 Connection избираш ADOConnection1
на ADOConnection1 LoginPrompt да е False (спестява ти Login диалога на Open)

//open DB and Table

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOConnection1.ConnectionString := 'FILE NAME=D:\users\ivo\sample.udl'; //opraviash SAMO putia

ADOTable1.TableName := 'salats'; //tuka trebe imeto na tablicata koiato iskash



ADOConnection1.Open;

ADOTable1.Open;

end;



//close Table and DB

procedure TForm1.Button2Click(Sender: TObject);

begin

ADOTable1.Close;

ADOConnection1.Close;

end;

Am I evil?
Yes I am.

де бре... "псолутно"?

uses ComObj;
...

var db,r: variant;

db:=CreateOleObject ('ADODB.Connection');
db.Open ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False');

а това го изпуснах, то е само за илюстрация:

...
r:=db.Execute ('select * from table1');
ShowMessage (r.Fields [1].Value);

хех, верно, така е по-динамично...

но чак пък толкоз динамично дали няма да дойде малко нагорно...

ма знам ли - може на човека баш това да му трябва - както пита, така му отговаряме, знаеш, основен проблем в клубовете

бтв, всичко което съм наслагал в дизайн тайм може да се създава рунтиме, включително и формата (тя може и въпще да не трябва...)
;-)

Am I evil?
Yes I am.

може... ма идеята беше за "абсолютния минимум" ;-)))
иначе твоя пример е по-полезен, защото идеологията на Делфито е всичко да е визуално, дори базите. та в крайна сметка е добре да заложи на контролите.
бтв, не се заяждам ;-)))

аха, и аз така реших :-))))

Am I evil?
Yes I am.

Здравейте!
Това примерче не изисква ли на компютъра да има инсталиран access?
Венцислав Александрийски.

Трябва да има инсталиран MDAC, т.е. ADO контролите. MDAC е вграден в Win 2000 и нагоре, докато за 95/98/Ме трябва да се инсталира допълнително. Има го във всеки MS Office, в Delphi, както може да се свали и самостоятелно от сайта на M$.

10x
...Реших !
Юзера ще си отваря базата през стандартния DataLink Properties ...
Пък аз ще му пазя Connection Stringa в inito.