Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: gregarr en 16 Noviembre 2022, 03:11 am



Título: validar si un registro existe en una BD
Publicado por: gregarr en 16 Noviembre 2022, 03:11 am
Buenas estoy haciendo un sistema en visual basic.net 2019 con acces 2019.
el puto es que quiero momento deingresar un codigo en este caso de un cliente el sistema me indique si esta resistrado o no. el codigo es el siguiente;

Private Sub btguar_Click(sender As Object, e As EventArgs) Handles btguar.Click
        Dim conn As New OleDbConnection
        Dim instruccion As New OleDbCommand

        Try

            If Me.textnombre.Text = "" Then
                MsgBox("EL campo Nombre, no pueden estar en blanco", vbCritical, "ATENCION")
                Me.textnombre.Select()
            ElseIf Me.txtidentidad.Text = "" Then
                MsgBox("Los campos Cedula o RIF, no pueden estar en blanco", vbCritical, "ATENCION")
                Me.txtidentidad.Select()
            End If
       
        Catch ex As Exception
            'estableciendo conexion
            conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Goyo\source\repos\VEPROLIM\deter.accdb"
            conn.Open()
            'parametros a guardar
            instruccion = New OleDbCommand("insert into clientes(cedula,cliente,direccion,telefono)" &
                "values(txtidentidad,textnombre,textdirec,maxtelf)", conn)

            instruccion.Parameters.AddWithValue("@cedula", txtidentidad.Text)
            instruccion.Parameters.AddWithValue("@cliente", textnombre.Text)
            instruccion.Parameters.AddWithValue("@direcion", textdirec.Text)
            instruccion.Parameters.AddWithValue("@telefono", maxtelf.Text)

            instruccion.ExecuteNonQuery()
            MsgBox("Registro Guardado Correctamente", vbInformation, "Aviso")

            'MsgBox("Registro No se guardo", vbCritical, "Aviso")
        End Try
    End Sub

la idea es que realice la consulta y de no existir el registro se pueda guardar el mismo