CONSULTA SQL EN VB
Publicado por LUIS DANIEL (1 intervención) el 06/04/2005 01:48:11
A VER SI ME PUEDEN AYUDAR QUIERO ALMACENAR UN REGISTRO EN LA (TABLA X) PERO ANTES DE QUE ME LO ALMACENE QUIERO QUE ME REALICE UNA BUSQUEDA EN ESTA MISMA TABLA POR EJEMPLO DEL CAMPO:(CURP) SI NO LO ENCUENTRA ME LO GUARDE Y SI LO ENCUENTRA ME MANDE UN MENSAJE DE QUE YA SE ENCUENTRA. LA CLAVE PRINCIPAL LA TENGO EN MODO NUMERICO ASI ES QUE REQUIERO COMPARARLO CON OTRO CAMPO PARA NO REPETIR LA INFORMACION TODO ESTO EN EL BOTON GUARDAR.. GRACIAS ESPERO ME PUEDAN CONTESTAR A MI CORREO [email protected]
ASI ESTOY UTILIZANDO EL CODIGO
MI CONEXION ESTA EN EL LOAD
Set CON = New ADODB.Connection
CON.ConnectionString = "DSN=ORIGENDIF"
CON.Open
Set RG = New ADODB.Recordset
RG.LockType = adLockOptimistic
RG.CursorType = adOpenKeyset
Public RG As ADODB.Recordset
Public CON As ADODB.Connection
BOTON NUEVO
'AQUI REALIZO UNA BUSQUEDA EN LA (TABLA Z) DONDE ESTAN LOS DATOS GENERALES LA( TABLA X) ES PARA COMPLEMENTAR ESOS DATOS
RG.OPEN
RG.ADDNEW
END SUB
BOTON DE GUARDAR
'SI NO ENCUENTRA EL REGISTRO LO ALMACENA
' SI LO ENCUENTRA CANCELA EL PROCESO
RG.Fields("NO_BENEFICIARIO") = Text1.Text & " "
RG.UPDATE
RG.CLOSE
END SUB
ASI ESTOY UTILIZANDO EL CODIGO
MI CONEXION ESTA EN EL LOAD
Set CON = New ADODB.Connection
CON.ConnectionString = "DSN=ORIGENDIF"
CON.Open
Set RG = New ADODB.Recordset
RG.LockType = adLockOptimistic
RG.CursorType = adOpenKeyset
Public RG As ADODB.Recordset
Public CON As ADODB.Connection
BOTON NUEVO
'AQUI REALIZO UNA BUSQUEDA EN LA (TABLA Z) DONDE ESTAN LOS DATOS GENERALES LA( TABLA X) ES PARA COMPLEMENTAR ESOS DATOS
RG.OPEN
RG.ADDNEW
END SUB
BOTON DE GUARDAR
'SI NO ENCUENTRA EL REGISTRO LO ALMACENA
' SI LO ENCUENTRA CANCELA EL PROCESO
RG.Fields("NO_BENEFICIARIO") = Text1.Text & " "
RG.UPDATE
RG.CLOSE
END SUB
Valora esta pregunta


0