Agregar Registros

Amigos:

Gracias por su interes:

En realidad, yo cree un aplicativo en VB y ahora en VB.Net; por
desconocimiento mio, no uso procedimientos almacenados ni nada de eso,
todas las trancsacciones y consultas lo hago con el codigo del VB.
Ahora, el codigo para agregar un registro nuevo es el siguiente:

Function NuevoID as Long
Dim Reg_ID as New Adodb.Recordset
Set Reg_ID = CN.Execute(Select Count(NumericID) as RC From
Movimientos)
NuevoID = Reg_ID.Fields(RC) + 1
End Function

Private Sub NuevoMovimiento
Dim NewRec as Long
NewRec = NuevoID
Set Reg_Mov = CN.Execute("Insert Into Movimientos
(NumericID,FechaPago) Values ("NewRec","Now")
End Sub

-

Por lo que pude entender, no estoy en lo correcto pero entonces, cual
sería la solución???


Gracias

SystemBuilder
Lima Perú

ya botaste por machupicchu???
www.new7wonders.com- Ocultar texto de la cita -

ni que fuera adivino ;) ya javier te dio la solucion


Salu2

Microsoft MVP SQL Server
Culminis Speaker

"SystemBuilder" escribió en el mensaje
news:
Amigos:

Gracias por su interes:

En realidad, yo cree un aplicativo en VB y ahora en VB.Net; por
desconocimiento mio, no uso procedimientos almacenados ni nada de eso,
todas las trancsacciones y consultas lo hago con el codigo del VB.
Ahora, el codigo para agregar un registro nuevo es el siguiente:

Function NuevoID as Long
Dim Reg_ID as New Adodb.Recordset
Set Reg_ID = CN.Execute(Select Count(NumericID) as RC From
Movimientos)
NuevoID = Reg_ID.Fields(RC) + 1
End Function

Private Sub NuevoMovimiento
Dim NewRec as Long
NewRec = NuevoID
Set Reg_Mov = CN.Execute("Insert Into Movimientos
(NumericID,FechaPago) Values ("NewRec","Now")
End Sub

-

Por lo que pude entender, no estoy en lo correcto pero entonces, cual
sería la solución???


Gracias

SystemBuilder
Lima Perú

ya botaste por machupicchu???
www.new7wonders.com- Ocultar texto de la cita -

Hola:
Soluciones? como dice el amigo Maxi no podemos darte, solo
alternativas.
Revisa las 2 alternativas que postee anteriormente.
Si no tienes cientos de usuarios cualquiera te servirá.
Por cierto, ya vote e inclui a MachuPicchu!
Saludos,

Javier Loria
Costa Rica (MVP)
Se aprecia la inclusion de DDL (CREATE, INSERTS, etc.)
que pueda ser copiado y pegado al Query Analizer.
La version de SQL y Service Pack tambien ayuda.

"SystemBuilder" wrote in message
news:
Amigos:

Gracias por su interes:

En realidad, yo cree un aplicativo en VB y ahora en VB.Net; por
desconocimiento mio, no uso procedimientos almacenados ni nada de eso,
todas las trancsacciones y consultas lo hago con el codigo del VB.
Ahora, el codigo para agregar un registro nuevo es el siguiente:

Function NuevoID as Long
Dim Reg_ID as New Adodb.Recordset
Set Reg_ID = CN.Execute(Select Count(NumericID) as RC From
Movimientos)
NuevoID = Reg_ID.Fields(RC) + 1
End Function

Private Sub NuevoMovimiento
Dim NewRec as Long
NewRec = NuevoID
Set Reg_Mov = CN.Execute("Insert Into Movimientos
(NumericID,FechaPago) Values ("NewRec","Now")
End Sub

-

Por lo que pude entender, no estoy en lo correcto pero entonces, cual
sería la solución???


Gracias

SystemBuilder
Lima Perú

ya botaste por machupicchu???
www.new7wonders.com- Ocultar texto de la cita -