تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله فى ترقيم الفواير
#1
ترقيم الفاتوره ازاى من قاعدة البيانات ولا من الفورم 
لو عملت لو عملت رقم الفاتوره 1 وعند الضغط على حفظ يفتح فورم جديد ورقم الفاوره = +1 تمام بس مش بيتحفظ 
انا للاسف مش عارف الطريقه اصلا علشان انا بتعلم الفيجوال بيسك على النت وشكرا للاعضاء

الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

في قاعدة البيانات ضع عمود باسم ID ترقيم تلقائي واستخدمه كرقم للفاتورة.
الرد }}}
تم الشكر بواسطة:
#3
(10-03-17, 09:37 PM)مساعدة كتب : السلام عليكم

في قاعدة البيانات ضع عمود باسم ID ترقيم تلقائي واستخدمه كرقم للفاتورة.

    Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtsailman.Text = fullname
        sorse()
        Dim ss As String
        Try
              ss =  ("insert into tab_older (date, sailman) values (@date,@sailman)",con)
            cmd = New OleDbCommand(ss, con)
            cmd.Parameters.Add(New OleDbParameter("@date", OleDb.OleDbType.Date)).Value = dtolder.Value.Date
            cmd.Parameters.Add(New OleDbParameter("@sailman", OleDbType.VarChar)).Value = txtsailman.Text
            adapter = New OleDbDataAdapter("select id as [رقم الفاتوره] from tab_older", con)
            con.Open()
            cmd.ExecuteNonQuery()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
    End Sub
ايه الغلط فى الكود ده او ممكن تصحيحه اذا تكرمت
الرد }}}
تم الشكر بواسطة:
#4
أشكر أستاذنا khodor1985 على التنبيه للأعضاء

جرب هذا التعديل
كود :
Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   Try
       txtsailman.Text = fullname
       sorse()
       Dim ss As String
       ss = "INSERT INTO [tab_older] ([date], [sailman]) VALUES (@date, @sailman)"
       Dim cmd As New OleDbCommand(ss, con)
       cmd.Parameters.AddWithValue("@date", dtolder.Value.Date)
       cmd.Parameters.AddWithValue("@sailman", txtsailman.Text)
       con.Open()

       cmd.ExecuteNonQuery()
       cmd.CommandText = "SELECT @@IDENTITY"
       Me.Label1.Text = cmd.ExecuteScalar

       con.Close()
   Catch ex As Exception
       MsgBox(ex.Message)
   End Try
End Sub

(11-03-17, 01:58 AM)khodor1985 كتب : ولكن لشحن أي أداة في المشروع، لم أرى أي أثر للشحن في الكود.

وأشكرك مرة أخرى للتنبيه للخلل الذي منطقية الكود، والذي لم انتبه له، فقمت بتعديل مشاركتي لحلها
الرد }}}
تم الشكر بواسطة: نبيل كونكت , نبيل كونكت , khodor1985
#5
الادراج تم كاسم وتاريخ
بس رقم الفاتوره لا
Dim adapter As New OleDbDataAdapter("SELECT @@IDENTITY AS [رقم الفاتورة] FROM [tab_older]", con)
انا للاسف معرفش طريقة وضع الاكزاد على الموقع
الرد }}}
تم الشكر بواسطة:
#6
تم تعديل الكود السابق
الرد }}}
تم الشكر بواسطة: نبيل كونكت , نبيل كونكت
#7
حاولت اكتهبها كده برده مفيش

["&cmd.CommandText = "SELECT id AS [ " & txtnamper.Text 

            invoicenumber.Text = cmd.ExecuteScalar
رقم الفاتوره ده label
اسف على انى مش متمكن منها اوى
واسف لتعبك معايا
invoicenumber.Text - جايبه خطا
الرد }}}
تم الشكر بواسطة:
#8
ضع مشروعك لإيجاد الكود المناسب
الرد }}}
تم الشكر بواسطة:
#9
أين قاعدة البيانات dbv.accdb ؟
الرد }}}
تم الشكر بواسطة:
#10
(11-03-17, 03:20 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
إليك المثال التالي وسوف يفي بالغرض إن شاء الله
المرفق :
أتمنى لك التوفيق

اشكر حضرتك على مجهودك بس مش شغال
النت فروم ورك 4.5.1 وانا شغال على 4.5
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكله رساله خطا Omaro 7 96 24-03-24, 03:46 PM
آخر رد: Omaro
  [سؤال] مشكله كود TRansaction وحقل الترقيم التلقائي 01AHMED 0 109 09-02-24, 10:31 PM
آخر رد: 01AHMED
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,577 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  [VB.NET] كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم Osama_NY 8 2,756 04-11-23, 01:42 PM
آخر رد: الحزين اليماني
  مشكله فى جهاز قراءة الباركود خالد كامل1 1 350 03-11-23, 06:42 AM
آخر رد: Taha Okla
  [VB.NET] امر DataGridView1.Rows.Add يسبب مشكله في الحفظ oody 1 243 26-10-23, 08:27 PM
آخر رد: aljzazy
Exclamation مشكله Devexpress DOX.1 4 435 03-10-23, 04:22 PM
آخر رد: DOX.1
  مشكله عند طباعه الباركود الكتابة تظهر بهتة في خيال والنقاط قريبه من بعض غيرت الفونت ahmedhhh2 11 786 30-09-23, 08:31 AM
آخر رد: atefkhalf2004
  اريد ترقيم الداتا جريد فيو سمير جمال 10 5,075 29-04-23, 02:01 AM
آخر رد: lar
  ترقيم تلقائي في الداتا جريد فيو مرتبط بجدول في قاعدة البيانات yosif 1 559 17-04-23, 07:03 AM
آخر رد: Taha Okla

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


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