Guardar en Mysql
Publicado por Edwin (4 intervenciones) el 20/09/2011 02:58:10
Hola amigos, soy novato en visual basic 2008 con mysql y he pasado por aqui para que me ayuden con algo que les contare.
Para conectarme a mysql he agregado un modulo y he puesto el siguiente codigo.
Imports MySql.Data.MySqlClient
Module Conexion
Public cad As String
Public query As String
Public cn As New MySqlConnection
Public da As MySqlDataAdapter
Public ds As DataSet
Public base As DataTable
Public exito As Boolean
Public Sub Conectar()
Try
cn = New MySqlConnection
cn.ConnectionString = ("server=localhost; user id=root; password=root; database=biblioteca")
'Abrimos la conexión y comprobamos que no hay error
cn.Open()
MessageBox.Show("Conexión Realizada Con Éxito!")
cn.Close()
Catch ex As MySqlException
'Si hubiese error en la conexión mostramos el texto de la descripción
MsgBox(ex.Message.ToString)
exito = False
End Try
End Sub
End Module
En el load del form escribo call conectar() y me conecta sin problemas a la base de datos.
El problema esta en que ahora quiero guardar datos desde mi formulario y el codigo que he puesto es el siguiente.
Dim SQL As String
SQL = "INSERT INTO LECTORES(IDLECTOR,NOMBRE,DIRECCION,TELEFONO,SEXO,EMAIL,OBSERV)"
SQL = SQL & "VALUES('" & txtid.Text & "', '" & txtnombre.Text & "', '" & txtdirecc.Text & "',"
SQL = SQL & " '" & txttelefono.Text & "','" & cmbsexo.Text & "','" & txtemail.Text & "', '" & txtobserv.Text & "')"
Conectar()
en visual basic 6.0 ponia algo asi cn.execute(sql) y me guardaba sin problemas aqui no se que parametros pasarle, este codigo lo he tomado de un libro pero no funciona, espero me puedan ayudar.
Saludos.
Para conectarme a mysql he agregado un modulo y he puesto el siguiente codigo.
Imports MySql.Data.MySqlClient
Module Conexion
Public cad As String
Public query As String
Public cn As New MySqlConnection
Public da As MySqlDataAdapter
Public ds As DataSet
Public base As DataTable
Public exito As Boolean
Public Sub Conectar()
Try
cn = New MySqlConnection
cn.ConnectionString = ("server=localhost; user id=root; password=root; database=biblioteca")
'Abrimos la conexión y comprobamos que no hay error
cn.Open()
MessageBox.Show("Conexión Realizada Con Éxito!")
cn.Close()
Catch ex As MySqlException
'Si hubiese error en la conexión mostramos el texto de la descripción
MsgBox(ex.Message.ToString)
exito = False
End Try
End Sub
End Module
En el load del form escribo call conectar() y me conecta sin problemas a la base de datos.
El problema esta en que ahora quiero guardar datos desde mi formulario y el codigo que he puesto es el siguiente.
Dim SQL As String
SQL = "INSERT INTO LECTORES(IDLECTOR,NOMBRE,DIRECCION,TELEFONO,SEXO,EMAIL,OBSERV)"
SQL = SQL & "VALUES('" & txtid.Text & "', '" & txtnombre.Text & "', '" & txtdirecc.Text & "',"
SQL = SQL & " '" & txttelefono.Text & "','" & cmbsexo.Text & "','" & txtemail.Text & "', '" & txtobserv.Text & "')"
Conectar()
en visual basic 6.0 ponia algo asi cn.execute(sql) y me guardaba sin problemas aqui no se que parametros pasarle, este codigo lo he tomado de un libro pero no funciona, espero me puedan ayudar.
Saludos.
Valora esta pregunta


0