تقييم الموضوع :
  • 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
هدا المطلوب شكرا جزيلا الله يرضى عليك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad [سؤال] ارجو من الشباب الشرح معنى الرسالة ؟ amer2000 4 85 08-05-17, 04:45 PM
آخر رد: mansoor
  رجاء المساعدة فى تغير قيمة هيكس الى عقيمة wolf1120 14 836 24-03-17, 12:54 AM
آخر رد: wolf1120
  [vb6.0] ارجو التعديل على مجموع الحسابين الموجود في المشروع عبدالقادرعواد 2 185 23-02-17, 01:35 AM
آخر رد: عبدالقادرعواد
  [vb6.0] ارجو المساعده في كود iAwadop 4 321 15-01-17, 02:48 PM
آخر رد: iAwadop
  سؤال حيرني في حلقة التكرار Do ارجو المساعده mohd_sader 1 230 10-12-16, 12:57 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] المساعدة في طباعة تقرير بين تاريخين وادي العوضي 10 1,296 08-12-16, 03:18 AM
آخر رد: sendbad100
Bug [vb6.0] ارجو المساعدة في حفظ وطباعة الصور من قاعدة البيانلت amer2000 4 414 21-11-16, 11:45 AM
آخر رد: amer2000
  ارجو المساعدة بخصوص برنامج المصروفات ابو مهدي 3 419 19-07-16, 12:54 PM
آخر رد: ابو مهدي
  [vb6.0] المساعدة في البحث برقم الهوية وادي العوضي 2 460 25-06-16, 12:00 PM
آخر رد: DonMu
  [vb6.0] المساعدة فى ربط كمبوبوكس لحقل بتكيست بوكس لحقل اخر ابراهيم حورس 6 409 14-06-16, 08:26 PM
آخر رد: ابراهيم حورس

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


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