Mysql Consultas VB 2008 ?

[cetroline]

hola tengo Un problemita tengo el siguiente codigo :

Código PHP:

  Imports MySql.Data.MySqlClient 
Public Class Form1 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        Dim Myconnection As MySqlConnection = New MySqlConnection() 
        Dim Mycommand As New MySqlCommand 
        Dim oData As MySqlDataReader 
        On Error GoTo 0 
 
        Myconnection.ConnectionString = "server=*****;database=****;Uid=****;Pwd=***" 
        Myconnection.Open() 
        MsgBox("conexion abierta") 
    End Sub 
End Class  
   

La conexion esta muy bien , el problema es que no encuentro en internet comandos o codigos para Consultar de la base de datos y colocarlos en texbox.

Código PHP:

  Imports System.Data.OleDb 
Public Class Form1 
    Dim N As Integer = 0 
    Dim CN As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=D:\BASEDATA.accdb") 
    'CREAREMOS UN PROCEDIMIENTO PARA MOSTRAR LA TABLA 
    Sub MOSTRAR() 
        Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM TRABAJADOR", CN) 
        Dim DS As New DataSet 
        DA.Fill(DS, "TRABAJADOR") 
        DataGridView1.DataSource = DS.Tables("TRABAJADOR") 
    End Sub 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        'AL MOMENTO Q CARGE EL FORM1 MUESTRE... 
        MOSTRAR() 
        CARGAR() 
        BLOQUEAR() 
        CARGAR_CBO() 
    End Sub 
    Sub CARGAR() 
        Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM TRABAJADOR", CN) 
        Dim DS As New DataSet 
        DA.Fill(DS, "TRABAJADOR") 
        CBOCOD.DataSource = DS.Tables("TRABAJADOR") 
        CBOCOD.DisplayMember = "COD" 
    End Sub 
    Sub CARGAR_CBO() 
        CBOCARGO.Items.Add("ADMINISTRADOR") 
        CBOCARGO.Items.Add("SUPERVISOR") 
        CBOCARGO.Items.Add("CONTADOR") 
        CBOCARGO.Items.Add("ASISTENTE") 
        CBOCARGO.Items.Add("PROGRAMADOR") 
 
        CBOTURNO.Items.Add("MAÑANA") 
        CBOTURNO.Items.Add("NOCHE") 
        CBOTURNO.Items.Add("TARDE") 
    End Sub 
    Sub LIMPIAR() 
        TXTAPE.Clear() 
        TXTDNI.Clear() 
        TXTNOM.Clear() 
        TXTSUELDO.Clear() 
        TXTTELF.Clear() 
 
        CBOCARGO.Text = "" 
        CBOCOD.Text = "" 
        CBOTURNO.Text = "" 
    End Sub 
    Sub BLOQUEAR() 
        BTNBUSCAR.Enabled = True 
        BTNNEW.Enabled = True 
        BTNGUARDAR.Enabled = False 
        BTNMODIFIC.Enabled = True 
        BTNELIMIN.Enabled = True 
        BTNCANCELAR.Enabled = False 
    End Sub 
    Sub DEBLOQUEAR() 
        BTNBUSCAR.Enabled = False 
        BTNNEW.Enabled = False 
        BTNGUARDAR.Enabled = True 
        BTNMODIFIC.Enabled = False 
        BTNELIMIN.Enabled = False 
        BTNCANCELAR.Enabled = True 
    End Sub 
    Sub BUSCAR_COD() 
        Dim CMD As New OleDb.OleDbCommand("SELECT * FROM TRABAJADOR WHERE COD='" & CBOCOD.Text & "'", CN) 
        Dim DR As OleDb.OleDbDataReader 
 
        CN.Open() 
        DR = CMD.ExecuteReader 
 
        If DR.Read Then 
            TXTDNI.Text = DR(1) 
            TXTNOM.Text = DR(2) 
            TXTAPE.Text = DR(3) 
            CBOCARGO.Text = DR(4) 
            CBOTURNO.Text = DR(5) 
            TXTSUELDO.Text = DR(6) 
            TXTTELF.Text = DR(7) 
        Else 
            MsgBox("ERROR") 
        End If 
        CN.Close() 
    End Sub 
    Sub NUEVO() 
        Dim CMD As New OleDb.OleDbCommand("INSERT INTO TRABAJADOR VALUES('" & CBOCOD.Text & "','" & TXTDNI.Text & "','" & TXTNOM.Text & "','" & TXTAPE.Text & "','" & CBOCARGO.Text & "','" & CBOTURNO.Text & "','" & TXTSUELDO.Text & "','" & TXTTELF.Text & "')", CN) 
        CN.Open() 
        CMD.ExecuteNonQuery() 
        CN.Close() 
        MOSTRAR() 
        MsgBox("REGISTRO AGREGADO") 
    End Sub 
    Sub MODIFICAR() 
        Dim CMD As New OleDb.OleDbCommand("UPDATE TRABAJADOR SET COD='" & CBOCOD.Text & "',DNI='" & TXTDNI.Text & "',NOM='" & TXTNOM.Text & "',APE='" & TXTAPE.Text & "',CARGO='" & CBOCARGO.Text & "',TURNO='" & CBOTURNO.Text & "',SUELDO='" & TXTSUELDO.Text & "',TELF='" & TXTTELF.Text & "' WHERE COD='" & CBOCOD.Text & "'", CN) 
        CN.Open() 
        CMD.ExecuteNonQuery() 
        CN.Close() 
        MOSTRAR() 
        MsgBox("REGISTRO ACTUALIZADO") 
    End Sub 
    Private Sub BTNBUSCAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBUSCAR.Click 
        BUSCAR_COD() 
    End Sub 
 
    Private Sub BTNNEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNNEW.Click 
        DEBLOQUEAR() 
        LIMPIAR() 
        N = 1 
    End Sub 
 
    Private Sub BTNMODIFIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMODIFIC.Click 
        DEBLOQUEAR() 
        N = 2 
    End Sub 
 
    Private Sub BTNGUARDAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGUARDAR.Click 
        If N = 1 Then 
            NUEVO() 
        ElseIf N = 2 Then 
            MODIFICAR() 
        End If 
        BLOQUEAR() 
        LIMPIAR() 
        CARGAR() 
        N = 0 
    End Sub 
 
    Private Sub BTNCANCELAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCANCELAR.Click 
        BLOQUEAR() 
        LIMPIAR() 
        N = 0 
    End Sub 
 
    Private Sub BTNELIMIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNELIMIN.Click 
        Dim CMD As New OleDb.OleDbCommand("DELETE FROM TRABAJADOR WHERE COD='" & CBOCOD.Text & "'", CN) 
        CN.Open() 
        CMD.ExecuteNonQuery() 
        CN.Close() 
        LIMPIAR() 
        CARGAR() 
        MOSTRAR() 
        MsgBox("EL REGISTRO SE A ELIMINADO") 
    End Sub 
