¿Cómo usar Report Manager con VB 6 (2º Parte)?

MOD_DSN (crea la conexión)

Option Explicit

' Constantes

Private Const ODBC_ADD_DSN = 1 ' Nuevo DSN

Private Const ODBC_CONFIG_DSN = 2 ' Modificar DSN

Private Const ODBC_REMOVE_DSN = 3 ' Eliminar DSN

Private Const ODBC_ADD_SYS_DSN = 4 ' Nuevo DSN de sistema

Private Const ODBC_CONFIG_SYS_DSN = 5 ' Modificar DSN de sistema

Private Const ODBC_REMOVE_SYS_DSN = 6 ' Eliminar DSN de sistema

Private Const vbAPINull As Long = 0 ' Null Pointer

Private Const SQL_SUCCESS As Long = 0

Private Const SQL_FETCH_NEXT As Long = 1

' Declaración de funciones de API

Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long

Private Declare Function SQLDataSources Lib "ODBC32.DLL" (ByVal henv As Long, ByVal fDirection As Integer, ByVal szDSN As String, ByVal cbDSNMax As Integer, pcbDSN As Integer, ByVal szDescription As String, ByVal cbDescriptionMax As Integer, pcbDescription As Integer) As Integer

Private Declare Function SQLAllocEnv Lib "ODBC32.DLL" (Env As Long) As Integer

‘Elimina un DSN del sistema.

Function BorrarDSN(sDSN As String, sDriver As String) As Boolean

Dim sAtributos As String

' Borramos el DSN (En vez de vbAPINull, empleamos el hwnd del formulario)

If ExisteDSN(sDSN) Then

sAtributos = "DSN=" & sDSN & Chr(0)

BorrarDSN = CBool(SQLConfigDataSource(vbAPINull, ODBC_REMOVE_SYS_DSN, sDriver, sAtributos))

Else

MsgBox ExIdioma("ModDSN_Contr1")

BorrarDSN = False

End If

End Function

‘Comprueba si existe un DSN en el sistema.

Function ExisteDSN(sDSN As String) As Boolean

Dim I As Integer, j As Integer

Dim sDSNItem As String * 1024

Dim sDRVItem As String * 1024

Dim sDSNActual As String

Dim sDRV As String

Dim iDSNLen As Integer

Dim iDRVLen As Integer

Dim lHenv As Long 'controlador del entorno

Dim DSNLISTA(100)

ExisteDSN = False

For j = 1 To 52

DSNLISTA(j) = ""

Next j

j = 1

If SQLAllocEnv(lHenv) <> -1 Then

Do Until I <> SQL_SUCCESS

sDSNItem = Space(1024)

sDRVItem = Space(1024)

I = SQLDataSources(lHenv, SQL_FETCH_NEXT, sDSNItem, 1024, iDSNLen, sDRVItem, 1024, iDRVLen)

sDSNActual = VBA.Left(sDSNItem, iDSNLen)

sDRV = VBA.Left(sDRVItem, iDRVLen)

If sDSN <> Space(iDSNLen) Then

DSNLISTA(j) = sDSN

If UCase(sDSN) = UCase(sDSNActual) Then

ExisteDSN = True

Exit Do

End If

End If

Loop

End If

End Function

‘Crea un DSN del sistema.

Function CrearDSN(sDSN As String, sDriver As String, sAtributos As String) As Boolean

' Creamos el DSN (En vez de vbAPINull, empleamos el hwnd del formulario)

CrearDSN = CBool(SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, sDriver, sAtributos))

End Function

‘Crea un DSN MySQL con los atributos bien seteados.

Function MySQLCrearDSN(sDSN As String) As Boolean

Dim sDriver As String

Dim sAtributos As String

sDriver = "MySQL ODBC 3.51 Driver"

sAtributos = "DSN=" & sDSN & Chr(0)

sAtributos = sAtributos & "SERVER=" & StrServer & Chr(0)

sAtributos = sAtributos & "PORT=3306" & Chr(0)

sAtributos = sAtributos & "DATABASE=" & StrBD & Chr(0)

sAtributos = sAtributos & "USER=" & Usu & Chr(0)

sAtributos = sAtributos & "PASSWORD=" & Contra & Chr(0)

sAtributos = sAtributos & "OPTION=3" & Chr(0)

' Si queremos quitar la base de datos, debemos borrarlo antes

If ExisteDSN(sDSN) Then

Call BorrarDSN(sDSN, sDriver)

End If

MySQLCrearDSN = CrearDSN(sDSN, sDriver, sAtributos)

End Function

FrmLogin (Damos de alta la conexión)

        'Creamos el DSN para las conexiones con el gestor de reportes.

        If ExisteDSN("DSNTemp") = True Then

            'Si existe lo eliminamos previamente.

            If BorrarDSN("DSNTemp ", "MySQL ODBC 3.51 Driver") = False Then

                MsgBox “Fallo en la conexión”, cAceptar + cvbCritical

                End

            End If

        End If

        'Creamos el nuevo DSN.

        If MySQLCrearDSN("DSNTemp ") = False Then

            MsgBox “Fallo en la conexión”, cAceptar + cvbCritical

            End

        End If

Conexión ADO MySQL en VB6

Public Bd As ADODB.Connection '--> Declaramos la variable de Base de datos.

Public RM1 As ADODB.Recordset '--> Declaramos el Recordset.

Public Const DirServer = "localhost" 'Constante con la IP o el DNS del servidor.

Public Const Usu = “Usuario”

Public Const Contra = “Contraseña”

Public Const StrBD = “Base_de_datos”

'CONECTA CON LA BASE DE DATOS DEL CLIENTE.

'1) **************************************************************

Function ConecCliente()

    Set Bd = New ADODB.Connection

    Set RM1 = New ADODB.Recordset

    Bd.CursorLocation = adUseClient

    Bd.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & StrServer & ";PORT=3306;DATABASE=" & StrBD & "; USER=" & Usu & ";PASSWORD=" & Contra & ";OPTION=3;"

End Function

'1) **************************************************************