Botones Dinamicos

[Aquaventus]

ahi un archivo llamado App.config, alli deberas agregarle la cadena de conexion o mejor dicho debería quedarte asi :

Código vb:

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
 
  <connectionStrings>
    
    <add name="cnx" connectionString="Driver={MySQL ODBC 3.51 DRIVER};Server=192.168.3.6;Port=3306;Database=TUBASEDEDATOS;User=USUARIO;Password=PASSWORD;Option=3" providerName="System.Data.odbc"/>
 
  </connectionStrings>
 
</configuration>
 

Luego para que te conectes crear una Clase Llamada Conexion de esta estructura:

Código vb:

Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.IO
Imports System.Xml
Imports System.Data
Imports MySql.Data
Imports System.Configuration
 
Namespace GRYPHOS_INCON.Conexion
    Public Class Conexion
 
        Private configuration As Configuration = Nothing
        Private section As ConnectionStringsSection = Nothing
 
        Public Function GetConex() As String
            Try
                configuration = ConfigurationManager.OpenExeConfiguration(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase.ToString()).Remove(0, 6) & "\TUEXE.exe")
                section = TryCast(configuration.GetSection("connectionStrings"), ConnectionStringsSection)
 
 
                Return section.ConnectionStrings("cnx").ConnectionString
 
            Catch ex As Exception
                Return ex.Message
            End Try
        End Function
    End Class
End Namespace
 

Luego cuando quieras hacer una consulta que retorne como en este ejemplo un listado de haría uso de un Datatable(Que para usarlo es necesario importar el System.Data) :

Código vb:

Dim cnx As OdbcConnection
 
Private Sub Listado_de_Datos()
 
    cnx = New OdbcConnection(cc.GetConex())
    Dim tabla As New DataTable()
 
    Try
        Dim da As New OdbcDataAdapter("select * from TUTABLA", cnx)
 
        cnx.Open()
 
        da.Fill(tabla)
 
        cnx.Close()
 
        datos = tabla
    Catch ex As Exception
        MessageBox.Show(ex.Message, "TU SOFTWARE")
    End Try
End Sub