necesito entender el uso de VB.NET junto con MYSQL

[Belial & Grimoire]

estoy aprendiendo a usar Visual net con mysql, ya llevo varios años de no usar visual basic y me estoy confundiendo demasiado, me podrian ayudar diciendome donde encuentro informacion sobre como programar con .NET para mysql?

miren esto es lo que llevo, ya son varias paginas donde busco y son distintas formas de acceso, pero no encuentro alguna que me sirva, algo que note es que hay formas de usar Reader y Datatable, alguien me podria explicar su uso

les dejo el codigo que llevo, esta medio revuelto de varios intentos, pero espero sea entendible

Código (vbnet) [Seleccionar] Expandir


Imports MySql.Data.MySqlClient

Public Class Form1

    Private Sub SalirToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SalirToolStripMenuItem.Click
        End
    End Sub

    Private Sub AbrirToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbrirToolStripMenuItem.Click

        Dim con As New MySqlConnection()
        Dim user As String = "root"
        Dim pass As String = "gazette"
        Dim servidor As String = "localhost"
        Dim dbase As String = "bdatos"
        con.ConnectionString = "database=" & dbase & ";" & "server=" & servidor & ";" & "user id=" & user & ";" & "password=" & pass & ";"
        con.Open()
        Dim quer As String = "SELECT * FROM bdatos WHERE id = 1"
        Dim mycmd As MySqlCommand = New MySqlCommand(quer, con)

        mycmd.Parameters.AddWithValue("1", TextBox1.Text)

        Dim reader As MySqlDataReader = mycmd.ExecuteReader()
        If reader.Read() Then
            TextBox1.Text = CStr(reader("nombre"))
        End If


    End Sub
End Class


[NetJava]

Lo he copiado todo un poco rápido.

Cadena de conexión:

Código [Seleccionar] Expandir


'Para dar valores a la cadena de conexión:
    Public Sub ms_cadena_conexion()
        str_ConexionBD = "server=" & str_bd_servidor & ";"

        If str_bd_usuario <> "" And str_bd_usuario <> " " Then
            str_ConexionBD = str_ConexionBD & "user id=" & str_bd_usuario & ";"
        End If

        If str_bd_password <> "" And str_bd_password <> " " Then
            str_ConexionBD = str_ConexionBD & "password=" & str_bd_password & ";"
        End If

        str_ConexionBD = str_ConexionBD & "port=" & str_bd_puerto & ";" & _
                "database=" & str_bd_basedatos & "; Persist Security Info=True;"
    End Sub


Código [Seleccionar] Expandir


Imports System

Imports MySql.Data.MySqlClient
Imports MySql.Data.MySqlClient.MySqlConnection
Imports MySql.Data.MySqlClient.MySqlCommand
Imports MySql.Data.MySqlClient.MySqlDataReader


Código [Seleccionar] Expandir


Public Sub ms_modifiDocumento()
        Dim str_sql As String = ""
        str_sql = "Update documentos Set " & _
            "doc_titulo = '" & str_doc_titulo & "'," & _
            "doc_fchAlta = '" & dat_doc_fchAlta & "'," & _
            "doc_importancia = '" & str_doc_importancia & "'," & _
            "doc_dirDocumento = '" & str_doc_dirDocumento & "' " & _
            "Where PK_doc_idDoc = " & PK_doc_idDoc & ""
        cls_conexion.ms_modificar(str_sql)
        ms_limpiar()
    End Sub


Código [Seleccionar] Expandir


Public Sub ms_modificar(ByVal str_sql As String)
        Try
            InicializadorDataAdapterDataSet()
            ConexionConBD.ConnectionString = str_ConexionBD
            ConexionConBD.Open()
            Orden = New MySql.Data.MySqlClient.MySqlCommand(str_sql, ConexionConBD)
            Orden.ExecuteNonQuery()
            FinInicializadorDataAdapterDataSet()
            ConexionConBD.Close()
            Orden = Nothing
        Catch ex As Exception

        End Try
End Sub

Public Sub InicializadorDataAdapterDataSet()
        Try
            AdaptadorDeDatos = New MySql.Data.MySqlClient.MySqlDataAdapter
            MySqlSelectCommand1 = New MySql.Data.MySqlClient.MySqlCommand
            MySqlInsertCommand1 = New MySql.Data.MySqlClient.MySqlCommand
            MySqlUpdateCommand1 = New MySql.Data.MySqlClient.MySqlCommand
            MySqlDeleteCommand1 = New MySql.Data.MySqlClient.MySqlCommand
            AdaptadorDeDatos.SelectCommand = MySqlSelectCommand1
            AdaptadorDeDatos.InsertCommand = MySqlInsertCommand1
            AdaptadorDeDatos.UpdateCommand = MySqlUpdateCommand1
            AdaptadorDeDatos.DeleteCommand = MySqlDeleteCommand1

            DataSet1 = New DataSet
            ConexionConBD = New MySqlConnection()
        Catch ex As Exception
        End Try
End Sub

Public Sub FinInicializadorDataAdapterDataSet()
        Try
            AdaptadorDeDatos = Nothing
            MySqlSelectCommand1 = Nothing
            MySqlInsertCommand1 = Nothing
            MySqlUpdateCommand1 = Nothing
            MySqlDeleteCommand1 = Nothing
            DataSet1 = Nothing
        Catch ex As Exception
           
        End Try
End Sub



Pero seguro que lo puedes mejorar, que es de hace mucho Saludos.

[Belial & Grimoire]

gracias, voy a estudiar tu codigo

si alguien conoce algun tutorial, o pagina web donde muestren mas cosas para estudiarlas, se los agradeceria

salu2 y gracias