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

[bouh25]

يمكنك ان تضع جدول تحتفض ببيانات كل شهر لكل عامل. افضل من حفظ قاعدة المعطيات ككل

[Mr.DOS]

سلام عليكم
جهزت لك مثال لانشاء  جدول جديد برمجيا +  تحديد اي جدول تريد العمل عليه
فقط عليك بتطوير المثال حتى يتناسب مع برنامجك
قاعدة البيانات المستعملة  access اتمنى ان يفيدك
Project  /  Release

[nassim]

السلام عليكم

لقد اعددت لك مثال بسيط اتمنى ان يفي بالغرض

سلام.

[Delphi4Us]

في قواعد بيانات الاسكيوال سيرفر يتم عن طريق هذه الجملة

كود :

str = "CREATE DATABASE MyDatabase ON PRIMARY " +        "(NAME = MyDatabase_Data, " +        "FILENAME = 'C:\\MyDatabaseData.mdf', " +        "SIZE = 2MB, MAXSIZE = 10MB, FILEGROWTH = 10%) " +        "LOG ON (NAME = MyDatabase_Log, " +        "FILENAME = 'C:\\MyDatabaseLog.ldf', " +        "SIZE = 1MB, " +        "MAXSIZE = 5MB, " +        "FILEGROWTH = 10%)";

---

باستخدام  Dbexpress

كود :

procedure TIBConnection.CreateDB; var ASQLDatabaseHandle,    ASQLTransactionHandle : pointer;    CreateSQL : String;    pagesize : String; begin  CheckDisConnected;  {$IfDef LinkDynamically}    InitialiseIBase60;  {$EndIf}  ASQLDatabaseHandle := nil;  ASQLTransactionHandle := nil;  CreateSQL := 'CREATE DATABASE ';  if HostName <> '' then    CreateSQL := CreateSQL + ''''+ HostName+':'+DatabaseName + ''''  else    CreateSQL := CreateSQL + '''' + DatabaseName + '''';  if UserName <> '' then    CreateSQL := CreateSQL + ' USER ''' + Username + '''';  if Password <> '' then    CreateSQL := CreateSQL + ' PASSWORD ''' + Password + '''';  pagesize := params.Values['PAGE_SIZE'];  if pagesize <> '' then    CreateSQL := CreateSQL + ' PAGE_SIZE '+pagesize;  if isc_dsql_execute_immediate(@FStatus[0],@ASQLDatabaseHandle,@ASQLTransactionHandle,length(CreateSQL),@CreateSQL[1],Dialect,nil) <> 0 then    CheckError('CreateDB', FStatus);  if isc_detach_database(@FStatus[0], @ASQLDatabaseHandle) <> 0 then    CheckError('CreateDB', FStatus);  {$IfDef LinkDynamically}    ReleaseIBase60;  {$EndIf} end;

---

باستخدام fairdac

كود :

fConnection.LoginPrompt := false; fConnection.ResourceOptions.SilentMode := true; fConnection.Params.Clear; fConnection.Params.Add(Format('DriverID=%s',          ['IB'])); fConnection.Params.Add(Format('Database=%s',          [fConnectionInfo.xDatabase])); fConnection.Params.Add(Format('CharacterSet=%s',      ['UTF8'])); fConnection.Params.Add(Format('user_name=%s',         [fConnectionInfo.xUserName])); fConnection.Params.Add(Format('password=%s',          [fConnectionInfo.xPassword])); fConnection.Params.Add(Format('ExtendedMetadata=%s',  ['True'])); fConnection.Params.Add(Format('CreateDatabase=%s',    ['Yes'])); fConnection.Params.Add(Format('Protocol=%s',          ['Local'])) //database path = C:\Users\LoginName\AppData\Local\AppName\TestDB.FDB

---

باستخدام Ziese 

كود :

procedure TForm1.Button1Click(Sender: TObject); begin    ZConnection1.Protocol := 'sqlite-3';    ZConnection1.Database := 'foo.s3db';    if not FileExists('foo.s3db') then    begin        ZConnection1.Connect;        ZConnection1.ExecuteDirect('create table foo (bar integer)');    end    else        ZConnection1.Connect;    ZConnection1.Disconnect; end;

---

ولانشاء جدول

كود :

procedure TForm1.CreateInsertClick(Sender: TObject); begin    ZQuery1.SQL.Text := 'CREATE TABLE hardware (id INTEGER PRIMARY KEY, compname VARCHAR(30), username VARCHAR(30), model VARCHAR(30))';    ZQuery1.ExecSQL;    ZQuery1.SQL.Text := 'CREATE INDEX sHardware ON hardware(compname)';    ZQuery1.ExecSQL;    ZQuery1.SQL.Text := 'INSERT INTO hardware(id, compname, username, model) VALUES (1, "AMD8537", "OMonge", "Gigabyte");';    ZQuery1.ExecSQL; end;

[h-farid]

السلام عليكمك ورحمة الله

...و الحديث عن الاتصال بقواعد البيانات يجرنا إلى الحديث عن الـ Connection string الخاص بكل نوع منها, و في ذلك موقع www.connectionstrings.com و هوموقع شامل لأنواع الاتصالات الخاصة بكل نوع من ق/ب...