----- Original Message -----

From: lobito_tico

To: vbasicworld@yahoogroups.com

Sent: Thursday, February 01, 2007 3:41 PM

Subject: Re: [VBASICWORLD] Access y VB

Amigo yo utilizo esta funcion espero te sirva

 

 

 

Function SigNumItem() As Long
       
        Dim Sqlins      As String
        Dim ultid        As Long
        Dim rsItem      As New ADODB.Recordset
 
        On Error Resume Next 'Deshabilitar control de errores
       
        Sqlins = "SELECT MAX(Num_Registro) AS Ultimo FROM Items"
        rsItem.Open Sqlins, dbConexion
       
        If Err.Number = 0 Then
            ultid = rsItem!ultimo 'Si es nulo, no se asigna valor, por tanto UltId seguirá valiendo cero.
        End If
        rsItem.Close
        On Error GoTo 0 'Habilitar control de errores
 
        SigNumItem = ultid + 1
        TxtNumRegistro.Text = SigNumItem
End Function

 

El día 1/02/07, Carlos Martinez Prado <c_martinez_prado@hotmail.com> escribió:

mira no entiendo mucho tu pregunta...

pero en access existe un campo autonumeric..esa es uan posibilidad aunqeu
nunca la ocupo

lo que hago generalmente es preguntar por al ultimo valor de la clave y a
ese le sumo uno, en caso de ser nulo entonces asigno 1

y despues prepara la sql de insert.

por lo general se puede hacer tambien con un proc almacendo, y que el se
encargue de eso.
pues cuando es un campo clave el usuario no interfiere y no lo muestro el
valor hasta despues de ingreado el registro

espero haberte aclarado algo...
cualquier cosa me avisas

Carlos

>From: "J.I. Moratiel" < listamoratiel@gmail.com>
>Reply-To: vbasicworld@yahoogroups.com
>To:
>< canalvb@yahoogroups.com>,< DesarrolloVB@gruposyahoo.com.ar>,<Grupo_VisualBasic@yahoogroups.com>,< virusworld@yahoogroups.com>,<vbasicworld@yahoogroups.com>,< visualbasic-esp@yahoogroups.com>,<visual_basic@eListas.net>
>Subject: [VBASICWORLD] Access y VB
>Date: Tue, 23 Jan 2007 13:20:22 +0100
>
>Hola a todos:
>¿Existe alguna forma, desde visual basic, de que, al borrar todos los
>registros de una base de datos en Access, la clave de dicha base de
>datos se ponga a cero?.
>O sea que empiece a numerar los reigstros desde el 1.
>Gracias por anticipado.
>
>Un saludo.
>__________________________________________________________
>Página de programación. http://moratiel.com
>
>
>
>

__________________________________________________________
Charla con tus amigos en línea mediante MSN Messenger:
http://messenger.latam.msn.com/