Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ODBC [D6, MS Access]

Zlod3y © (2004-06-30 10:59:00)
Как заставить работать этот код.........следуйте по ссылке....
http://delphibase.endimus.com/?action=viewfunc&topic=baseaccess&id=10369>http://delphibase.endimus.com/?action=viewfunc&topic=baseaccess&id=10369

Zlod3y (2004-06-30 14:13:00) [1]
Всё работает!!!

так нельзя:
procedure TForm1.FormCreate(Sender: TObject);
begin
CreateODBCDriver(ExtractFilePath(Application.ExeName) + 'db1.mdb', 'mybase');
end;

а так можно:
procedure TForm1.FormCreate(Sender: TObject);
var basepath:string;
begin
basepath:=ExtractFilePath(Application.ExeName) + 'db1.mdb';
CreateODBCDriver(basepath, 'mybase');
end;

ТОЛЬКО ПОЧЕМУ ТАК?!

oleg_krechetov (2004-06-30 13:34:00) [2]
Удалено модератором
Примечание: Личная переписка

Zlod3y (2004-06-30 13:27:00) [3]
Удалено модератором
Примечание: Личная переписка

Zlod3y (2004-06-30 13:23:00) [4]
а какая собстно разница? но попробую :)

oleg_krechetov (2004-06-30 13:08:00) [5]
Да нету её (ICQ) :>(

oleg_krechetov (2004-06-30 13:07:00) [6]
У тебя функция в отдельном модуле?
Если да, то попробуй запихать ее в ту где её вызываеш.

Zlod3y (2004-06-30 13:06:00) [7]
мой icq 215-418-759, давай по аське

Zlod3y (2004-06-30 12:58:00) [8]
Было вот так:

if CreateODBCDriver(ExtractFilePath(Application.ExeName) + 'db1.mdb', 'mybase')=true
then ShowMessage(':^)')
else ShowMessage(':-(');

выдавало ":-("

oleg_krechetov (2004-06-30 12:50:00) [9]
procedure TForm1.Button1Click(Sender: TObject);
begin
if CreateODBCDriver(ExtractFilePath(Application.ExeName) + 'Base.mdb', 'mybase')= True then
MessageDlg('Create DB', mtConfirmation, [mbYes], 0)
else
MessageDlg('Not Create DB', mtError, [mbYes], 0);
end;

Попробуй так и смотри что пишет.

Zlod3y (2004-06-30 12:45:00) [10]
Я там и смотрю..... :)

oleg_krechetov (2004-06-30 12:40:00) [11]
Открой ODBC->System DSN и посмотри.
Читай внимательно
"Функция создает ODBC драйвер для MSAccess.
В функцию передается имя файла и имя для драйвера.
В конкретной редакции драйвер создается в разделе "System DSN".
"
Все она создает.

Zlod3y (2004-06-30 12:31:00) [12]
Я так и делаю...
CreateODBCDriver(ExtractFilePath(Application.ExeName) + 'db1.mdb', 'mybase');

Zlod3y (2004-06-30 12:24:00) [13]
В том то и проблема что в ODBC не добавляется алиас!

oleg_krechetov (2004-06-30 12:22:00) [14]
procedure TForm1.Button1Click(Sender: TObject);
begin
CreateODBCDriver('C:\Base.mdb', 'My_Base');
end;

oleg_krechetov (2004-06-30 12:11:00) [15]
А в чем собственно проблема?

Zlod3y (2004-06-30 11:19:00) [16]
Извините, не знал особенностей форума, вот нормальная ссылка:
http://delphibase.endimus.com/?action=viewfunc&topic=baseaccess&id=10369

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »