Visual Basic y conexion remota con mysql

[polodimar]

Hola amigos

Como puedo conectarme a mysql desde un computador con proxy por medio de mi programa hecho en visual basic


gracias

[BenRu]

Tres formas de abrir una conexion ADO:

Código [Seleccionar] Expandir

' There are three ways to open a Connection Object within ADO:
'   1) By Setting the ConnectionString property to a valid Connect
string and then calling the Open() method. This connection string
is provider- dependent.
'   2) By passing a valid Connect string to the first argument of
the Open() method.
'   3) By passing the ODBC Data source name and optionally user-id
and password to the Connection Object's Open() method.
' There are three ways to open a Recordset Object within ADO:
'   1) By opening the Recordset off the Connection.Execute()
method.
'   2) By opening the Recordset off the Command.Execute() method.
'   3) By opening the Recordset object without a Connection or
Command object, and passing an valid Connect string to the second
argument of the Recordset.Open() method.
' This code assumes that Nwind.mdb is installed with Visual Basic,
and is located in the C:\Program Files\DevStudio\VB directory.
' For more information see Microsoft Knowledgebase Article ID:
Q168336

      Private Sub cmdOpen_Click()

          Dim Conn1 As New adodb.Connection
          Dim Cmd1 As New adodb.Command
          Dim Errs1 As Errors
          Dim Rs1 As New adodb.Recordset
          Dim i As Integer
          Dim AccessConnect As String

          ' Error Handling Variables
          Dim errLoop As Error
          Dim strTmp As String

          AccessConnect = "Driver={Microsoft Access Driver
(*.mdb)};" & _
                        "Dbq=nwind.mdb;" & _
                        "DefaultDir=C:\program files\devstudio\vb;"
& _
                        "Uid=Admin;Pwd=;"

          '---------------------------

          ' Connection Object Methods

          '---------------------------

          On Error GoTo AdoError  ' Full Error Handling which
traverses
                                  ' Connection object

          ' Connection Open method #1:  Open via ConnectionString
Property
          Conn1.ConnectionString = AccessConnect
          Conn1.Open
          Conn1.Close
          Conn1.ConnectionString = ""

          ' Connection Open method #2:  Open("[ODBC Connect
String]","","")
          Conn1.Open AccessConnect
          Conn1.Close

          ' Connection Open method #3:  Open("DSN","Uid","Pwd")
          Conn1.Open "Driver={Microsoft Access Driver (*.mdb)};"
& _
                     "DBQ=nwind.mdb;" & _
                     "DefaultDir=C:\program files\devstudio\vb;"
& _
                     "Uid=Admin;Pwd=;"

          Conn1.Close

          '--------------------------

          ' Recordset Object Methods

          '--------------------------

          ' Don't assume that we have a connection object.
          On Error GoTo AdoErrorLite

          ' Recordset Open Method #1:  Open via
Connection.Execute(...)
          Conn1.Open AccessConnect
          Set Rs1 = Conn1.Execute("SELECT * FROM Employees")
          Rs1.Close
          Conn1.Close

          ' Recordset Open Method #2:  Open via
Command.Execute(...)
          Conn1.ConnectionString = AccessConnect
          Conn1.Open
          Cmd1.ActiveConnection = Conn1
          Cmd1.CommandText = "SELECT * FROM Employees"
          Set Rs1 = Cmd1.Execute
          Rs1.Close
          Conn1.Close
          Conn1.ConnectionString = ""

          ' Recordset Open Method #3:  Open w/o Connection &
w/Connect String
          Rs1.Open "SELECT * FROM Employees", AccessConnect,
adOpenForwardOnly
          Rs1.Close
Done:

          Set Rs1 = Nothing
          Set Cmd1 = Nothing
          Set Conn1 = Nothing
          Exit Sub
AdoError:
          i = 1
          On Error Resume Next
          ' Enumerate Errors collection and display properties of
          ' each Error object (if Errors Collection is filled out)
          Set Errs1 = Conn1.Errors
          For Each errLoop In Errs1
           With errLoop
              strTmp = strTmp & vbCrLf & "ADO Error # "
& i & ":"
              strTmp = strTmp & vbCrLf & "   ADO Error   #
" & .Number
              strTmp = strTmp & vbCrLf & "   Description 
" & .Description
              strTmp = strTmp & vbCrLf & "   Source       
" & .Source
              i = i + 1
           End With
          Next

AdoErrorLite:

          ' Get VB Error Object's information
          strTmp = strTmp & vbCrLf & "VB Error # " &
Str(Err.Number)
          strTmp = strTmp & vbCrLf & "   Generated by "
& Err.Source
          strTmp = strTmp & vbCrLf & "   Description  "
& Err.Description
          MsgBox strTmp
          ' Clean up gracefully without risking infinite loop in
error handler
          On Error GoTo 0
          GoTo Done

End Sub

Procesar una consulta SQL:

Código [Seleccionar] Expandir

'SQLTmp= orden SQL
'Db será una base de datos:
'Dim Db As Database 'Variable para las Bases de Datos
'Set Db = OpenDatabase("Nombre_Base_Datos")

On Error Resume Next
Db.Execute SQLTmp, dbFailOnError
If Err Then
MsgBox "Se ha producido un error al ejecutar la orden:" & vbCrLf & SQLTmp
End If



Para mas informacion: http://www.monografias.com/trabajos7/sql/sql.shtml#data

Un saludo

[polodimar]

oiga socio pero la conexion la tengo echa pero no me resulta cuando me conecto desde un proxy, solo resulta cuando lo hago
desde un conxion directa  por dialer, pero desde un proxy no se conecta y tampoco desde un pc con DNS

mi conexion es asi:


Sub conectar()
' ----------------------------------------------------------
' Crear la conexión y me conecto con la base de datos de forma remota
' ----------------------------------------------------------

  Set Miconexión = New ADODB.Connection
  Miconexión.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=servidor;PORT=6588;DATABASE=base;USER=root;PASSWORD=123456;OPTION=3;"
    Exit Sub
End Sub