ADO
下面给你一个打开表的列子。设远程服务器IP为100.0.0.0 使用的为MSSQL数据库。你要打开的库为AAA,用户名为sa,密码空。打开的表为TABLE
'连接数据库
Set cnt = New ADODB.Connection
cnt.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=aaa;Data Source=100.0.0.0
'打开表
Dim rs As New ADODB.Recordset
rs.Open "SELECT * From table",cnt,adOpenKeyset,adLockOptimistic
If rs.EOF Then
'如果为空,加入处理代码
else
'处理代码
end if
'断开
rs.close
cnt.close
HZCNC提供
下面给你一个打开表的列子。设远程服务器IP为100.0.0.0 使用的为MSSQL数据库。你要打开的库为AAA,用户名为sa,密码空。打开的表为TABLE
'连接数据库
Set cnt = New ADODB.Connection
cnt.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=aaa;Data Source=100.0.0.0
'打开表
Dim rs As New ADODB.Recordset
rs.Open "SELECT * From table",cnt,adOpenKeyset,adLockOptimistic
If rs.EOF Then
'如果为空,加入处理代码
else
'处理代码
end if
'断开
rs.close
cnt.close
HZCNC提供
dim CN as new adodb.connection
cn.conntionstring="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DatabaseName;Data Source=RLZYB\GFGS_RLZY"
cn.open
Cn.CursorLocation = adUseClient
dim Rs as adodb.recordset
set rs=cn.execute("select * from TableName where Condition")
msgbox rs("fieldname").value
2。如果SQL服务器使用WINDOWS身份验证的话请确认你的机器和服务器在同一个域,若SQL服务器使用混合身份验证模式,则添加一个用户并给你相应的权限。
3。如果SQL服务器指定了IP地址的话,你在DATASOURCE中填入服务器的IP地址试试
1、使用ODBC的OLE DB提供者打开连接(DSN方式)
2、使用ODBC的OLE DB提供者打开连接(无DSN方式)
3、使用SQL Server的OLE DB提供者打开连接
4、使用SQL Server的OLE DB提供者打开可靠连接
5、使用Connection对象的属性打开连接
6、使用UDL文件与SQL Server进行连接(更多信息,可参考SQL Server2000的帮助)
7、使用Data Link对话框来连接SQL Server
http://expert.csdn.net/Expert/topic/1099/1099599.xml?temp=.5342523