Помогите создать базу SQL на Делфи

[photozaz]

Если можно, то подробно раскажите как в делфи создать базу данных SQL. С SQL столкнулся первый раз, уже перепробывал много вариантов но ни чего не выходит в некоторых случаях выдает сообщение ::

"File or directory does not exist.
File ..\....\employee.db
File ..\....\employee.dbf
File ..\....\employee.txt "

Читал несколько статей - понял, что employee.db это какаето стандартаная база на SQL.. может чегото не хватает?

[mihali4]

Из правил форума:

2.При создании новых тем запрещено:
...
2.2 Создавать одинаковые темы в разных разделах.
Администратор и Модераторы могут поставить штраф "№2 Кросс постинг".

По сути. Не существует "баз данных SQL". Есть базы данных (набор упорядоченных записей) и есть Системы Управления Базами Данных, которые могут поддерживать или не поддерживать SQL.

[wsw]

Создать БД на SQL-сервере:

procedure CreateSQLBase;
var myADO : TADOQuery;
NameSQLBase,NameSQLTable,NameSQLSer ver : string;

begin
myADO:=TADOQuery.Create(self);
myADO.ConnectionString:='Provider=S QLOLEDB.1;'+
'Integrated Security=SSPI;'+
'Persist Security Info=False;'+
'Data Source='+NameSQLServer;
myADO.SQL.Clear;
myADO.SQL.Text:='CREATE DATABASE '+NameSQLBase;
try
myADO.ExecSQL;
except
ShowMessage('База данных с именем: "'+NameSQLBase+'" - уже существует...');
end;
myADO.Free;
end;

Создать таблицу на SQL-сервере:

procedure CreateSQLTable;
var myADO : TADOQuery;
NameSQLBase,NameSQLTable,NameSQLSer ver : string;

begin
myADO:=TADOQuery.Create(self);
myADO.ConnectionString:='Provider=S QLOLEDB.1;'+
'Integrated Security=SSPI;'+
'Persist Security Info=False;'+
'Initial Catalog='+NameSQLBase+';'+
'Data Source='+NameSQLServer;

myADO.SQL.Clear;
myADO.SQL.Text:='CREATE TABLE NameSQLTable ('+
'[Number] [int] IDENTITY (1,1) NOT NULL ,'+
'[Chek] [Bit] NULL , '+
'[Text1] [varchar] (10) NULL ,'+
'[Text2] [varchar] (20) NULL ,'+
//поля таблицы......
'[Text3] [varchar] (30) NULL ,'+
'[Text4] [varchar] (255) NULL ,'+
'[Chislo] int,'+
'[Comment] memo,'+
' ON [PRIMARY]';
try
myADO.ExecSQL;
except
ShowMessage('Ошибка создания таблицы "'+NameSQLTable+'", или'+#13+#10+
'такая таблица уже существует...');
end;
myADO.Free;
end;

[Virus666999]

вот неплохой пример!!!!
http://arcotel.narod.ru/Bases.rar (пароль:456017)