ODBC

← →
Zlod3y (2004-06-30 10:59) [0]

Как заставить работать этот код.........следуйте по ссылке....
<a href=http://delphibase.endimus.com/?action=viewfunc&topic=baseaccess&id=10369>http://delphibase.endimus.com/?action=view func&topic=baseaccess&id=10369</a>

← →
Zlod3y (2004-06-30 11:19) [1]

Извините, не знал особенностей форума, вот нормальная ссылка:
http://delphibase.endimus.com/?action=viewfunc&topic=baseaccess&id=10369

← →
oleg_krechetov © (2004-06-30 12:11) [2]

А в чем собственно проблема?

← →
oleg_krechetov © (2004-06-30 12:22) [3]

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateODBCDriver("C:\Base.mdb", "My_Base");
end;

← →
Zlod3y (2004-06-30 12:24) [4]

В том то и проблема что в ODBC не добавляется алиас!

← →
Zlod3y (2004-06-30 12:31) [5]

Я так и делаю...
CreateODBCDriver(ExtractFilePath(Application.ExeName) + "db1.mdb", "mybase");

← →
oleg_krechetov © (2004-06-30 12:40) [6]

Открой ODBC->System DSN и посмотри.
Читай внимательно
"Функция создает ODBC драйвер для MSAccess.
В функцию передается имя файла и имя для драйвера.
В конкретной редакции драйвер создается в разделе "System DSN".
"
Все она создает.

← →
Zlod3y (2004-06-30 12:45) [7]

Я там и смотрю..... :)

← →
oleg_krechetov © (2004-06-30 12:50) [8]

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:58) [9]

Было вот так:

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

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

← →
Zlod3y (2004-06-30 13:06) [10]

мой icq 215-418-759, давай по аське

← →
oleg_krechetov © (2004-06-30 13:07) [11]

У тебя функция в отдельном модуле?
Если да, то попробуй запихать ее в ту где её вызываеш.

Да нету её (ICQ) :>(

← →
Zlod3y (2004-06-30 13:23) [13]

а какая собстно разница? но попробую :)

← →
Zlod3y (2004-06-30 13:27) [14]

Удалено модератором
Примечание: Личная переписка

← →
Zlod3y (2004-06-30 14:13) [16]

Всё работает!!!

так нельзя:
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;

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

ODBC Найти похожие ветки