VB Express + Mysql (Codigo de Eliminacion + grabar... ) Bueno;
1ero les explico llevo como 7 años trabajando en vb 5-6 respectivamente, ahora quiero pegar el salto a la VBExpress o 2005 (lo mismo).
Aqui biene, quiero trabajar con VBExpress sumado a la BD MySql - bueno tengo los respectivos programas para hacerlo funcionar y fusionar
1- El enlace funciona lee una tabla y cosas pequeñas pero no se como realizar las consultas - modificaciones - eliminarciones de registros... en pocas palabras una mantencion (con esto ya puedo continuar ... actualmente leeo y leo pero no logro entender bien.!)
Para esto necesito un librito o manual pero no he encontrado nada al respecto y didactico sumado a lo practico... para mi seria mejor EJEMPLITOS AL RESPECTO,
He logrado algo sencillo para es casi nada - porfavor amigos del foro, se los agradeceria bastante: [email protected]
trabajo con Imports MySql.Data y Imports MySql.Data.MySqlClient
Codigo
Option Explicit On
Option Strict On
Option Compare Text
Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Base.Conexion_01()
If ConexionExitosa_01 Then
Dim Consulta_SQL As String = ("Select * from ctl where Nombre != ''")
Dim da As New MySqlDataAdapter(Consulta_SQL, Conexion01)
Dim ds As New DataSet
da.Fill(ds, "table")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "table"
End If
Call Base.Cerrar_01()
End Sub
End Class
**** Modulo Base
Option Explicit On
Option Compare Text
Imports MySql.Data
Imports MySql.Data.MySqlClient
Module Base
Public Conexion01 As MySqlConnection
Public ConexionExitosa_01 As Boolean
Sub Conexion_01()
Conexion01 = New MySqlConnection
ConexionExitosa_01 = True
If Conexion01.State <> ConnectionState.Open Then
Dim TxtServidor = "localhost"
Dim TxtBaseDato = "cla_log"
Dim TxtUsuarios = "root"
Dim TxtPassword = ""
Conexion01.ConnectionString = _
"Data Source=" & TxtServidor & ";" & _
"User Id=" & TxtUsuarios & ";" & _
"Password=" & TxtPassword & ";" & _
"Database=" & TxtBaseDato & ""
Conexion01.Open()
End If
Try
ConexionExitosa_01 = True
Catch MiError As MySqlException
MessageBox.Show("Error de Conexión a la Base de Datos: " & MiError.Message)
ConexionExitosa_01 = False
Call Cerrar_01()
End Try
End Sub
/////// Si alguien tiene ejemplos al respecto.... PORFAVOR SE LOS AGRADECERE BASTANTE--- solo necesito eso, el resto es similar y practica..
Gracias
__________________
Todo se aprende o de lo contrario, se estudia
