get sql server info with delphi

كمان : العنوان

إتصل ب sql server وبقاعدة البيانات التي تحددها

وبال login الدي تريد كمدير Admin أو كـ User ياسم مستخدم وكلمة مرور ://----------------

{هذه الدالة connect_sql يمكن استخدامها بسهولة بتقديم البارامترات اللازمة لها }

//( تحديد كيفية الإتصال على شكل مدير نظام أم (بكلمة مرور مع اسم المستخدم

function Connect_Sql(adC : TADOConnection;DataBase : String;
username,Password : String; SYSMANAGER : Boolean ): Boolean;
begin
  Result := False;
Try
  adC.Close;
  adc.Properties.Item[5].Value := '(local)';
  if(SYSMANAGER)then
  begin
    adc.ConnectionString := 'Provider=SQLOLEDB.1;' +
    'Integrated Security=SSPI;' +
    'Persist Security Info=False;' +
    'Initial Catalog=' + DataBase;
  end
  else
  begin
    adC.ConnectionString :=
    'Provider=SQLOLEDB.1;' +
    'Password=' + Password + ';' +
    'Persist Security Info=True;' +
    'User ID=' + Username + ';' +
    'Initial Catalog=' + DataBase;
  end;
  try
    adc.Connected := True;
    adc.LoginPrompt:= False;
    result := True;
  except
    result := False;
  end;

  if(adC.Connected)then
    Application.MessageBox(Pchar('تم الإتصال بنجاح'),Pchar('نجاح'),MB_OK);
Except
  Result := False;
end;
end;

المبرمج عماد B)

بسم الله الرحمن الرحيم

الأخ المبرمج عماد

نشكرك على طرحك للعلم وبذله لأخوانك هنا

كما و نعتذر عن دمج تلك المواضيع المتفرقه ووضعها في مشاركه واحدة

و أرجو منك ان لا تتوسع في نشر كل كود في موضوع مستقل وان تستخدم خاصية الكود

بارك الله في علمك و عملك

B) B) B) مع قواعد البيانات :::::::::::::: B) B) B)

// إضافة User's Login إلى قاعدة بياناتك

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.Connected := True;
  ADOCommand1.CommandText  := 'Exec SP_AddLogin ' + QuotedStr('UserName') +
    ',' + QuotedStr('Password') + ',' + QuotedStr('Database Name') + ',' +
    QuotedStr('English') + ';';
  ADOCommand1.Execute;
end

;

// ضغط وإصلاح قاعدة البيانات عن طريق دلفيAccess

uses
  ComObj;

function CompactAndRepair(DB: string): Boolean; {DB = Path to Access Database}
var 
  v: OLEvariant;
begin
  Result := True;
  try
    v := CreateOLEObject('JRO.JetEngine');
    try
      V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB,
                        'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+'x;Jet OLEDB:Engine Type=5');
      DeleteFile(DB);
      RenameFile(DB+'x',DB);
    finally
      V := Unassigned;
    end;
  except
    Result := False;
  end;
end;

المبرمج عماد

الأخ romanof لي طلبين عندكم :

1- وضع الأسئلة التي تخص الـ DLL خارج هدا الموضوع لأنه لا ينطوي تحت العنوان اللي اقترحته ...... أليس كدلك ؟؟؟؟؟؟

2- أرجو مرة أخرى منك تعديل العنوان إلى

get sql server info with delphi أو ما يقابلها بالغة العربية ...وشكراً لك ..

لأنه سيكون هناك المزيد إن شاء الله تحت هدا البند ... فاهمني ؟؟؟؟؟؟؟ B) B) B)

مو هيك ؟؟؟؟؟؟؟؟

أخوك المبرمج عماد B)

و الاّن اّن الأوان لكود جديد مع سكول سيرفر أليس كدلك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

هدا مثال رائع مني للشباب في المنتدى لإنشاء قاعدة بيانات سكول مع تحديد مسار هدة القاعدة ...

فنحن بالخدمة ولو !!!!!!!!! B) B)

Create_DB.rar