Форум: "Начинающим";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];

Вниз

Как открыть базу зная имя?   Найти похожие ветки 

← →
ALLON   (2007-04-19 00:18) [0]

Есть код - но по нему невидна базы  *.mdb,
хотя диалог появляется

var
 lADOQuery: TADOQuery;
 lUniqueNumber: Integer;
begin
 if Trim(EditTextBox.Text) <> "" then
   begin
     lADOQuery := TADOQuery.Create(nil);
     with lADOQuery do
       begin
         ConnectionString := Global_DBConnection_String;
         SQL.Text :=
           "SELECT Number from Users";
         Open;
         Last;
     // Generate Unique Number (AutoNumber in Access)
         lUniqueNumber := 1 + StrToInt(FieldByName("Number").AsString);

где
Global_DBConnection_String :=
   "Provider=Microsoft.Jet.OLEDB.4.0;" +
   "Data Source=" + lDBPathName + ";" +
   "Persist Security Info=False;" +
   "Jet OLEDB:Database Password=" + lsDBPassword;
         Close;

А надо открыть уже известную базу, без всяких диалогов,
открыть и работать с указанной таблицой BAZE

выкопал код с форума - говорят работает,но
начала нет что открыват? какую таблицу

adoquery1.open;
adoquery1.sql.text:="insert into base values (1, 2, 3)";
adoquery1.execsql;

---

← →
Kostafey ©   (2007-04-19 00:55) [1]

> var
> lADOQuery: TADOQuery
> lADOQuery := TADOQuery.Create(nil);

А в чем необходимость создавать набор данных Run-Time ?


> выкопал код с форума - говорят работает,но
> начала нет что открыват? какую таблицу
>
> adoquery1.open;
> adoquery1.sql.text:="insert into base values (1, 2, 3)";
>
> adoquery1.execsql;

Это шутка?

---

← →
Johnmen ©   (2007-04-19 08:57) [2]

>          Last;
>      // Generate Unique Number (AutoNumber in Access)   
>        lUniqueNumber := 1 + StrToInt(FieldByName("Number").
> AsString);

Это прикол?

---

← →
DrPass ©   (2007-04-19 11:13) [3]

> выкопал код с форума - говорят работает

На форуме и не такое могут сказать...

---

← →
ALLON   (2007-04-19 11:57) [4]

[1] необходимости нет, для этого и создал отдельно в Access
новый файл-новая базаdb1.mdb конструктор
первое поле Count - счетчик
второе Name  - текстовое 255
третье Size - текстовое 20

Имя таблицы WIN, ключевые поля не заданы

открываю так и ничего не делаю ,там автоматом создается db1.ldb
если закрыть приложение
выскакивает табличка ошибка оле - BOF или EOF имеет значение True

procedure TForm1.ConnectToAccessDB(lDBPathName, lsDBPassword: string);
begin
 Global_DBConnection_String :=
   "Provider=Microsoft.Jet.OLEDB.4.0;" +
   "Data Source=" + lDBPathName + ";" +
   "Persist Security Info=False;" +
   "Jet OLEDB:Database Password=" + lsDBPassword;

 with ADOTable1 do
   begin
     ConnectionString := Global_DBConnection_String;
     TableName := "WIN";
     Active := True;
   end;
end;

function TForm1.AddLog(s1,s2:string):bool;
begin
//ADOTable1.SQL.Text := "INSERT INTO Users Values ( s1,s2);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s,s2,FF:string;
d:integer;
begin
FileListBox1.Directory:="C:\WINDOWS";
FileListBox1.Mask:="*.dll";
FileListBox1.Update;
FF:="c:\db1.mdb";
ConnectToAccessDB(FF,""); // open
For i:=0 to FileListBox1.Items.Count-1 do begin
s:=FileListBox1.Items.Strings[i];
//d:=FileSize(f
//str(d,s);
//s2:=s+" bytes";
s2:="test size";
AddLog(s,s2);
end;
end;

---

← →
Kostafey ©   (2007-04-19 13:23) [5]

То есть тебе просто нужно подключится к *.mdb - файлу?

Лучше сделай подключение через ADOConnection.
Его свойство ConnectionString удобно считывать из .udl- файла.
Свойства Connection компонентов ADODataSet (ADOTable) настраиваешь
на ADOConnection.

А вообще:
http://delphikingdom.ru/asp/viewitem.asp?catalogid=408
(сам недавно читал)

---

← →
ALLON   (2007-04-19 18:57) [6]

[5]
да делаю как можно проще
.udl- впервые слышу

за статью спасибо читаю, и попробую

---

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

Форум: "Начинающим";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.077 c