Re: Programar aplicacion con VB...

Article View: chile.comp.programacion

Article #2574

Back to chile.comp.programacion Previous Next

#2574

From: gato2005_cl
Date: Mon, 12 Dec 2005 18:24

416 lines
16557 bytes

This is a multi-part message in MIME format.
--------------090503030506030209070507
Content-Type: text/plain; charset=windows-1252; format=flowed
Content-Transfer-Encoding: 8bit



+mArkO+ escribi�:
> gracias por el tip mister
> =)
> 
> "Felipe Jara" <nex84@BORRENESTOvtr.net> escribi� en el mensaje
> news:dnir0c$skl$1@news.nivel5.cl...
> 
>>Estoy en las mismas:
>>
>>Por suerte encontre www.vbmysql.com
>>
>>Excelente lugar, te explican paso a paso. Ahora utilizo mysql en vez del
> 
> sql
> 
>>server, me resulto mas "claro" para usar.
>>
>>
>>Saludos
>>
>>"+mArkO+" <NOSPAMjoin.xtc@gmail.comNOSPAM> escribi� en el mensaje
>>news:dnd744$222$1@news.nivel5.cl...
>>
>>>a proposito de lo mismo
>>>podrias darme un ejemplo de como utilizar mysql con vb
>>>ya instale el componente necesario en odbc, pero como se realiza la
>>>conexion
>>>no cacho
>>>
>>>
>>>
>>>"Pintamono" <pintamono79@yahoo.es> escribi� en el mensaje
>>>news:1134139741.620808.202790@f14g2000cwb.googlegroups.com...
>>>Sres. se me planteo la siguiente duda....
>>>Si se progrma una aplicacion en VB y se quiere usar MySql como BD,
>>>como se hace para que al momento de instalar la aplicacion se instale
>>>el mysql y automaticamente instale los drivers y el usuario y
>>>contrase�a para conectarse al mysql???
>>>ejemplo: se vende la aplicacion en CD a un viejo de otro pais, no voy a
>>>viajar para instalarle la cuestion....
>>>
>>>�Como se hace? �A?
>>>
>>>Graicas.
>>>
>>>
>>
>>
> 
> 

--------------090503030506030209070507
Content-Type: text/plain;
 name="Registro de DSN de usuario y sistema.cls"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="Registro de DSN de usuario y sistema.cls"

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsDsn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

'Constant Declaration
Private Const ODBC_ADD_DSN = 1        ' Add data source
Private Const ODBC_CONFIG_DSN = 2     ' Configure (edit) data source
Private Const ODBC_REMOVE_DSN = 3     ' Remove data source

Private Const ODBC_ADD_SYS_DSN = 4
Private Const ODBC_CONFIG_SYS_DSN = 5
Private Const ODBC_REMOVE_SYS_DSN = 6
Private Const ODBC_REMOVE_DEFAULT_DSN = 7
Private Const vbAPINull As Long = 0&  ' NULL Pointer


'Function Declare
#If Win32 Then
    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
#Else
    Private Declare Function SQLConfigDataSource Lib "ODBCINST.DLL" _
    (ByVal hwndParent As Integer, ByVal fRequest As Integer, ByVal _
    lpszDriver As String, ByVal lpszAttributes As String) As Integer
#End If
                                        
Public Function CrearDSN(ByVal strDriver As String, _
            ByVal strAttributes As String, Optional tipo As Boolean = False) As Boolean

#If Win32 Then
    Dim intRet As Long
#Else
    Dim intRet As Integer
#End If
If tipo = False Then
     intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, _
        strDriver, strAttributes)
Else
    intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, _
        strDriver, strAttributes)
End If
If intRet Then
    CrearDSN = True
Else
    CrearDSN = False
End If
End Function

Public Function BorrarDSN(strDriver As String, _
            strAttributes As String, Optional tipo As Boolean = False) As Boolean
#If Win32 Then
    Dim intRet As Long
#Else
    Dim intRet As Integer
#End If
Dim cadena As String
cadena = "DSN=" & strAttributes & Chr$(0)
If tipo = False Then
    intRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, _
        strDriver, strAttributes)
Else
    intRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_SYS_DSN, _
        strDriver, strAttributes)
End If

If intRet Then
    BorrarDSN = True
Else
    BorrarDSN = False
End If
End Function

Public Function AtributosCon(controlador As String, _
        dsn As String, _
        servidor As String, _
        basededatos As String, _
        descripcion As String, _
        Optional usuario As String = "", _
        Optional clave As String = "") As String
Dim cadena As String
Dim cadena2 As String
Dim posicion As Integer
Dim posicion2 As Integer
Dim tamano As Integer

