تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] ارجو المساعدة والتعديل في هدا الكود
#1
Private Sub Command1_Click
()
On Error Resume Next: Err.Clear
Adodc1.RecordSource = "select * from logtable where names='" & Text1.Text & "' and pass='" & Text2.Text 
  " '" &

Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "error to enter passward", vbCritical, "please make sure  username password
"
Else
MsgBox ("success
")
Form2.Show
Unload Me

End If
End Sub


ارجو المساعدة اريد اولا  تعديل الكود ثم كلما اضفت في القاعدة اسم مستخدم يظهر في الكومبو 1
الرد }}}
تم الشكر بواسطة:
#2
اخى العزيز

بالنسبه للبند الثانى و هو اضافه اسم المستخدم فى الكومبو1 كما تريد يرجى تغير اسم الجدول وقاعدة البيانات و مايلزم فى الكود التالى :-

فى Declarations
ضع الكود التالى

Dim cn3 As New adodb.Connection
Dim rsitem2 As New adodb.Recordset
Option Explicit

وفى حدث ال form load ضع الكود التالى


If rsitem2.State = 1 Then rsitem2.Close
If cn3.State = 0 Then
cn3.Open "Provider=microsoft.jet.oledb.4.0;data source=Sys.sys"
End If
rsitem2.Open "select * from logtable ", cn3, adOpenDynamic, adLockOptimistic
1:
If Not rsitem2.EOF Then
Combo1.AddItem rsitem2!names
rsitem2.MoveNext
GoTo 1
End If

بالنسبه لتعديل الكود

ممكن التوضيح اكثر فيما تريدة
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}
تم الشكر بواسطة: عمور2016 , عمور2016 , Amir_Alzubidy
#3
هدا المطلوب شكرا جزيلا الله يرضى عليك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في هذا الكود layan2000 4 1,359 15-01-22, 09:58 PM
آخر رد: layan2000
  أريد من ذوي الخبرة تزويدي ببرنامج ترتيب الكود في فيجول بيسك rami_cis 4 2,124 24-11-20, 04:07 AM
آخر رد: rami_cis
  [سؤال] المساعدة فى عمل برنامج المصحف الملعلم - كيف ادماج ملف صوتى battman2020 1 1,484 28-02-20, 04:41 PM
آخر رد: Ahmed_Mansoor
  هل يمكن المساعدة في تخطيط ذهني لبرنامج اقساط المدرسة princeofislam 2 1,931 10-08-19, 08:11 PM
آخر رد: princeofislam
  اساتذتي الاحبة ارجو منكم المساعدة بنت الشام 2 2,251 07-10-18, 11:58 AM
آخر رد: بنت الشام
Video [نقاش] ارجو الرد على السؤال الفلترة والفرز amer2000 4 2,127 01-10-18, 01:20 AM
آخر رد: amer2000
  [سؤال] الى الاخوة في المنتدى ارجو مساعدتي في هذا المشروع sher 2 1,989 08-09-18, 09:41 PM
آخر رد: جاسم عبد
  ارجو المساعدة في سكوال سيرفر عمور2016 11 4,028 15-04-18, 03:05 AM
آخر رد: عبد العزيز البسكري
  [كود] ارجو من الاخوة المساعدة في جمع الاعمدة عمور2016 4 2,392 19-02-18, 04:25 PM
آخر رد: عمور2016
  رسالة خطا ارجو المساعدة محمد حمد محمد 5 2,543 14-02-18, 12:48 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم