Ver Mensaje Individual
  #1 (permalink)  
Antiguo 08/11/2012, 11:11
walfaro
 
Fecha de Ingreso: enero-2009
Ubicación: Gt
Mensajes: 35
Antigüedad: 15 años, 4 meses
Puntos: 0
Cambiar conexion web a servidor local VB6

Quetal amigos buenos dias, en el trabajo me tope con un programa que esta en VB6 conectado a una base de datos via web, pero me he visto en la necesidad de cambiarlo a un servidor local con SQL SERVER 2005..

Lo que hace es cuando ingreso el codigo del cliente en un textbox llamado txtcod me hace la busqueda segun el codigo y me muestra los datos en los otros texbox

si alguien me puede ayudar como pasarlo a un servidor local..

Aqui mi codigo...


Dim WS As WebService
Set Rc = New ADODB.Recordset
Set WS = New WebService

WS.ConnectURL ="https://www.xxx.com/service.asmx"


Set Rc = WS.ObtieneProductos("USR"), TxtCod.Text)
TxtNombre.Text = Trim(Rc!Nombre)
TxtApellido.text = Trim(Rc!Apellido)
TxtCiudad.text = Trim(Rc!Ciudad)