End Class  
   

quisiera hacerlo con este codigo de arriba que es mas facil para mi , pero Dim CN As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.ACE.OLED B.12.0;DATA SOURCE=D:\BASEDATA.accdb") no se como conectarlo con mi BD en un servidor Web , quisiera hacerlo como arriba , pero esto recoje datos de uno local y acces ...

quisiera que me puedan ayudar ya tengo 2 dias enteros investigando sobre esto y mi unica esperanza es esta web .

[Erick21]

Hola , si estas importando todas las librerias del MySql ya puedes usar todas las clases. ese ejemplo que planteas esta bien solo adaptalo a tus necesidades.

[cetroline]

hola , gracias por la respuesta , me podrias ayudar es que no encuentro como hacerlo si te refieres al segundo no se como conectarlo a la BD remota , Pues me pide PROVIDER y no se que ponerle ...

gracias ...

[cetroline]

y la primera hay me quedo por que no se como hacer la consulta , e buscado en internet pero veo guias de hace años con el Conector 1.0 :S , y tambien otras que cuando las pongo sale con errores.

[Erick21]

haber , el PROVIDER es el proveedor de la Base de la Base de datos, osea tu conexion atu base de datos MYsql seria asi .

"Data Source=localhost;" & "Database=" & NombreBaseDatos & ";" & "User Id=root;Password=*****"

ahora si estas trabajando con una Base de datos Remota necesitas hacer una referencia y tu origen de datos. te dejo este link de ayuda.

http://www.foro.lospillaos.es/como-c...ql-vt5139.html

[cetroline]

Bueno intente como me dijistes quedaria hací verdad ? :

Código PHP:

  Imports System.Data.OleDb 
Public Class Form1 
    Dim N As Integer = 0 
    Dim CN As New OleDb.OleDbConnection("Data Source=www.server.com;" & "Database=xxxxx;" & "User Id=xxxxx;Password=xxxx") 
    CREAREMOS UN PROCEDIMIENTO PARA MOSTRAR LA TABLA 
    Sub MOSTRAR() 
        Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM TRABAJADOR", CN) 
        Dim DS As New DataSet 
        DA.Fill(DS, "TRABAJADOR") 
        DataGridView1.DataSource = DS.Tables("TRABAJADOR") 
    End Sub  
   

Me sale el siguiente error : Error al crear el formulario. Consulte Exception.InnerException para obtener más detalles. Error: No se ha especificado un proveedor OLE DB en ConnectionString. Un ejemplo sería, 'Provider=SQLOLEDB;'.

no le entiendo que quiso decir :S


y sobre la guia que me mandastes , creo que ya esta , Ya tengo puesta la referencia Mysql.data .