La Web del Programador: Comunidad de Programadores
 
    Pregunta:  283 - INSTALAR TCP/IP
Autor:  Luis
Necesito que una aplicación VB 5 compruebe si está instalado el protocolo TCP/IP y que, en caso negativo lo instale. ¿Alguien sabe como hacerlo?

  Respuesta:  Luis Antonio Sánchez Diaz
si lo que quieres es conectarte a sql server
hay dos modos de hacerlo que son muy sencillo
mediante Dao y Rdo

mediante Dao tienes que crear un obcd por ejemplo con el nombre "practica"
y luego escribier este codigo

Set db = OpenDatabase("", False, False, "odbc;dsn=practica;uid=sa;pwd=;")
Set rs = db.OpenRecordset("select * from alumno", 2)
para esto tienes que activar la libreria en el menu projecto,referencia,microsoftdao2.5/3.5 (algo asi no recuerdo muy bien )y tambien crear tus variables db como database y ya estaras conectado a sqlserver

y mediante Rdo tiens que activar la libreria en la misma ruta que dice microsoft Remote data object y crear tus variable
cn as new rdoconnection
y escribir el siguiente codigo
cn.Connect = "uid=sa;pwd=;database=s1649db
;server=a1_20;driver={sql server};dsn=;"

cn.CursorDriver = rdUseOdbc
cn.LoginTimeout = 5
cn.EstablishConnection

solo tienes que especificar el nombre de la base de datos el nombre del servidor(necesario)
y si tienes password tambien tienes que digitarlo como esta en la sintaxis

ojala te sirva esto

  Respuesta:  FER
Saludos compañero....
Ante todo, decirte que yo estoy sufriendo un problema muy parecido.
Por mi parte, decirte, que si nadie te responde la duda, como a mí, optes por una solución no muy buena, pero que se le va a hacer...
Mediante acceso a la API, puedes abrir el entorno de red para ver que es lo que hay instalado, y si tcp/ip, no lo está ,que lo haga el usuario...
El código referente a esto es....
X = Shell("Rundll32.exe shell32.dll,Control_RunDLL XXXXXX.cpl @0")
Siendo XXXXXX :
netcpl - Red

Espero que te sirva de algo.....Saludos


  Respuesta:  Diego Manuel Bejar
Hmmm... Nunca se me había ocurrido, pero deberías saber que en el registry de windows (el código fuente del asistente de instalaciones incluido en VB tiene funciones detalladas y comentadas para gestionarlo, sólo tendrás que modificar un poquito) está toda la configuración de red y todo eso, entre otras cosas. Sólo tienes que fisgar un poco (ejecuta el programa regedit que viene con windows) para ver cuál es la entrada correspondiente.