Visual Basic - CONSULTA SQL EN VB

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder