[asemshahen5]

PHP كود :

   Public Function Max_Record(IDColumnName As String, TableName As String) As DataTable
        Dim Str As String = "Select IIF(Max(" & IDColumnName & ") IS Null,1,Max(" & IDColumnName & ")+1)As ID From " & TableName
        Dim Cmd As OleDb.OleDbCommand
        Dim Dt As New DataTable
        Dt.Clear()
        Cmd = New OleDb.OleDbCommand(Str, con)
        Dim Da As New OleDb.OleDbDataAdapter(Cmd)
        Da.Fill(Dt)
        Return (Dt)
    End Function 


الاستعمال :

PHP كود :

TextBox1.Text = Max_Record("id", "Table1").Rows(0)("ID").ToString