Начать работу с БД, ADO, SQL

[Баламут]

На самом деле создать базу достаточно просто. Для Access это выглядит следующим образом. Для начала импортируем библиотеку Microsoft ADo Ext xxx. Далее привожу для Д2010. Для Д7 будет немного отличаться, но не принципиально. Component -> Import component -> Import type library -> Microsoft ADo Ext. Далее пишем код

uses .... ADOX_TLB...

procedure TForm1.Button1Click(Sender: TObject);
var
  Catalog: _Catalog;
begin
//Создаем саму базу
 Catalog := coCatalog.Create;
 Catalog.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source = test.mdb');

//Создаем таблицу
 ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source = test.mdb';
 ADOConnection1.Connected := true;

 ADOConnection1.Execute('CREATE TABLE testBD (id AUTOINCREMENT PRIMARY KEY, aName VARCHAR(100))');
end;

Вот собственно и все. Для случая с MS SQL Server еще проще. Просто коннектимся к базе Master и выполняем SQL-скрипт для создания базы.

Для выбора подключения пишем следующее

uses ADOConEd

procedure TForm1.Button2Click(Sender: TObject);
begin
  EditConnectionString(ADOConnection1);
end;

[norfonzor]

ммм мне немного не то соединение надо. Мне надо загрузить БД из файла для ее просомтра/редактирования/сохранения. я нашел код создания новой БД:

function CreateAccessDatabase(FileName: string): string;
 var
    cat: OLEVariant;
 begin
   Result := '';
   try
     cat := CreateOleObject('ADOX.Catalog');
     cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';');
     cat := NULL;
   except
     on e: Exception do Result := e.message;
   end;
 end;

как мне ее сохранить?

[vovk]

При создании базы вы же знаете (ну или программа знает) имя файла и путь к нему, ну и соединяйтесь по этому пути FileName как я понимаю

[norfonzor]

Уау. Баламут, код работает =) и база сама сохраняется
а как сохранить и открыть ее с паролем?

[Баламут]

Сообщение от norfonzor

а как сохранить и открыть ее с паролем?

Ну тут немного муторно, но не сложно. Во-первых, для задания пароля на базу пишем что-то вроде этого

 ADOConnection1.Execute('ALTER DATABASE PASSWORD Старый_пароль Новый_пароль')

При этом не забываем про синтаксис SQL и null. А открыть запароленную базу можно с помощью строки подключения примерно такого содержания: 'Provider=Microsoft.Jet.OLEDB.4.0;D ata Source= %s; Password=%s';, где вместо %s ставим имя базы и пароль, соответственно.

[norfonzor]

вот что у меня получилось:

procedure TFrmMain.BitBtn1Click(Sender: TObject);
var
  Catalog: _Catalog;
begin
 Catalog := coCatalog.Create;
 Catalog.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source = testpass.mdb');
 ADOConnection1.Execute('ALTER DATABASE PASSWORD 123');


 ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source= testpass.mdb; Password=123';

end;

Да еще при загрузке появляется окно:

где в имя надо вводить Admin. Как его убрать? Да и создать БД с паролем не получается, появляется ошибка, я что то не так сделал. Да еще если исходного пароля нет то его не писать?

[vovk]

Да еще при загрузке появляется окно:

ADOConnection1.loginpromt:=false

[Баламут]

Сообщение от norfonzor

Да и создать БД с паролем не получается, появляется ошибка, я что то не так сделал. Да еще если исходного пароля нет то его не писать?

Внимательно перечитать мой пост. Я не просто так сказал о null.

[norfonzor]

вместе пустого пароля поставить nil =) попробую
везде уже вставлял строку и всячески менял ее

ADOConnection1.Execute('ALTER DATABASE PASSWORD nil, 123');

появляется ошибка и все.
Баламут, может код целиком дать что и зачем и почему у меня не получается его сделать.

[norfonzor]

Мда еще 1 вопрос:
если мне необходимо вставить данные в таблицу то в SQL это делает так:

INSERT INTO table_name(field_name1, field_name2) values('Content1','Content2')

в делфи эту команду помещаю в

ADOConnection1.Execute('');

делфи знак " ' " распознает как символ конца/начала строки и не получается добавить запись. подскажите пожалуйста как добавить записи в таб ?