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


 
  




 Autor
 Autor
		


 En línea
									En línea
								

 
						 
						 
						