如果你的程序已经写好了,在每台客户机上安装sql server客户端(仅连接)或mdac,再运行你的程序就行了。在vb程序中用ADO连接到sql server的方法是先引用ADO,然后: dim objConn as new adodb.connection dim objRs as new adodb.recordsetobjConn.Provider="SQLOLEDB" objConn.ConnectionString="Driver={sql server};Server=ServerName;Uid=sa;Pwd=;Database=dbname" objConn.Openset objrs=objConn.execute("select colname from table") do while not objrs.eof debug.print objrs("colname").value objrs.movenext loop objrs.close set objrs=nothing ...objconn.close set objconn=nothing
dim con as new ADODB.connection dim strCon as string strCon = "driver={SQL Server};server=远程服务器名;datebase=远程服务器上的数据库名;UID=sa;Password=;" con.open strCon,需要的选项这样就可以利用生成的con来进行远程的数据库操作了。 例如 dim rs as new ADODB.Recordsetrs = con.execute(”select * from 表“)
dim objConn as new adodb.connection
dim objRs as new adodb.recordsetobjConn.Provider="SQLOLEDB"
objConn.ConnectionString="Driver={sql server};Server=ServerName;Uid=sa;Pwd=;Database=dbname"
objConn.Openset objrs=objConn.execute("select colname from table")
do while not objrs.eof
debug.print objrs("colname").value
objrs.movenext
loop
objrs.close
set objrs=nothing
...objconn.close
set objconn=nothing
dim strCon as string strCon = "driver={SQL Server};server=远程服务器名;datebase=远程服务器上的数据库名;UID=sa;Password=;"
con.open strCon,需要的选项这样就可以利用生成的con来进行远程的数据库操作了。
例如
dim rs as new ADODB.Recordsetrs = con.execute(”select * from 表“)