Select Case controlador
    ' cadena de conexion para el servidor  de sqlserver
    Case "SQL Server"
        cadena = "DSN=" & dsn & Chr$(0)
        posicion = InStr(servidor, ";")
        If posicion = 0 Then
            cadena = cadena & "SERVER=" & servidor & Chr$(0)
        Else
            posicion2 = InStr(servidor, ":")
            cadena2 = Left(servidor, posicion2 - 1)
            cadena = cadena & "SERVER=" & cadena2 & Chr$(0)
            cadena2 = Left(servidor, posicion - 1)
            cadena = cadena & "Address=" & servidor & Chr$(0)
            cadena = cadena & "Network=DBMSSOCN" & Chr$(0)
        End If
       cadena = cadena & "DESCRIPTION=" & descripcion & Chr$(0)
       cadena = cadena & "DATABASE=" & basededatos & Chr$(0)
       cadena = cadena & "LANGUAGE=Spanish" & Chr$(0)
       If usuario <> "" Then
            cadena = cadena & "Trusted_Connection= No" & Chr$(0)
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
       Else
            cadena = cadena & "Trusted_Connection= Yes" & Chr$(0)
       End If
    
    'cadena de conexion para microsoft accesss
    Case "Microsoft Access Driver (*.mdb)"
        cadena = "DSN=" & dsn & Chr$(0)
        If InStr(servidor, "mdw") = 0 Then
            cadena = cadena & "DBQ=" & basededatos & Chr$(0)
        Else
            cadena = cadena & "DBQ=" & basededatos & Chr$(0)
            cadena = cadena & "SYSTEMDB=" & servidor & Chr$(0)
        End If

        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
    
    'cadena de conexion para archivos de textos
    Case "Microsoft Text Driver (*.txt; *.csv)"
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = cadena & "DBQ=" & basededatos & Chr$(0)
        cadena = cadena & "Extensions=asc,csv,tab,txt" & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
    'cadena de conexion odbc para archivos excel
    Case "Microsoft Excel Driver (*.xls)"
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = "DriverId=790" & Chr$(0)
        cadena = cadena & "DBQ=" & basededatos & Chr$(0)
        cadena2 = Left(cadena, InStrRev(basededatos, "\") - 1)
        cadena = cadena & "DefaultDir=" & cadena2 & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
    
    'cadena de conexion odbc para  bases de datos dbase
    Case "Microsoft dBase Driver (*.dbf)"
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = "DriverID=277" & Chr$(0)
        cadena = cadena & "DBQ=" & basededatos & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
    
    'cadena de conexion odbc para bases de datos paradox
    Case "Microsoft Paradox Driver (*.db )"
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = "DriverID=538" & Chr$(0)
        cadena = cadena & "Fil=Paradox 5.X" & Chr$(0)
        cadena = cadena & "DefaultDir=" & basededatos & Chr$(0)
        cadena = cadena & "DBQ=" & basededatos & Chr$(0)
        cadena = cadena & "CollatingSequence=ASCII" & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
        
    'cadena de conexion odbc para visual foxpro y foxpro
    Case "Microsoft Visual FoxPro Driver", _
         "Microsoft FoxPro Driver (*.dbf)"
        cadena = "DSN=" & dsn & Chr$(0)
        If InStr(basededatos, "dbf") = 0 Then
        
           cadena = "SourceType=DBF" & Chr$(0)
           cadena = cadena & "SourceDB=" & basededatos & Chr$(0)
           cadena = cadena & "Exclusive=No" & Chr$(0)

        Else
            cadena = "SourceType=DBC" & Chr$(0)
            cadena = cadena & "SourceDB=" & basededatos & Chr$(0)
            cadena = cadena & "Exclusive=No" & Chr$(0)
        End If
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
    
    'cadena de conexion odbc para bases de datos oracle via microsoft u oracle
    Case "Microsoft ODBC for Oracle", _
         "Oracle ODBC Driver"
        cadena = "DSN=" & dsn & Chr$(0)
        If InStr(controlador, "Microsoft") Then
            cadena = "Server=" & servidor & Chr$(0)
        End If
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
    
    'cadena de conexion odbc para mysql con controlador odbc 3.51
    Case "MySQL ODBC 3.51 Driver"
        cadena = "DSN=" & dsn & Chr$(0)
        posicion = InStr(servidor, ";")
        If posicion = 0 Then
            cadena = cadena & "SERVER=" & servidor & Chr$(0)
        Else
            cadena2 = Left(servidor, posicion - 1)
            cadena = cadena & "SERVER=" & cadena2 & Chr$(0)
            posicion2 = Len(servidor) - posicion
            cadena2 = Right(servidor, posicion2)
            cadena = cadena & "PORT=" & cadena2 & Chr$(0)
        End If
        
        cadena = cadena & "DATABASE=" & basededatos & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
        cadena = cadena & "OPTION=3" & Chr$(0)
    
    'cadena de conexion odbc para bases en sistemas IBM AS/400
    Case "Client Access ODBC Driver (32-bit)"
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = cadena & "System=" & servidor & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
    
    'cadena de conexion odbc para sistemas Informix version 2.5
    Case "Informix-CLI 2.5 (32 Bit)"
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = cadena & "SERVER=" & servidor & Chr$(0)
        cadena = cadena & "DATABASE=" & basededatos & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
    
    'cadena de conexion odbc para sistemas Informix version 3.30
    Case "INFORMIX 3.30 32 BIT"
        cadena = "DSN=" & dsn & Chr$(0)
        tamano = Len(servidor)
        posicion = InStr(servidor, ";")
        cadena2 = Left(servidor, posicion - 1)
        cadena2 = cadena2 & "HOST=" & cadena2 & Chr$(0)
        posicion = posicion + 1
        posicion2 = InStr(posicion, servidor, ";")
        cadena2 = Mid(servidor, posicion, _
                    posicion2 - posicion)
        cadena = cadena & "SERVER=" & cadena2 & Chr$(0)
        posicion = posicion2 + 1
        posicion2 = InStr(posicion, servidor, ";")
        cadena2 = Mid(servidor, posicion, _
                    posicion2 - posicion)
        cadena = cadena & "SERVICE=" & cadena2 & Chr$(0)
        posicion = posicion2
        cadena2 = Right(servidor, tamano - posicion)
        cadena = cadena & "PROTOCOL=" & cadena2 & Chr$(0)
        cadena = cadena & "DATABASE=" & basededatos & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
        
    'cadena de conexion odbc para sistemas interbase de easysoft
    Case "Easysoft IB6 ODBC"
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = cadena & "SERVER=" & servidor & Chr$(0)
        cadena = cadena & "DATABASE=" & basededatos & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
        
    'cadenas de conexion odbc para  sistemas interbase de intersolv
    Case "INTERSOLV InterBase ODBC Driver (*.gdb)"
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = cadena & "SERVER=" & servidor & Chr$(0)
        cadena = cadena & "DATABASE=" & basededatos & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
            
    'cadena de conexion odbc para sistemas Lotus Notes version 3.01
    Case "Lotus NotesSQL 3.01 (32-bit) ODBC DRIVER (*.nsf)"
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = cadena & "SERVER=" & servidor & Chr$(0)
        cadena = cadena & "DATABASE=" & basededatos & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
        
    'Uso del controlador  Sybase System 12 (or 12.5) Enterprise Open Client ODBC Driver
    'Uso del controlador  Sybase System 11 ODBC Driver
    'Uso del controlador  Intersolv 3.10 Sybase ODBC Driver
    Case "SYBASE ASE ODBC Driver", _
        "SYBASE SYSTEM 11", _
        "INTERSOLV 3.10 32-BIT Sybase"
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = cadena & "SRVR=" & servido & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
        
    'cadena para el controlador ODBC Driver for Sybase SQL Anywhere
    Case "Sybase SQL Anywhere 5.0"
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = cadena & "DEFAULTDIR=" & servidor & Chr$(0)
        cadena = cadena & "DBF=" & basededatos & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
           
    Case Else
        cadena = "DSN=" & dsn & Chr$(0)
        cadena = cadena & "SERVER=" & servidor & Chr$(0)
        cadena = cadena & "DATABASE=" & basededatos & Chr$(0)
        If usuario <> "" Then
            cadena = cadena & "UID=" & usuario & Chr$(0)
            cadena = cadena & "PWD=" & clave & Chr$(0)
        End If
End Select
    AtributosCon = cadena
End Function



--------------090503030506030209070507--

Technical Details

Message-ID: <dnkf99$7lr$2@news.nivel5.cl>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!novia!news-xfer.nntp.sonic.net!news.kjsl.com!news.nivel5.cl!not-for-mail

References:

<1134139741.620808.202790@f14g2000cwb.googlegroups.com> <dnd744$222$1@news.nivel5.cl> <dnir0c$skl$1@news.nivel5.cl> <dnisun$ukb$1@news.nivel5.cl>

Show Full Headers

Complete Article Headers

X-Google-Thread: 1593cb,c67fcac0d42edb6d
X-Google-Attributes: gid1593cb,public
X-Google-Language: SPANISH,CP1252
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!novia!news-xfer.nntp.sonic.net!news.kjsl.com!news.nivel5.cl!not-for-mail
From: gato2005_cl <misforos.chileSINESTO@gmail.com>
Newsgroups: chile.comp.programacion
Subject: Re: Programar aplicacion con VB...
Date: Mon, 12 Dec 2005 15:24:15 -0300
Organization: Varios
Lines: 416
Message-ID: <dnkf99$7lr$2@news.nivel5.cl>
References: <1134139741.620808.202790@f14g2000cwb.googlegroups.com> <dnd744$222$1@news.nivel5.cl> <dnir0c$skl$1@news.nivel5.cl> <dnisun$ukb$1@news.nivel5.cl>
NNTP-Posting-Host: pc-178-51-86-200.cm.vtr.net
Mime-Version: 1.0
Content-Type: multipart/mixed;
 boundary="------------090503030506030209070507"
X-Trace: news.nivel5.cl 1134411882 7867 200.86.51.178 (12 Dec 2005 18:24:42 GMT)
X-Complaints-To: news@news.nivel5.cl
NNTP-Posting-Date: Mon, 12 Dec 2005 18:24:42 +0000 (UTC)
User-Agent: Mozilla/5.0 (Windows; U; Win98; es-ES; rv:1.7.10) Gecko/20050716 Thunderbird/1.0.7 Mnenhy/0.7.2.0
X-Accept-Language: es-es, es
In-Reply-To: <dnisun$ukb$1@news.nivel5.cl>

Reply to Parent Message