محتاج ربط مكتبة ادو بقاعدة بيانت اكسيس معمولها باسورد
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
محتاج ربط مكتبة ادو بقاعدة بيانت اكسيس معمولها باسورد
السلام عليكم ورحمة الله وبركاته
اولا كل سنه وانتم جميعا طيبين بمناسبه عيد الفطر المجيد وعيد سعيد ع اخواتنا الاقباط وبعد التحيه رجعت اغلس عليكم فى اسالتى ههههه بس عارف انكم بتستحملونى
انا معايا كود ربط مكتبة ادو بقاعدة البيانات لكن الكود لا يصلح لقاعدة بيانات معمولها باسورد فارجو التعديل عليها حتى يتمكن الكود من تشغيل قاعدة بيانات معمولها باسورد وجزاكم الله كل الخير
اولا كل سنه وانتم جميعا طيبين بمناسبه عيد الفطر المجيد وعيد سعيد ع اخواتنا الاقباط وبعد التحيه رجعت اغلس عليكم فى اسالتى ههههه بس عارف انكم بتستحملونى
انا معايا كود ربط مكتبة ادو بقاعدة البيانات لكن الكود لا يصلح لقاعدة بيانات معمولها باسورد فارجو التعديل عليها حتى يتمكن الكود من تشغيل قاعدة بيانات معمولها باسورد وجزاكم الله كل الخير
دا الكود الى معايا وموجود جوة المديول وبقدر اربطه فى اى ركن فى البرنامج بستخدام صب poolconnection:bounce: :
Public DB As New ADODB.Connection
Public RS As New ADODB.Recordset
Public RSS As New ADODB.Recordset
Public SQLs As String
Public UserNames As String
Public UserPassword As String
Sub poolconnection()
If DB.State = adStateOpen Then DB.Close
DB.Provider = "Microsoft.jet.oledb.4.0;"
DB.Open App.Path & "\data.mdb"
End Sub
torky1985- .....
- تاريخ التسجيل : 25/05/2013
المساهمات : 82
النقاط : 115
التقيم : 1
الدولة :
الجنس :
رد: محتاج ربط مكتبة ادو بقاعدة بيانت اكسيس معمولها باسورد
كلعام وانت بخير اخى الكريم .......ويمكن استخدامالكود التالى :
- الكود:
Private Sub cmdOpen_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
' Open the connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Me.txtDbName.Text & ";" & _
"Jet OLEDB:Database Password=" & txtPassword.Text
conn.Open
' Get the data.
Set rs = conn.Execute("SELECT Title FROM Books ORDER BY " & _
"Title")
lstTitles.Clear
Do While Not rs.EOF
lstTitles.AddItem rs!Title
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: محتاج ربط مكتبة ادو بقاعدة بيانت اكسيس معمولها باسورد
التعديل سيكون على النحو التالى :
جيث أن:
UserPassword ....هوالمتغير الذى تم الاعلان عنه فى الوحدة البرمجية المديول ليتمتخزين فية كلمة المرورلقاعدة البيانات
- الكود:
If DB.State = adStateOpen Then DB.Close
DB.Provider = "Microsoft.JET.OLEDB.4.0;Jet OLEDB:Database Password=UserPassword
DB.Open App.Path & "\data.mdb"
جيث أن:
UserPassword ....هوالمتغير الذى تم الاعلان عنه فى الوحدة البرمجية المديول ليتمتخزين فية كلمة المرورلقاعدة البيانات
end.sub- .....
- تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة :
الجنس :
رد: محتاج ربط مكتبة ادو بقاعدة بيانت اكسيس معمولها باسورد
اااااااااااالله انا متشكر اووى ع الرد وع الاكواد الجميله دى وفعلا مسهامتكم دى نادرة وبجد مش موجوده انا دورت عليها ومش لقيت انا بجد متشكر اوى ليكم وكل عام وانتم بالف خير وليا طلب صغير من الاخ الغالى next
وهو شرح صغير للجزء الاخير من الكود وهو الى ف الفقرة خصوصا الى باللون الاحمر واسف لطلبى الزائد ده
ودى مشكله لما احب اربط الاداه نفسها وهى اداة ادو بقاعدة البيانات الى بالسورد بتاعها 123
وهو شرح صغير للجزء الاخير من الكود وهو الى ف الفقرة خصوصا الى باللون الاحمر واسف لطلبى الزائد ده
' Get the data.
Set rs = conn.Execute("SELECT Title FROM BooksORDER BY " & _
"Title")
lstTitles.Clear
Do While Not rs.EOF
lstTitles.AddItem rs!Title
rs.MoveNext
Loop
rs.Close
conn.Close
ودى صورة
بتظهرلى رساله خطىء وطبعا انا بعرف خطواط ربط اداة ادو بالقاعدة بشكل كويس بس انى اربطها بقاعدة بباسورد دا الجديد وسامحونى ع كتر سؤالى
torky1985- .....
- تاريخ التسجيل : 25/05/2013
المساهمات : 82
النقاط : 115
التقيم : 1
الدولة :
الجنس :
رد: محتاج ربط مكتبة ادو بقاعدة بيانت اكسيس معمولها باسورد
انا وصلت للكود والحمد لله وفكرت انى اعرضه هنا عشان يستفيد بيه الى يحتجله
- الكود:
Dim Connect As String
Dim FileSource As String
FileSource = App.Path & "\work.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123"
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= " & FileSource & ""
Adodc1.ConnectionString = Connect
Adodc1.RecordSource = "اسم الجدول"
Adodc1.Refresh
torky1985- .....
- تاريخ التسجيل : 25/05/2013
المساهمات : 82
النقاط : 115
التقيم : 1
الدولة :
الجنس :
رد: محتاج ربط مكتبة ادو بقاعدة بيانت اكسيس معمولها باسورد
مشكور اخى الكريم
VB.NET- المراقبين
- تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة :
الجنس :
رد: محتاج ربط مكتبة ادو بقاعدة بيانت اكسيس معمولها باسورد
الاخ
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
قرات ال sub poolconnection
ثم قرات الحل الذى وجته فى النهايه ووجدت انهم متعارضين
او بالاحرى اعتمدت على ان القارئ يفهم ما تقصده بعمل التبديل والتوفيق
ونسيت ان كثيرا من المطلعين هنا مبتدئين وباحثين ومتعلمين مثلى
الرجاء اعاده كتابه poolconnection كامله بعد التعديل عليها ووضع كيفيه الدخول لقاعده بينات عليها باسورد
ولك تحياتى
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
قرات ال sub poolconnection
ثم قرات الحل الذى وجته فى النهايه ووجدت انهم متعارضين
او بالاحرى اعتمدت على ان القارئ يفهم ما تقصده بعمل التبديل والتوفيق
ونسيت ان كثيرا من المطلعين هنا مبتدئين وباحثين ومتعلمين مثلى
الرجاء اعاده كتابه poolconnection كامله بعد التعديل عليها ووضع كيفيه الدخول لقاعده بينات عليها باسورد
ولك تحياتى
ahmedismayl- ..
- تاريخ التسجيل : 15/01/2014
المساهمات : 24
النقاط : 30
التقيم : 0
الدولة :
الجنس :
رد: محتاج ربط مكتبة ادو بقاعدة بيانت اكسيس معمولها باسورد
اشكرك مهما كان من كلماتك بانى لا اعمل حساب للمبدء على ما قدرت افهم لكنك نسيت شىء مهم ان انا بعتبر نفسى مبتدءا وكل ما اوصل اليه بعرضه بمواضيعى وبالنسبه لطلبك فسامحنى لو حققته هتعدا ع مساهمات اخوا افاضل قد وضعهوها من قبلى فتقدر تبحث عنهاahmedismayl كتب:الاخ
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
قرات ال sub poolconnection
ثم قرات الحل الذى وجته فى النهايه ووجدت انهم متعارضين
او بالاحرى اعتمدت على ان القارئ يفهم ما تقصده بعمل التبديل والتوفيق
ونسيت ان كثيرا من المطلعين هنا مبتدئين وباحثين ومتعلمين مثلى
الرجاء اعاده كتابه poolconnection كامله بعد التعديل عليها ووضع كيفيه الدخول لقاعده بينات عليها باسورد
ولك تحياتى
وبالنسبه للتناقض الى شوفته فدى نظرتك وانا عزرك عليها ............. لكن ف سؤالى كنت طالب ربط بقاعده لها باسورد ولاخر ردودى حتى الكود الى وصلتله فيه الى طلبته ومش حبيت ابخل بالى وصلتله لكن نظرتك اكيد سببها انك مش بحثت عن مواضيع اقدم لاخوى افاضل
torky1985- .....
- تاريخ التسجيل : 25/05/2013
المساهمات : 82
النقاط : 115
التقيم : 1
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد