Conectarse a BD access desde un ftp en vb6

[Caty]

Necesitaria saber como conectarme a una bd Access que esta subida a un servidor ftp, para realizar consultas a esa base desde visual basic 6.0.
Por lo que estuve leyendo necesitaria un Internet Control, lo setee con los valores correspondientes pero que codigo necesito para tener la conexiona a la base.
Muchas Gracias
Salu2

[mveraa]

puedes usar envio por el navegador es mucho mas simple enviando la solicitud via get(por la url) al script (php,asp) usando navegador .

asi lo hago yo , claro que le envio la solicitud a php y php hace puente con mysql..

ej,

Dim oIE As Object, cCad As String, cPar1
Set oIE = CreateObject("InternetExplorer.Application")

'valores a enviar


'user y clave a enviar
user1 = fconfigurar.Text1(0).Text
clave1 = fconfigurar.Text1(1).Text



cCad = "http://mm.cl/mm.php?user=" user1+ "&clave=" + clave1


oIE.MenuBar = True
oIE.TOOLBAR = True



oIE.Visible = True //visible o invisible el navegador
oIE.Navigate2 (cCad)

While (oIE.BUSY = True)
'espera mientras manda los datos

Wend

saludos ojala te sirva

[pabli]

Caty,

no he entendido lo del FTP.

FTP es un servicio de descarga de ficheros pero no para conectarse a una base de datos.

Desde donde quieres conectarte a la bbdd, desde la intranet o desde internet??

Saludos
Pablo

[Caty]

Te comento un poco mas; de la unica forma que accedo al servidor es a traves de un ftp... por lo que necesito bajar a traves de Internet la Base que esta colgada ahi...
La base de datos es una base access 2000 y otra 97, y la aplicacion que desarrollo es en Visual Basic 6.0...
Muchas Gracias por sus respuestas,
Carolina

[pabli]

Caty,

por lo que veo, lo que quieres hacer son dos pasos:

-primero bajarla mediante FTP a un equipo al que tengas acceso que puede ser en el que resida la aplicación.
-segundo, acceder a ella mediante ADO(por ejemplo) de modo local.

Para lo primero puedes utilizar "Microsoft Internet Tranfer Control" que te permite trabajar con dos protocolos:
-http
-ftp

Para lo segundo, utiliza ADO:
(Tendrás que cambiar mucho código pues es un ejemplo sacado del MSDN)

Código:

Public Sub OpenX()

   Dim cnn1 As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnn As String

   ' Abre una conexión.
      strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & S_ruta & "\tuBBDD.mdb;Persist Security Info=False"
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn
   
   ' Abre la tabla Empleados.
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.CursorType = adOpenKeyset
   rstEmployees.LockType = adLockOptimistic
   rstEmployees.Open "empleado", cnn1, , , adCmdTable

   ' Asigna la fecha de contratación del registro del primer empleado
   ' a una variable y, después, cambia la fecha de contratación.
   varDate = rstEmployees!hire_date
   Debug.Print "Datos originales"
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date
   rstEmployees!hire_date = #1/1/1900#
   rstEmployees.Update
   Debug.Print "Datos que han cambiado"
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date

   ' Vuelve a consultar el objeto Recordset y restablece la 
   ' fecha de contratación.
   rstEmployees.Requery
   rstEmployees!hire_date = varDate
   rstEmployees.Update
   Debug.Print "Datos después de restablecer."
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date

   rstEmployees.Close
   cnn1.Close

End Sub

Espero que te sirva.
Un saludo
Pablo

[mariozap]

No tienes un ejemplo de pagina PHP que pueda poner para probar tu ejemplo.

Me gustaria que un programa de visual basic actualizara automaticamente un archivo de texto en Internet.

Se como detectar si existe conexion a internet, pero no se como enviar los datos, ni a donde, ni como.

Gracias