Dim cnn As New ADODB.Connection Dim cmd As New ADODB.Command Dim str As String str = "Driver={SQL Server};Server=SQL名称;DataBase=数据库名;UID=登陆用户;PWD=密码;" cnn.Open str 这个连接字串简单点ODBC连数据库的话只要再每台客户机上配置一个连到服务器的数据源就行了
用ADO控件生成连接串就可以了。
CONN_STR = "Provider=SQLOLEDB.1;User ID=User1;PassWord=pass1;Initial Catalog=dbRental;Data Source=192.168.1.190" Dim objAdoConn As New ADODB.Connection Dim objAdoRecs As New ADODB.Recordset Dim strSQL As String objAdoConn.Open mdlMain.CONN_STR objAdoRecs.Open strSQL, objAdoConn...
新建工程,引用 Microsoft ActiveX data objects 2.* LIbrary, 其它如上
Dim cmd As New ADODB.Command
Dim str As String
str = "Driver={SQL Server};Server=SQL名称;DataBase=数据库名;UID=登陆用户;PWD=密码;"
cnn.Open str
这个连接字串简单点ODBC连数据库的话只要再每台客户机上配置一个连到服务器的数据源就行了
Dim objAdoRecs As New ADODB.Recordset Dim strSQL As String objAdoConn.Open mdlMain.CONN_STR
objAdoRecs.Open strSQL, objAdoConn...
其它如上