طريقة انشاء قاعدة بيانات SQL برمجيا
صفحة 1 من اصل 1
طريقة انشاء قاعدة بيانات SQL برمجيا
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله و أصحابه أجمعين
طريقة انشاء قاعدة بيانات 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;
الصلاة والسلام على رسول الله وعلى آله و أصحابه أجمعين
طريقة انشاء قاعدة بيانات 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- مبرمج مجتهد
- عدد المساهمات : 157
تاريخ التسجيل : 29/04/2015
مواضيع مماثلة
» هذه طريقة انشاء قاعدة بيانات بفزيال سي زائد زائد وبجداولها 22
» هذه طريقة انشاء قاعدة بيانات بفزيال سي زائد زائد وبجداولها 1
» خطوات انشاء قاعدة بيانات بمعالج و خطوات انشاء قاعدة بيانات يدويا
» طريقة ربط المجموعة FireDAC بقاعدة البيانات Accesse كذلك انشاء قاعدة بيانات Accesse والجداول
» انشاء جدول قاعدة بيانات من نوع بارادوكس
» هذه طريقة انشاء قاعدة بيانات بفزيال سي زائد زائد وبجداولها 1
» خطوات انشاء قاعدة بيانات بمعالج و خطوات انشاء قاعدة بيانات يدويا
» طريقة ربط المجموعة FireDAC بقاعدة البيانات Accesse كذلك انشاء قاعدة بيانات Accesse والجداول
» انشاء جدول قاعدة بيانات من نوع بارادوكس
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى