OLA ESTOY ACIENDO UN SISTEMA DE FACTURAS
ESTOY UTILIZANDO VISUAL BASIC.NET Y BASE DE DATOS MYSQL
NECESITO SABER SI ALGUIEN DE AQUI SABE COMO REALIZAR UN INGRESO DE DATOS A LA BASE DE DATOS..
POR FAVOR SI ALGUIEN SABE RESPODANME AL CORREO (toloza.c@gmail.com)
abajo les adjunto al codigo q estoy usando para ingresar datos
pero solo me ingresa box en blancos XD....
?
-----------------------------------------------------------------------------------------------------
Private Sub btnGuardar_Cli
ck(ByVal sender As System.Object, ByVal e As System.EventAr
gs) Handles btnGuardar.Cli
ck
If Validar_Datos() = False Then Exit Sub ' si es falso no hace lo de abajo
If (txtNombre.Text <> "" And txtRut.Text <> "") Then
If verificar(txtRut.Text) = False Then
Dim q As String = "INSERT INTO clientes VALUES (nombre, rut)"
orden1 = New MySqlCommand(q, con)
orden1.Paramet
ers.Add(New MySqlParameter("nombre", MySqlDbType.Te
xt, 30))
orden1.Paramet
ers("nombre").Value = txtNombre.Text
orden1.Paramet
ers.Add(New MySqlParameter("rut", MySqlDbType.Te
xt, 20))
orden1.Paramet
ers("rut").Value = txtRut.Text
orden1.Connect
ion.Open()
orden1.Execute
NonQuery()
orden1.Connect
ion.Close()
MessageBox.Sho
w("Se han ingresado todos los datos correctamente", "INGRESO EXITOSO")
txtNombre.Text = "" 'limpia la caja de texto al presionar aceptar en el mensaje
txtRut.Text = "" 'limpia la caja de texto al presionar aceptar en el mensaje
txtNombre.Focu
s() 'despues de presionar aceptar en el mensaje, posiciona el teclado en el textbox
Else
MessageBox.Sho
w("El Rut ingresado ya se encuentra en la Base da Datos", "ERROR")
txtRut.Focus()
txtRut.Text = ""
End If
End If
End Sub
Autor