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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حيرني في حلقة التكرار Do ارجو المساعده mohd_sader 1 45 اليوم, 12:57 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] المساعدة في طباعة تقرير بين تاريخين وادي العوضي 10 741 08-12-16, 03:18 AM
آخر رد: sendbad100
Bug [vb6.0] ارجو المساعدة في حفظ وطباعة الصور من قاعدة البيانلت amer2000 4 134 21-11-16, 11:45 AM
آخر رد: amer2000
  ارجو المساعدة بخصوص برنامج المصروفات ابو مهدي 3 179 19-07-16, 12:54 PM
آخر رد: ابو مهدي
  رجاء المساعدة فى تغير قيمة هيكس الى عقيمة wolf1120 13 478 09-07-16, 12:33 PM
آخر رد: abulayth
  [vb6.0] المساعدة في البحث برقم الهوية وادي العوضي 2 283 25-06-16, 12:00 PM
آخر رد: DonMu
  [vb6.0] المساعدة فى ربط كمبوبوكس لحقل بتكيست بوكس لحقل اخر ابراهيم حورس 6 236 14-06-16, 08:26 PM
آخر رد: ابراهيم حورس
  ارجو المساعده بخصوص حركة النص من اليسار الى اليمين في textbox ابو مهدي 8 399 20-05-16, 02:21 PM
آخر رد: ابو مهدي
  [vb6.0] اخواني الاعزاء ارجوا المساعدة في هذا المشروع corex 2 288 08-05-16, 12:36 AM
آخر رد: corex
  المساعدة في طريقة الاتصال بالتقرير لغرض طباعته وادي العوضي 7 298 30-04-16, 10:51 AM
آخر رد: Amir_alzubidy

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


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