منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - الترقيم التلقائي مع رمز معين في vb.net

الصفحات : 1 2

.....

هذا الكود لتحديث السجلات القديمة التي لا يحتوي العمود 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

.....

سلام عليكم
والله يا شباب جزاكم الله كل خير
الحمد لله تم الاستفاده من الموضوع عن طريق فواتير نقدي و فواتير اجل

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

الصفحات : 1 2

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

vbnet

bajo