انشاء قاعدة بيانات من البرنامج
#11
يمكنك ان تضع جدول تحتفض ببيانات كل شهر لكل عامل. افضل من حفظ قاعدة المعطيات ككل
الرد
#12
سلام عليكم
جهزت لك مثال لانشاء  جدول جديد برمجيا +  تحديد اي جدول تريد العمل عليه
فقط عليك بتطوير المثال حتى يتناسب مع برنامجك
قاعدة البيانات المستعملة  access اتمنى ان يفيدك
Project  /  Release
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر
[-] كل من 2 users say قال شكرا ل Mr.DOS على المشاركة المفيدة
  • h-farid, wadoud
الرد
#13
السلام عليكم

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

سلام.


الملفات المرفقة
.rar   BDD_Chang.rar (الحجم : 99.24 KB / التحميلات : 26)
لا يمكن تحقيق النجاح الا إذا أحببت ما تقوم به  Idea
الرد
#14
في قواعد بيانات الاسكيوال سيرفر يتم عن طريق هذه الجملة

كود :
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;
قال فرعون سأقتل رب موسى ومع ذلك قال الله لموسى اذهب لفرعون وقل له قولاً ليناً لعله يتذكر او يخشى
فما بالك برحمة الله لمن قال لا أله الا الله
الرد
#15
السلام عليكمك ورحمة الله

...و الحديث عن الاتصال بقواعد البيانات يجرنا إلى الحديث عن الـ Connection string الخاص بكل نوع منها, و في ذلك موقع www.connectionstrings.com و هوموقع شامل لأنواع الاتصالات الخاصة بكل نوع من ق/ب...
من قال حاد عن أصله أو قال مات فقد كذب
[-] كل من 1 user says قال شكرا ل h-farid على المشاركة المفيدة
  • bassem_43
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف