Salve ho fatto una funzione ASP che permette di simulare il Campo contatore senza utilizare il campo contatore.. forse e' inutile ma alle volter potrebbe tornare utile.
Codice :
1) strCmdSQL="SELECT IDtblProdotti FROM tblID"
iIDtbl=AssegnaID(strCmdSQL,"tblProdotti")
2)
'+-----------------------------------------------+
'| Tipo : Funzione |
'| Nome : AssegnaID |
'| Valori in ingresso : strSQL (Stringa SQL) |
'| strTabella (Tabella) |
'| Valori in uscita : iNewID (ID da assegnare) |
'+-----------------------------------------------+
Function AssegnaID(strSQL,strTabella)
Dim objConn,objRs
Dim iNewID
Dim strCampo
'+-------------------------------------+
'| Attivo una connessione col Database |
'+-------------------------------------+
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("\Socio\Database\Socio.mdb")
objConn.Open
'+-----------------+
'| Apro la tabella |
'+-----------------+
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open strSQL,objConn,adOpenDynamic,adLockOptimistic
strCampo="ID" & strTabella
iNewID=objRs(strCampo)+1
objRS(strCampo)=iNewID
objRs.Update
'+---------------------+
'| Azzero le variabili |
'+---------------------+
objRs.Close
Set objRs=Nothing
'+------------------------------------+
'| Chiudo la connessione col Database |
'+------------------------------------+
objConn.Close
Set objConn=Nothing
AssegnaID=iNewID
End Function
Forse si può migliorare....
Ciao a tutti<img src=imgfaccinablackeye.gif border=0 align=middle>
Joda