[awidan76]

بواسطة  Ado  

كود الاخ احمد منصور 

PHP كود :

Dim V
Set RS = New ADODB.Recordset
RSc.Open "select max(num) as k from Tabel", Db, adOpenDynamic, adLockOptimistic
       
       V = RS!k
       If IsNull(RS!k) Then V = 0
            Text1.Text = V + 1
RS.Close 


بواسطة Adodc1

PHP كود :

Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource  "select max(num) as k from Tabel"
 Adodc1.Refresh