+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] رقم للعميل (/showthread.php?tid=13678)
الصفحات:
1
2
رقم للعميل - alfakeehy - 01-11-15
السلام عليكم ورحمة الله وبركاته
اخواني الكرام
فضلا لا امرا
واجهتني مشكلة واتمنى منكم دعمي ومساعدتي
عندي برنامج فيه اضافة عملاء
في قاعدة البيانات ارقام تسلسلية ترقيم تلقائي سميته( NN)
في داخل الفورم
ليبل1
تكست ( اسم العميل )
تكست ( رقم جوال العميل )
تكست ( عنوان العميل )
وفيه عدد 2 كومند
الكومند الاول ( حفظ )
الكومند الثاني ( خروج )
المطلوب
عند الضغط على زر الحفظ تحفظ البيانات وتظهر لي رسالة برقم العميل اللي حفظته الان اللي هو الترقيم التلقائي (NN)
طبعا الحفظ اعرف عادي بس ابغى الرساله اللي تظهر فيها رقم العميل ويكتب في الليبل1
مثلا
TEXT1( اسم العميل ) كتبت فيه ( محمد )
TEXT2( رقم جوال العميل ) كتبت فيه ( 55555555)
TEXT3( عنوان العميل ) كتبت فيه ( الرياض)
ابغى رساله تضهر برقم العميل اللي هو محمد من الارقام التسلسلية الترقيم التلقائي وتكتب في الليبل 1
ان شاء الله وضحت الصورة
واعتذر على الاطاله
الله يعطيكم العافيه ويوفق الجميع الى مايحبه ويرضاه
تحياتي القلبيه للجميع
اخواني الكرام
فضلا لا امرا
واجهتني مشكلة واتمنى منكم دعمي ومساعدتي
عندي برنامج فيه اضافة عملاء
في قاعدة البيانات ارقام تسلسلية ترقيم تلقائي سميته( NN)
في داخل الفورم
ليبل1
تكست ( اسم العميل )
تكست ( رقم جوال العميل )
تكست ( عنوان العميل )
وفيه عدد 2 كومند
الكومند الاول ( حفظ )
الكومند الثاني ( خروج )
المطلوب
عند الضغط على زر الحفظ تحفظ البيانات وتظهر لي رسالة برقم العميل اللي حفظته الان اللي هو الترقيم التلقائي (NN)
طبعا الحفظ اعرف عادي بس ابغى الرساله اللي تظهر فيها رقم العميل ويكتب في الليبل1
مثلا
TEXT1( اسم العميل ) كتبت فيه ( محمد )
TEXT2( رقم جوال العميل ) كتبت فيه ( 55555555)
TEXT3( عنوان العميل ) كتبت فيه ( الرياض)
ابغى رساله تضهر برقم العميل اللي هو محمد من الارقام التسلسلية الترقيم التلقائي وتكتب في الليبل 1
ان شاء الله وضحت الصورة
واعتذر على الاطاله
الله يعطيكم العافيه ويوفق الجميع الى مايحبه ويرضاه
تحياتي القلبيه للجميع
RE: رقم للعميل - administrator - 01-11-15
PHP كود :
Msgbox RS!NN
RE: رقم للعميل - أبو عمر - 01-11-15
طيب ايش كود قراءة البيانات من الجدول اساسا
على شان اللي بيساعدك يقدر يفيدك بسرعة وينتهي الموضوع برد واحد !
بالتوفيق
RE: رقم للعميل - alfakeehy - 01-11-15
الله يعطيكم العافيه اخواني واعتذر منكم
هذا هو الكود
Adodc1.RecordSource = "db1"
Rs.AddNew
Rs![N1] = Text1.Text
Rs![N2] = Text2.Text
Rs![N3] = Text3.Text
RE: رقم للعميل - alfakeehy - 02-11-15
تكفون ساعدوني الله يعطيكم العافيه
RE: رقم للعميل - Ahmed_Mansoor - 02-11-15
أهلا أخي الكريم , أنت تستخدم أداة Adodc أو مكتبة الـ ADO اللي هو الـ RS .
RE: رقم للعميل - alfakeehy - 02-11-15
RS استخدم ياغالي
RE: رقم للعميل - Ahmed_Mansoor - 02-11-15
أهلا أخي الكريم , عدل إسم الجدول بإسم الجدول الذي تستخدمه , وأيضا عدل إسم المتغير الذي يتصل بقاعدة البيانات , ثم ضع هذه الكود تحت كود الحفظ مباشرة :
كود :
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.CloseRE: رقم للعميل - alfakeehy - 02-11-15
الله يعطيك العافيه اخي الكريم
معليش طلع عندي خطأ في هذا الكود
RS.Open "select MAX(NN) as zMax From Table1", DB, adOpenKeyset, adLockOptimistic
بالضبط هنا Open
RE: رقم للعميل - Ahmed_Mansoor - 02-11-15
عدل إسم الجدول بإسم الجدول الذي تستخدمه , وأيضا عدل إسم المتغير الذي يتصل بقاعدة البيانات
RS.Open "select MAX(NN) as zMax From Table1", DB, adOpenKeyset, adLockOptimistic