الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

SQL Server

مغلق
بدأه delphi4me في 31 مايو 2004 · 4 رد · 785 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

قاعدة البيانات من نوع SQL Server هي قاعدة بيانات لا أعلم عنها الا الاسم فقط كي أكون صريحاً و لهذا اردت منكم المساعدة في هذا الموضوع بأي شكل كتب أو ردود أو مواقع أجد فيها ما أبغي...الخ

كما و اتمنى من الاخوة ذوي الخبرة أن يرشدونا على موقع يوجد به Source Code عن كيفية ربط هذه اللغة مع دلفي6 وسأكون لكم بأذن الله شاكراً أرجو أن تفيدونا و تفيدو رواد هذا المنتدى , جزاكم الله عني ألف خير.

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

#2

تريد المساعدة في استخدام البرنامج SQL Server ، ابحث في قسم الSQL Server في هذا المنتدى وستجد ما تريده بإذن الله.

أما عن كيفية الربط مع دلفي فانظر:

/index.php?showtopic=26245

وابحث في الروابط المنشورة في الموضوع:

/index.php?showtopic=39926

تم تعديل هذه المشاركة بواسطة walcom في 1 يونيو 2004 في 00:59

فكر بطريقة أخرى

#3

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

شكراً اخي walcom لردك على موضوعي ولكن بالنسبة لطريقة ربط الSQL Server مع دلفي6 فأعتقد بأنك لم تفهمني حيث ان هذا الكود ليس بكود دلفي فأرجوا منك الرد العاجل

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

post-15-1086303385_thumb.jpg

#4

الحقيقة أنني ليست لدي أدنى معرفة باستخدام دلفي ، ولكن سأحاول إجابتك فيما بعد إن شاء الله باقتباس أكواد من برامج كتبها زملائي الذين لهم معرفة بلغة دلفي.

فكر بطريقة أخرى

#5

لم أجد كود بالدلفي للاتصال بSQL Server ، ولكن وجدت كودا بالC++ builder ، يحوي نفس أفكار الدلفي.

الظاهر انه يستعمل component لا أعرف اسمه بالضبط للاتصال مع SQL Server ، وهذا هو الكود:

void __fastcall Tregfrm::searchClick(TObject *Sender){
        if ( search->Caption =="SEARCH"){
              searchguery->Close();
              searchguery->SQL->Clear();
              searchguery->SQL->Add ("select * from subscriber where s_no = " + sno->Text);
              searchguery->Open();
              name->Text= searchguery->FieldByName("s_name")->AsString;
              stelno->Text= searchguery->FieldByName("s_telno")->AsString;
              snotes->Text= searchguery->FieldByName("s_notes")->AsString;
              add->Enabled = false;
              edit->Enabled = true;
              search->Caption ="End Search";
           }
        else{
              add->Enabled = true;
              edit->Enabled = false;
              search->Caption ="SEARCH";
           }
}
//---------------------------------------------------------------------------

void __fastcall Tregfrm::FormCreate(TObject *Sender){
        regADO->Connected =true;
        edit->Enabled = false;
        save->Enabled = false;
}

فكر بطريقة أخرى

هذا الموضوع مغلق.

مواضيع مشابهة