Título: Visual Basic y conexion remota con mysql
Publicado por: polodimar en 27 Marzo 2006, 08:12 am
Hola amigos
Como puedo conectarme a mysql desde un computador con proxy por medio de mi programa hecho en visual basic
gracias
Título: Re: Visual Basic y conexion remota con mysql
Publicado por: BenRu en 27 Marzo 2006, 15:31 pm
Tres formas de abrir una conexion ADO: ' 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: '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
Título: Re: Visual Basic y conexion remota con mysql
Publicado por: polodimar en 27 Marzo 2006, 18:36 pm
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
|