طريقة انشاء قاعدة بيانات SQL برمجيا

اذهب الى الأسفل

طريقة انشاء قاعدة بيانات SQL برمجيا

مُساهمة  djelal في 23/7/2018, 1:56 pm

بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله و أصحابه أجمعين

طريقة انشاء قاعدة بيانات SQL برمجيا

انشاء قاعدة بيانات SQL برمجيا في المسار التالي
C:\dbas
ثم انشاء جدول Table داخل قاعدة بيانات

ماهي تعليقاتك واقتراحتكم التي ترونها والاخطاء التي قد تلاحظناها

ملاحظة
Microsoft SQL Server

procedure TForm1.btnCreateClick(Sender: TObject);
var // Create Database and Table
ConnectStr, CreatDB: string;
CreatTabe: string;
begin
ConnectStr := 'Provider=SQLOLEDB.1;'+
'Integrated Security=SSPI;'+
'Persist Security Info=False;'+
'Data Source=PCSAD\SQLEXPRESS';

/// اسم سيرفير PCSAD\SQLEXPRESS
/// تكتب مكانه اسم السيرفير الوجود عندك

// Create Database
CreatDB := 'IF NOT EXISTS(SELECT name FROM sys.databases '+
'WHERE name = N''TestBase1'')'+
'CREATE DATABASE [TestBase1] ON PRIMARY'+
'(NAME = N''TestBase1'','+
' FILENAME = N''C:\dbas\TestBase1.mdf'' ,'+
' SIZE = 3072KB , MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB ) LOG ON'+
'( NAME = N''TestBase1_log'', '+
' FILENAME = N''C:\dbas\TestBase1_log.ldf'' ,'+
' SIZE = 1024KB , MAXSIZE = 2048GB , FILEGROWTH = 10%)';

// Create Table
CreatTabe := 'USE [TestBase1] '+
'IF NOT EXISTS(SELECT * '+
'FROM sys.objects '+
'WHERE object_id = OBJECT_ID(N''[dbo].[tab02]'') AND type in (N''U'')) '+
'CREATE TABLE [dbo].[tab02]('+
'[code] [int] NOT NULL,'+
'[nom1] [nvarchar](20) NULL,'+
'[nom2] [nvarchar](20) NULL,'+
'[datee] [datetime] NULL,'+
'[salur] [money] NULL,'+
'[points] [real] NULL,'+
'[poi] [float] NULL,'+
'[notes] [text] NULL,'+
'[hoto1] [image] NULL,'+
'CONSTRAINT [PK_tab02] PRIMARY KEY CLUSTERED '+
'('+
'[code] ASC '+
')WITH (PAD_INDEX = OFF,'+
' STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF,'+
' ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] '+
') ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]';

ADOConnection1.ConnectionString := ConnectStr;

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.Connection := ADOConnection1;
ADOQuery1.SQL.Add(CreatDB);
ADOQuery1.SQL.Add(CreatTabe);
ADOQuery1.ExecSQL;

Button1.Enabled := false;

end;

procedure TForm1.btnOpenClick(Sender: TObject);
var
ConnectStr, SelStr: string;
begin
ConnectStr := 'Provider=SQLOLEDB.1;'+
'Integrated Security=SSPI;'+
'Persist Security Info=False;'+
'Initial Catalog=TestBase1;'+
'Data Source=PCSAD\SQLEXPRESS';

SelStr := 'SELECT * FROM tab02';

// Open Database
ADOConnection1.ConnectionString := ConnectStr;
ADOConnection1.LoginPrompt := false;
ADOConnection1.Connected := true;

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.Connection := ADOConnection1;
ADOQuery1.SQL.Add(SelStr);
ADOQuery1.Open;

DataSource1.DataSet := ADOQuery1;
DBGrid1.DataSource := DataSource1;
DBMemo1.DataSource := DataSource1;
DBMemo1.DataField := 'notes';

DBImage1.DataSource := DataSource1;
DBImage1.DataField := 'hoto1';

end;

djelal
مبرمج

عدد المساهمات : 54
تاريخ التسجيل : 29/04/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى