请问用怎样用vb6编程实现将客户端与SQL Server7的连接为TCP/IP方式，而非named pipes?

[yingq]

现在用VB开发客户程序，数据库连接通过ADO实现，但在配置与服务器的连接时，对于98机器默认的是通过named pipes方式实现，希望通过TCP/IP去访问，当然可以通过控制面板的ODBC数据源处理，但对用户来讲比较烦琐，可否在安装应用程序时即可实现，或者说在应用程序中可以实现？

[yingq]

是的，但是对于客户端与SQL服务器的连接，Windows98默认的是Name Pipes方式，而需要用程序实现连接方式为TCP/IP方式。

[堆堆]

你可以把IP地址写在程序里，如：
dim Conn as new adodb.connection
conn.open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=sa;database=mydata"
或利用DataLink File，在硬盘上新建一个DataLink File（名为mylink.udl）。在程序里加上：conn.open "file name=c:\mylink.udl"

[bamyl]

dim Conn as new adodb.connection

strDBProvider = "DRIVER=SQL Server;UID=sa;pwd=;Address=192.168.1.1,1433;Network=DBMSSOCN;DATABASE=Test;APP=Microsoft Open Database Connectivity;SERVER=192.168.1.1"

conn.open strDBProvider

[yingq]

OK,The system can run successfully.Thank you.

[zzh]

也可以使用ODBC方式，只不过你自己在安装程序里面把ODBC给客户设置好就可以了。而且这样也很方便。当然，安装程序得用InstallShield来制作。