تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] رقم للعميل
#1
السلام عليكم ورحمة الله وبركاته
اخواني الكرام
فضلا لا امرا
واجهتني مشكلة واتمنى منكم دعمي ومساعدتي

عندي برنامج فيه اضافة عملاء
في قاعدة البيانات ارقام تسلسلية ترقيم تلقائي سميته( NN)
في داخل الفورم
ليبل1
تكست ( اسم العميل )
تكست ( رقم جوال العميل )
تكست ( عنوان العميل )
وفيه عدد 2 كومند
الكومند الاول ( حفظ )
الكومند الثاني ( خروج )

المطلوب

عند الضغط على زر الحفظ تحفظ البيانات وتظهر لي رسالة برقم العميل اللي حفظته الان اللي هو الترقيم التلقائي (NN)
طبعا الحفظ اعرف عادي بس ابغى الرساله اللي تظهر فيها رقم العميل ويكتب في الليبل1

مثلا
TEXT1( اسم العميل ) كتبت فيه ( محمد )

TEXT2( رقم جوال العميل  ) كتبت فيه ( 55555555)

TEXT3( عنوان العميل ) كتبت فيه ( الرياض)

ابغى رساله تضهر برقم العميل اللي هو محمد من الارقام التسلسلية الترقيم التلقائي وتكتب في الليبل 1

ان شاء الله وضحت الصورة
واعتذر على الاطاله
الله يعطيكم العافيه ويوفق الجميع الى مايحبه ويرضاه
تحياتي القلبيه للجميع
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
Msgbox RS!NN 
الرد }}}
تم الشكر بواسطة: alfakeehy
#3
طيب ايش كود قراءة البيانات من الجدول اساسا
على شان اللي بيساعدك يقدر يفيدك بسرعة وينتهي الموضوع برد واحد !
بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: alfakeehy
#4
الله يعطيكم العافيه اخواني واعتذر منكم
هذا هو الكود
Adodc1.RecordSource = "db1"


Rs.AddNew
Rs![N1] = Text1.Text
Rs![N2] = Text2.Text
Rs![N3] = Text3.Text
الرد }}}
تم الشكر بواسطة:
#5
تكفون ساعدوني الله يعطيكم العافيه
الرد }}}
تم الشكر بواسطة:
#6
أهلا أخي الكريم , أنت تستخدم أداة Adodc أو مكتبة الـ ADO اللي هو الـ RS .
الرد }}}
تم الشكر بواسطة: alfakeehy
#7
RS استخدم ياغالي
الرد }}}
تم الشكر بواسطة:
#8
أهلا أخي الكريم , عدل إسم الجدول بإسم الجدول الذي تستخدمه , وأيضا عدل إسم المتغير الذي يتصل بقاعدة البيانات , ثم ضع هذه الكود تحت كود الحفظ مباشرة :

كود :
If RS.State = 1 Then RS.Close
RS.Open "select MAX(NN) as zMax From Table1", DB, adOpenKeyset, adLockOptimistic
If RS.RecordCount > 0 Then
  If Not IsNull(RS![zMax]) Then MsgBox RS![zMax]: Label1.Caption = RS![zMax] Else Label1.Caption = ""
Else
  Label1.Caption = ""
End If
If RS.State = 1 Then RS.Close
الرد }}}
تم الشكر بواسطة:
#9
الله يعطيك العافيه اخي الكريم

معليش طلع عندي خطأ في هذا الكود
RS.Open "select MAX(NN) as zMax From Table1", DB, adOpenKeyset, adLockOptimistic

بالضبط هنا Open
الرد }}}
تم الشكر بواسطة:
#10
عدل إسم الجدول بإسم الجدول الذي تستخدمه , وأيضا عدل إسم المتغير الذي يتصل بقاعدة البيانات


RS.Open "select MAX(NN) as zMax From Table1", DB, adOpenKeyset, adLockOptimistic
الرد }}}
تم الشكر بواسطة:


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


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