Скачать: CL | DM;

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]

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

---

← →
oleg_krechetov ©   (2004-06-30 13:08) [12]

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

---

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

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

---

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

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

---

← →
oleg_krechetov ©   (2004-06-30 13:34) [15]

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

---

← →
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;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.02 c