تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] الترقيم التلقائي مع رمز معين في vb.net
#11
.....

هذا الكود لتحديث السجلات القديمة التي لا يحتوي العمود JobNo في بدايته على '/F'
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim sql As String = " UPDATE [Warrinty] SET [JobNo]= 'F/'+[JobNo] WHERE MID([JobNo],1,2)<>'F/' "
    Dim comm As New OleDb.OleDbCommand(sql, conn)

    conn.Open()
    Dim result As Integer = comm.ExecuteNonQuery()
    conn.Close()

    MsgBox("تم تحديث سجلات عدد: " & result)

End Sub

.....
الرد }}}
تم الشكر بواسطة:
#12
سلام عليكم
والله يا شباب جزاكم الله كل خير 
الحمد لله تم الاستفاده من الموضوع عن طريق فواتير نقدي و فواتير اجل

 Private Sub autounmber()
        If ComboBox5.Text = "نقدي" Then
            Dim MaxNum1 As New OleDbCommand("select max(Sereyal) from Patient where payid= " & 1 & "", con)
            con.Open()
            If MaxNum1.ExecuteScalar Is DBNull.Value Then
                TextBox10.Text = "C/" & 140001
            Else
                'TextBox10.Text = "F/" & Val(Val(cmd.ExecuteScalar) + 1)
                Dim result As String = MaxNum1.ExecuteScalar
                TextBox10.Text = result.Substring(0, 2) & (Val(result.Substring(2)) + 1).ToString
            End If

            MaxNum1.Dispose()
            con.Close()
        Else
            If ComboBox5.Text = "أجل" Then
                Dim MaxNum1 As New OleDbCommand("select max(Sereyal) from Patient where payid= " & 2 & "", con)
                con.Open()
                If MaxNum1.ExecuteScalar Is DBNull.Value Then
                    TextBox10.Text = "D/" & 140001
                Else
                    'TextBox10.Text = "F/" & Val(Val(cmd.ExecuteScalar) + 1)
                    Dim result As String = MaxNum1.ExecuteScalar
                    TextBox10.Text = result.Substring(0, 2) & (Val(result.Substring(2)) + 1).ToString
                End If

                MaxNum1.Dispose()
                con.Close()
            End If
        End If
الرد }}}
تم الشكر بواسطة: elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 964 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  ازاى بعد اما اعمل سكان بالباركود ويتسجل فى تكست بوكس معين يتنقل اوتوماتيك لتكست اخر araxis 2 2,528 25-03-19, 04:07 AM
آخر رد: wessam.demerdash
  مشكلة في الترقيم التلقائي للطلبة حسب السنة الدراسية ahmed_elwerfalli 1 1,636 29-12-18, 03:34 AM
آخر رد: ahmed_elwerfalli
  حساب مجموع ايام غياب موظف في شهر معين ahmed_elwerfalli 0 1,769 10-12-18, 10:11 PM
آخر رد: ahmed_elwerfalli
  [VB.NET] استعادة الترقيم التلقائي محمد اسماعيل 10 4,871 04-01-18, 11:15 PM
آخر رد: عبد العزيز البسكري
Rainbow اعادة التسلسل التلقائي للــ ID في الاكسس .. جنيت ناريمان 9 17,167 21-09-17, 02:09 AM
آخر رد: mohammed alnour
  مشكلة الترقيم التلقائي للعمود الاول في الداتا جريد فيو kofa 31 12,095 18-06-16, 03:53 AM
آخر رد: khodor1985
  كود التالي والسابق بترتيب معين aftfm 0 3,555 08-02-16, 11:37 AM
آخر رد: aftfm
Photo طريقة بحث و إظهار حقل معين من سجلين مختلفين ,, ولكن يتساويا في رقم المستخدم ahmed_elwerfalli 6 3,558 27-12-15, 03:55 AM
آخر رد: ahmed_elwerfalli
  الترقيم التلقائي .. أكسس abdulla2 1 3,004 27-12-15, 12:59 AM
آخر رد: zinom

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


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