Conectar VB con bd en internet

[RollBack]

Hola,

Tambien puedes hacerlo con Script PHP o ASP (como dice el amigo) pero esta vez, leerias los datos en XML, tu al script en el server haces que devuelva los datos en XML y en VB los lees, mira, yo lo hago asi y funciona perfectamente:

Sub Carga_Datos_Personales()
Dim NodeValue
Dim A, x As Integer
Dim carga As Boolean
Dim Registro_X As String

On Error GoTo Err_Handle
XML.async = False
carga = XML.Load("http://www.tusitio.com/datos_personales.php?idp=" & dni)

While XML.readyState <> 4
Barra.Panels(1).Text = "Cargando Información Personal...."
DoEvents
Wend

For A = 1 To XML.documentElement.childNodes.Length
Registro_X = "datos/registro_" & Trim(Str(A))
Set objNodes = XML.selectNodes(Registro_X)
For Each objBookNode In objNodes
T_nombre = objBookNode.childNodes(0).Attributes.getNamedItem( "target").NodeValue
T_edad = objBookNode.childNodes(1).Attributes.getNamedItem( "target").NodeValue
T_correo = objBookNode.childNodes(2).Attributes.getNamedItem( "target").NodeValue
T_pais = objBookNode.childNodes(3).Attributes.getNamedItem( "target").NodeValue
T_rango = objBookNode.childNodes(4).Attributes.getNamedItem( "target").NodeValue
T_vatsim = objBookNode.childNodes(5).Attributes.getNamedItem( "target").NodeValue
T_ivao = objBookNode.childNodes(6).Attributes.getNamedItem( "target").NodeValue
T_fp = objBookNode.childNodes(7).Attributes.getNamedItem( "target").NodeValue
T_estado = objBookNode.childNodes(8).Attributes.getNamedItem( "target").NodeValue
T_horas = CDbl(objBookNode.childNodes(9).Attributes.getNamed Item("target").NodeValue)
T_fecha = objBookNode.childNodes(10).Attributes.getNamedItem ("target").NodeValue
PilotoEstado = objBookNode.childNodes(11).Attributes.getNamedItem ("target").NodeValue
Next objBookNode
Next A

Set objNodes = Nothing
Barra.Panels(1).Text = "Preparado"
Exit Sub
Err_Handle:
Set objNodes = Nothing
Barra.Panels(1).Text = "Error al bajar información personal...."
End Sub


Como ves, todos los datos personales quedan en las variables T_n , en este caso me devuelve un solo registro ok, pero si son mas, puedes hacer que se valla cargando un listview y listo.

Buno, espero haber ayudado, cualquier cosa me consultas.