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