السلام عليكم
عندي كم سؤال أتمنى أن أجد عندكم حلول لها :
السؤال الأول :///
أنا عامله في الSql Server >>
Role , User
وبدي أقرأها وأضيف وأحذف وأعدل عليها
من خلال الفيجوال بيسك
السؤال // كيف ممكن أن يتم ذلك
-----------------------
السؤال الثاني
أريد أن أقرأ اسم الServer من Text file
يعني أكتب اسم السيرفرات اللي ممكن تشتغل عليها برنامج
من خلال Text File
يعني لو كان البرنامج بيشتغل على 3 سيرفرات
اكتب اسم الثلاث سيرفرات في text file
وأقرأهم قرأه من خلال الفيجوال بيسك واخزنهم بدتخل Combo box
ياليت تردوا عليه ولا بأي شيء
السلام عليكم ،،،
بالنسبة للسؤال الأول اختي عليك أولا / تعريف اتصال connection بقاعدة البيانات
ثم بعد ذلك ثانيا / تقومين بتعريف recordset وذلك للتعامل مع السجلات ، وأنا سافترض أنك تعرفين الخطوتين السابقتين ،،،
أما إذا اردت قراءة السجلات ، أو الحذف أو التعديل أو الإضافة من خلال الفيجوال البيسيك فتقومين باستخدام عبارات الـ sql المعهودة
select لقراءة السجلات
insert لإضافة سجلات
update لتحديث السجلات
delete لحذف السجلات
بسم الله والصلاة والسلام على من لا بني بعده
السلام عليكم ورحمة الله وبركاته
الأخت رزان لعمل فايل تكست
Dim path0, srvr_name As String
path0 = App.Path & "\server.txt"
Open path0 For Input As #1
Line Input #1, srvr_name
Close #1
[code]
وإذا كان اسم السرفر اكثر من سيرفر يمكن ان تعملي لوب
do while eof
next
وتضعي مخرجات كل سطر في Combo.additem
اشكركم على الرد
بالنسبة للأخ أبو البراء
فأنا أعرف ذلك ..
ولكن ما كنت أريده هو كيف اضيف User أو تحديد الrole للUser
بعرف اعملها في الSql Server
والمطلوب كيف أعملها على Sql Server
وبار الله فيك
وأنار الله طريقك للخير
---------------------------------------------------------------------
وبالنسبة للرد للأخي الفاضل sism
رد موفق بارك الله فيك
ولكن كيف ممكن أنتقل للسطر التالي في الtext
وكيف ممكن أعرف إني خلص الملف
ووفقكم الله
السلام عليكم ورحمة الله وبركاته
الأخت الفاضلة - تعقيبا على كلامك
اقتباسبعرف اعملها في الSql Server
عندى فكرة قد تكون حل لسؤالك
لماذا لا تعملى Stored Procedure يأخذ منك Parameters لاسم المستخدم وصلاحياته Grant أو Deny أو Revoke وتعطى لكل إجراء اسم مستقل وتنادى عليه من الفيجوال بيزك؟
متهيألى ده حل قوى لمشكلتك
هذا والله أعلم
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
السلام عليكم
اختي رزان طريقة قراءة كافة ما في ملف النص ووضعه في كومبو ،، بهذه الطريقة
MyFileName = "c:\servers.txt" Open MyFileName For Input As #1 Combo1.Clear While Not EOF(1) Input #1, StringHold If Trim(StringHold) <> "" Then Combo1.AddItem StringHold End If Wend Close #1
تحياتي لك
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
وجزاكي اخت رزان
اخي الفاضل Prof مشرف الموقع سبقني بالإجابة عن سؤال التكست فايل جزاه الله كل خير
بارك الله في جميع الأخوة الأعزاء
وكل من رد عليه
أشكرك أخي الفاضل Prof_1982
وربنا يعطيك حتى يرضيك
هذا الموضوع مغلق.