Hola amigos, estoy programando en Visual basic 2010 enlazado con BD de acces... pues estoy creando una llave primaria autonumerica pero he decidito que lo de autonumerico lo hago yo a pie(por bajo, a codigo), pro resulta que cuando la tabla esta basia me genera un error, porque al estar basia pues me da un valor nulo, mi objetivo es saber el ultimo numero que ha sido ingresado en el codigo para asi asignarle un valor mas....
les dejo el codigo haber si me ayudan.
| Código: | Public CodiRealmovi As Integer
Public Sub GenrarcodigoIdMovi()
AbrirConexion()
Dim AccString As String
Dim CmdGuardar As New OleDbCommand
Dim Codigo As Integer
AccString = "Select Max(Idmovi) from Movimiento"
CmdGuardar = New OleDbCommand(AccString, Modulo.BDconexion)
If IsBDNull(CmdGuardar) = True Then
CodiRealmovi = 1
Else
If Not IsDBNull(CmdGuardar) = False Then
Codigo = (CmdGuardar.ExecuteScalar)
CodiRealmovi = (Codigo) + 1
End If
End If
BDconexion.Close()
End Sub |
|
