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 |