منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > رقم للعميل
نسخة كاملة : رقم للعميل
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

alfakeehy

01-11-15, 06:53 PM
السلام عليكم ورحمة الله وبركاته
اخواني الكرام
فضلا لا امرا
واجهتني مشكلة واتمنى منكم دعمي ومساعدتي

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

المطلوب

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

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

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

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

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

ان شاء الله وضحت الصورة
واعتذر على الاطاله
الله يعطيكم العافيه ويوفق الجميع الى مايحبه ويرضاه
تحياتي القلبيه للجميع

administrator

01-11-15, 07:00 PM
PHP كود :
Msgbox RS!NN 

أبو عمر

01-11-15, 07:02 PM
طيب ايش كود قراءة البيانات من الجدول اساسا
على شان اللي بيساعدك يقدر يفيدك بسرعة وينتهي الموضوع برد واحد !
بالتوفيق

alfakeehy

01-11-15, 08:19 PM
الله يعطيكم العافيه اخواني واعتذر منكم
هذا هو الكود
Adodc1.RecordSource = "db1"


Rs.AddNew
Rs![N1] = Text1.Text
Rs![N2] = Text2.Text
Rs![N3] = Text3.Text

alfakeehy

02-11-15, 12:10 AM
تكفون ساعدوني الله يعطيكم العافيه

Ahmed_Mansoor

02-11-15, 12:26 AM
أهلا أخي الكريم , أنت تستخدم أداة Adodc أو مكتبة الـ ADO اللي هو الـ RS .

alfakeehy

02-11-15, 12:41 AM
RS استخدم ياغالي

Ahmed_Mansoor

02-11-15, 01:05 AM
أهلا أخي الكريم , عدل إسم الجدول بإسم الجدول الذي تستخدمه , وأيضا عدل إسم المتغير الذي يتصل بقاعدة البيانات , ثم ضع هذه الكود تحت كود الحفظ مباشرة :

كود :
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

alfakeehy

02-11-15, 01:32 AM
الله يعطيك العافيه اخي الكريم

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

بالضبط هنا Open

Ahmed_Mansoor

02-11-15, 01:47 AM
عدل إسم الجدول بإسم الجدول الذي تستخدمه , وأيضا عدل إسم المتغير الذي يتصل بقاعدة البيانات


RS.Open "select MAX(NN) as zMax From Table1", DB, adOpenKeyset, adLockOptimistic
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > رقم للعميل