Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

VBExpress + Mysql - Codigos Eliminacion + grabar...

Estas en el tema de VBExpress + Mysql - Codigos Eliminacion + grabar... en el foro de Visual Basic clásico en Foros del Web. 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). ...
  #1 (permalink)  
Antiguo 31/07/2006, 15:19
Avatar de ciopatrick  
Fecha de Ingreso: diciembre-2003
Mensajes: 189
Antigüedad: 20 años, 4 meses
Puntos: 0
VBExpress + Mysql - Codigos 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.
Para esto necesito un librito o manual pero no he encontrado nada al respecto y didactico sumado a lo practico......
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.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 05:36.