Visual Basic.NET - Conector de MYSQL para VIsual Studio

   
Vista:

Conector de MYSQL para VIsual Studio

Publicado por jose (15 intervenciones) el 28/04/2013 17:30:26
Hola a todos,

Estoy realizando un trabajo con windows form conectado a una base de datos de MYSQL.

El problema que tengo es que he conseguido trabajar durante un tiempo con dotconnect de devart y me ha dejado de funcionar dejando con el trabajo a medias.

Alguien conoce algun connector gratuito que se añada al Visual Studio.

Muchas gracias,
Jose Luis.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Conector de MYSQL para VIsual Studio

Publicado por apacheco (78 intervenciones) el 04/05/2013 16:53:26
Yo me conecto con OLEDB, previa descarga e instalacion del Driver diseñado por Oracle para dicha base de datos.

En el programa defino en un Modulo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Public sqlCmd As MySqlCommand
Public myTrans As MySqlTransaction    ' Para hacer Transacciones
Public rsAux As MySqlDataReader
 
Public CadenaCinexion  As String = "Provider=MySql;" & _
                                                                  "Data Source=IP_del_servidor;" & _
                                                                  "Initial Catalog=nombre_de_la_bd;" & _
                                                                  "User Id=tu_usuario_definido;" & _
                                                                  "Password=clave_de_acceso_a_la_BD"
 
Importar en cada modulo
 
Imports MySql.Data
Imports MySql.Data.MySqlClient
 
'/* Crearla conexión */
sqlCon = New MySqlConnection()
sqlCon.ConnectionString = strConex
 
' Abrir la base de datos
sqlCon.Open()
 
 
' Ejemplo para lectura de varios registros (dataReader)    Public Function Buscar_Administrador(ByVal idvia As Long, _
                                         ByVal iddom As Long, _
                                         ByVal numero As String, _
                                         ByVal idcpo As Long) As Long
 
        Dim rsAdm As MySqlDataReader = Nothing
 
        Try
            Buscar_Administrador = 0
 
            If Not Conectar() Then Exit Function
 
            sSql = "SELECT doa_idadministrador " & _
                   "FROM domicilios_administrados " & _
                   "WHERE doa_idtipovia = " & idvia & " AND " & _
                         "doa_iddomicilio = " & iddom & " AND " & _
                         "doa_numero = '" & numero & "' AND " & _
                         "doa_idcodpostal = " & idcpo
 
            sqlCmd = New MySqlCommand(sSql, sqlCon)
            rsAdm = sqlCmd.ExecuteReader
            If rsAdm.Read Then
                Buscar_Administrador = rsAdm("doa_idadministrador")
            End If
 
            rsAdm.Close()
            rsAdm = Nothing
 
        Catch ex As Exception
            MostrarError("Módulo General", "Funcion Buscar_Administrador", Err.Number, _
                        "ERROR AL OBTENER EL ADMINISTRADOR", _
                        MessageBoxIcon.Stop + MessageBoxButtons.OK, _
                        "BÚSQUEDA DEL ADMINISTRADOR DEL DOMICILIO")
 
        Finally
            If Not IsNothing(rsAdm) Then
                rsAdm.Close()
                rsAdm = Nothing
            End If
 
        End Try
 
    End Function
 
' Ejemplo para actualizar la base de datos
                If esalta Then
 
                    sSql = "INSERT INTO tipos_iva " & _
                               "(tiv_fecha, tiv_iva, tiv_igic, tiv_reducido) " & _
                           "VALUES ('" & CDate(mtbFechaInicio.Text).ToString("yyyy-MM-dd") & "', " & _
                                         txtTipoIva.Text & ", " & _
                                         txtTipoIgic.Text & ", " & _
                                         txtTipoReduc.Text & ")"
                Else
                    sSql = "UPDATE tipos_iva " & _
                           "SET tiv_iva = " & txtTipoIva.Text & ", " & _
                               "tiv_igic = " & txtTipoIgic.Text & ", " & _
                               "tiv_reducido = " & txtTipoReduc.Text & " " & _
                           "WHERE tiv_fecha = '" & CDate(mtbFechaInicio.Text).ToString("yyyy-MM-dd") & "' "
                End If
 
                sqlCmd = New MySqlCommand(sSql, sqlCon)
                sqlCmd.ExecuteNonQuery()
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar