PROXIMONRO DA TABELA

NILTON.VIANNA 31/08/2013 17:40:30
#428348

Bom tarde amigo está tentando migrar meu sistema para VB2010
No vb6 eu uso assim para gerar próximo ID da tabela.


[ô]/Novo ID
Public Function ProximoNro(aTabela As String, aCampo As String) As Long
Dim MaiorNro As New ADODB.Recordset
MaiorNro.Open [Ô]SELECT MAX([Ô] & aCampo & [Ô]) FROM [Ô] & aTabela, CnSql, adOpenForwardOnly, adLockReadOnly
If IsNull(MaiorNro(0)) Then
ProximoNro = 1
Else
ProximoNro = CLng(MaiorNro(0)) + 1
End If
MaiorNro.Close
Set MaiorNro = Nothing
txtClienteID.Text = ProximoNro
End Function

ProximoNro [Ô]Cad_Clientes[Ô], [Ô]ClienteID[Ô]