[العتيق]

(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