منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مشروع] مساعده بهذا المشروع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [مشروع] مساعده بهذا المشروع (/showthread.php?tid=14322)



مساعده بهذا المشروع - احمد عليان - 05-01-16

ارجو المساعده بكود الحفظ  والبحث بقاعدة البيانات
مع العلم انني مبتدء وسارفق المشورع مع الشكر


RE: مساعده بهذا المشروع - popamr.amr2002@gmail.com - 20-01-16

حضرتك انا فتحت المشروع
المفروض انك تعمل ترقيم تلقائى فى حدث load form
وعند الضغط على حفظ تعمل نفس الترقيم التلقائى بعد كود حفظ الفاتورة
كود الترقيم التلقائى
Dim cmd As New OleDbCommand
       cmd.Connection = con
       cmd.CommandType = CommandType.Text
       cmd.CommandText = "select max(invno)from [inv]"
       con.Open()
       Dim a As Integer = cmd.ExecuteScalar
       con.Close()
       txtinvno.Text = a + 1