Buenas tardes tengo una base de datos y deseo que se visualize el ultimo codigo al momento de guardar la info, sabiendo que el tipo de dato en la base de datos es nvarchar como hago para que sea asi: Fact-0001,Fact -0002,Fact -0003,etc etc
Set rst = New ADODB.Recordset
rst.ActiveConnection = con
rst.Source = "Select Max(Codigo_nota) As Maximo From Tabla"
rst.Open
If rst.Fields(0) > 0 Then
For i = 1 To rst.Fields("Maximo") + 1
Next
endif
con.Close
If Not rst Is Nothing Then Set rst = Nothing
If Not con Is Nothing Then Set con = Nothing
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes tengo una base de datos y deseo que se visualize el ultimo codigo al momento de guardar la info, sabiendo que el tipo de dato en la base de datos es nvarchar como hago para que sea asi: Fact-0001,Fact -0002,Fact -0003,etc etc
Set rst = New ADODB.Recordset
rst.ActiveConnection = con
rst.Source = "Select Max(Codigo_nota) As Maximo From Tabla"
rst.Open
If rst.Fields(0) > 0 Then
For i = 1 To rst.Fields("Maximo") + 1
Next
endif
con.Close
If Not rst Is Nothing Then Set rst = Nothing
If Not con Is Nothing Then Set con = Nothing