procedure CreateSQLBase;
var myADO : TADOQuery;
NameSQLBase,NameSQLTable,NameSQLServer : string;
 
begin
myADO:=TADOQuery.Create(self);
myADO.ConnectionString:='Provider=SQLOLEDB.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,NameSQLServer : string;
 
begin
myADO:=TADOQuery.Create(self);
myADO.ConnectionString:='Provider=SQLOLEDB.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;