Autor Tema: Comprobar Si Ya Existe Un Registro (Leído 1019 veces)

Charly · « **en:** Viernes 20 de Febrero de 2004, 19:53 »

Buenas tardes,

esto es lo que yo tenga para insertar un registro en mi BDD conectada con Dataenvironment. Lo que quiero es que antes de que haga el insert compruebe que el registro que voy a meter no existe, y si existe, que me avise. ¿Como lo hago? ¿que me falta por añadir a mi código?

Private Sub cmdAltas_Click()
Sele = "insert into contactos (Nombre, Apellidos) values ('" & txtNombre.Text & "', '" & txtApellidos.Text & "')"
Actualizar (Sele) 'esta función ejecuta el insert
Call Form_Load
End Sub

Muchas gracias de antemano

Brroz

Hola Charly.

Si la tablas en la que intentas insertar datos no soporta claves duplicadas, supervisa el error que te de al intentar insertar.

Otra opción es que previamente realices un SELECT de la tabla filtrando por los valores que quieres insertar, si Recordset.RecordCount = 0, entonces no existe el registro. Ten en cuenta que los valores de comparación de la cláusula WHERE son sensibles a mayúsculas minúsculas.

Algo así:

Código: Text

 
    Dim cnx1 As ADODB.Connection
    Dim cmd1 As ADODB.Command
    Dim rs1 As Recordset
    Set cnx1 = New ADODB.Connection
    cnx1.CursorLocation = adUseClient
    cnx1.Open &#34;Provider=Microsoft Jet 4.0 OLE DB Provider;&#34; _
    & &#34;Data Source=C:&#092;Ruta&#092;BaseDeDatos.mdb;&#34;
    Set cmd1 = New ADODB.Command
    Set cmd1.ActiveConnection = cnx1
    cmd1.CommandType = adCmdText
    cmd1.CommandText = &#34;SELECT * FROM Contactos &#34; _
    & &#34;WHERE UCase(Trim(Nombre))='&#34; _
    & UCase(Trim(txtNombre.Text)) & &#34;' AND &#34; _
    & &#34;UCase(Trim(Apellidos))='&#34; _
    & UCase(Trim(txtApellidos.Text)) & &#34;'&#34;
    Set rs1 = cmd1.Execute()
    If rs1.RecordCount &#62; 0 Then MsgBox &#34;Ya existe en la tabla&#34;
    rs1.Close
    Set rs1 = Nothing
    Set cmd1 = Nothing
    cnx1.Close
    Set cnx1 = Nothing
 
 

Claro está, que en vez de declarar una nueva conexión y/o comando, puedes reutilizar los que ya tengas.

Suerte.

SoloCodigo

Autor Tema: Comprobar Si Ya Existe Un Registro (Leído 1019 veces)

Charly

Comprobar Si Ya Existe Un Registro

Brroz

Re: Comprobar Si Ya Existe Un Registro