سؤال عن sql2000 في الدلفي

يا أخ(أخت) khat2005 :

أتمنى أن تراجع الموضوع

/index.php?showtopic=74491&st=15' target='_blank'>

الذي طرحته في المنتدى لعله يساعدك ..

وفية أكواد دلفي مع سكول سيرفر و إليك هذا الكود :

لكي تتصل بمخدم سكول على جهاز اّخر ضمن الشبكة ....

وأريد أن أشير إليك أن تتحقق من صلاحيات النظام فربما يكون الحساب الذي تدخل فيه على الجهاز البعيد حساب مستخد وليس مدير

وهذا يمكن أن يمنعك من الوصول أيضاً ....................

// server_name : pc_name 
// الذي تريد الإتصال به عبر الشبكة

function Connect_Sql(adC : TADOConnection;DataBase : String; Server_name : string;
username,Password : String; SYSMANAGER : Boolean ): Boolean;
begin
 Result := False;
Try
 adC.Close;
 adC.Properties.Item[5].Value := Server_name;

 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)

شكرا لك أخي imadouzoun على الرد ولكن انا قمت باضافة function وعندما اريد أعمل اتصال يطلب اليوزر والباسوورد ويظهر رساله لم يتم العثور على مصدر البيانات ارجو ان لا اكون قد ازعجتك ولكن العملية هذه جديده عليه واريد اصل اليها فاذا بالامكان تقف معي لوسمحت . ايضا اخي انا اشغل قاعدة بيانات برادوكس على الشبكة ولكني اريد انتقل الى msql . اخي انا اسف على كثرة الكلام ولكني اريد اوصل الموضوع اليك . حيث عملت برنامج ضخم جدا على الباردوكس وشغال على الشبكة عدد الاجهزة المتصله بالجهاز الرئيسي 5 اجهزة ولكن بعض الاحيان تظهر رساله وهي invalid parmter ماادري ماهي والآن أقوم بتحويل الباردوكس الى mssql - انتر برايس واعمل اكسمبورت لبيانات البارادوكس وتحويلها مباشرة الى mssql العملية تسير بشكل ممتاز إلا ان البيانات تتحول الى رموز غير مفهومة بدل العربية أرجو منكم مساعدتي والتوضيح أكثر بقدر المستطاع ولكم الشكر والتقدير .

السلام عليكم :

الحقيقة أنا مستغرب من الكلام الذي تقولينه لأن الكود يحوي السطر التالي :

adc.LoginPrompt:= False;

هذا السطر يمنع نافذة إدخال كلمة السر والباسوورد من الظهور أصلاً .. فكيف تظهر عندك يا أخت .

:lol: :lol: :lol:

على كل حال بعد تنفيذ الدالة السابقة بنجاح فإنها ستعيد True وبسهولة :

Ado : AdoTable or AdoQuery

AdoTable.TableName := 'MyTb ';
or :
AdoQuery.sql.text := 'select  *  from MyTb';
ثم :
Ado.Active := True;

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