منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الترقيم التلقائي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=47828)

الترقيم التلقائي - محمد خيري - 20-01-24

السلام عليكم اخواني الكرام كيف يمكن تضبيط هذا الكود بحيث
اذا كان الجدول فارغ يظهر لي بالتاكست بوكس 1 الترقيم : 1-1500
و اذا كان الجدول غير فارغ ينضاف واحد كل مرة 2-1500 - 3-1500 - 4-1500 و هكذا
بارك الله فيكم 

 
كود :
 Dim Sql As String = "select IIF(MAX(Id) IS NULL, 1, MAX(Id)) As Id from document"
   Dim Cmd As New OleDbCommand(Sql, Con)
   Dim DA As New OleDbDataAdapter(Cmd)
   Dim DT As New DataTable
           DT.Clear()
           DA.Fill(DT)
           If IsDBNull(DT(0)(0)) = True Then
              TextBox1.Text = "1500" & "-" & "1"
           Else
              TextBox1.Text = "1500" & "-" & DT(0)(0) + 1
       End If


RE: الترقيم التلقائي - العتيق - 20-01-24

(20-01-24, 12:42 AM)محمد خيري كتب : السلام عليكم اخواني الكرام كيف يمكن تضبيط هذا الكود بحيث
اذا كان الجدول فارغ يظهر لي بالتاكست بوكس 1 الترقيم : 1-1500
و اذا كان الجدول غير فارغ ينضاف واحد كل مرة 2-1500 - 3-1500 - 4-1500 و هكذا
بارك الله فيكم 

 
كود :
 Dim Sql As String = "select IIF(MAX(Id) IS NULL, 1, MAX(Id)) As Id from document"
   Dim Cmd As New OleDbCommand(Sql, Con)
   Dim DA As New OleDbDataAdapter(Cmd)
   Dim DT As New DataTable
           DT.Clear()
           DA.Fill(DT)
           If IsDBNull(DT(0)(0)) = True Then
              TextBox1.Text = "1500" & "-" & "1"
           Else
              TextBox1.Text = "1500" & "-" & DT(0)(0) + 1
       End If

وعليكم السلام و رحمة الله وبركاته

جرب الكود التالي

PHP كود :
Dim Sql As String = "SELECT IIF(MAX(Id) IS NULL, 1, MAX(Id)) As Id FROM document"
Dim Cmd As New OleDbCommand(Sql, Con)

Try
    Con.Open()
    Dim result As Object = Cmd.ExecuteScalar()

    If IsDBNull(result) Then
        TextBox1.Text = "1500-1"
    Else
        TextBox1.Text = "1500-" & (CInt(result) + 1).ToString()
    End If
Catch ex As Exception
    ' يجب أن تقوم بمعالجة الأخطاء هنا، مثل إظهار رسالة خطأ أو تسجيل الخطأ.
Finally
    Con.Close()
End Try 


RE: الترقيم التلقائي - محمد خيري - 20-01-24

شكرا لك اخي العتيق و بارك الله فيك نفس المشكلة التي وقعت بها اخي لاحظ قاعدة البيانات فارغة من اي سجلات لكن عند الضغط على زر الامر يظهر لي بالتاكست بوكس الرقم : 2-1500

RE: الترقيم التلقائي - Taha Okla - 20-01-24

وعليكم السلام ورحمة الله وبركاته


جرب :

كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If Conne.State <> ConnectionState.Open Then Conne.Open()
   TextBox1.Text = 1500 & "- " & (Val(NoInvo("Id", "Table1", Conne)) + 1)
   If Conne.State <> ConnectionState.Closed Then Conne.Close()
End Sub

Function NoInvo(pField As String, pTable As String, pConn As OleDbConnection)
   Dim cmd As New OleDbCommand("SELECT max(" + pField + ") as theinvono FROM [" & pTable & "] ", pConn)
   If cmd.ExecuteScalar Is DBNull.Value Then Return 0
   Return cmd.ExecuteScalar
End Function
أو جرب هذا :
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If Conne.State <> ConnectionState.Open Then Conne.Open()
       TextBox1.Text = 1500 & "- " & (Val(NoInvo("Id", "Table1", Conne)) + 1)
       If Conne.State <> ConnectionState.Closed Then Conne.Close()
   End Sub

   Function NoInvo(pField As String, pTable As String, pConn As OleDbConnection)
       Dim cmd As New OleDbCommand("SELECT IIF(MAX(" & pField & ") IS NULL, 0, MAX(" & pField & ")) FROM [" & pTable & "] ", pConn)
       Return cmd.ExecuteScalar
   End Function


RE: الترقيم التلقائي - محمد خيري - 20-01-24

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