直接在ODBC里面配置啊,选文件DSN,它与机器无关性 Public adors As New adodb.Recordset Public adoconn As New adodb.Connection Public sQsql As String Public conn As String conn = "FileDSN=AAA.dsn;UID=sa;PWD=***" adoconn.Open conn AAA是你的数据库名。
把这个文件夹共享,然后在连接字串如下: Set cnn = New ADODB.Connection With cnn .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = "\\机器名\文件夹\aaaa.mdb" .Mode = adModeReadWrite .Open End With
****To Prompt user for username and passwordoConn.Properties("Prompt") = adPromptAlways oConn.Open "Driver={SQL Server};" & _ "Server=MyServerName;" & _ "DataBase=myDatabaseName"
****To connect to SQL Server running on the same computeroConn.Open "Driver={SQL Server};" & _ "Server=(local);" & _ "Database=myDatabaseName;" & _ "Uid=myUsername;" & _ "Pwd=myPassword"
****To connect to SQL Server running on a remote computer (via an IP address)oConn.Open "Driver={SQL Server};" & _ "Server=xxx.xxx.xxx.xxx;" & _ "Address=xxx.xxx.xxx.xxx,1433;" & _ "Network=DBMSSOCN;" & _ "Database=myDatabaseName;" & _ "Uid=myUsername;" & _ "Pwd=myPassword" Where: - xxx.xxx.xxx.xxx is an IP address - 1433 is the default port number for SQL Server. - "Network=DBMSSOCN" tells ODBC to use TCP/IP rather than Named Pipes
应该怎么写?
Public adors As New adodb.Recordset
Public adoconn As New adodb.Connection
Public sQsql As String
Public conn As String conn = "FileDSN=AAA.dsn;UID=sa;PWD=***"
adoconn.Open conn
AAA是你的数据库名。
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source") = "\\机器名\文件夹\aaaa.mdb"
.Mode = adModeReadWrite
.Open
End With
请问,如果ODBC连接数据库,是否也要共享文件夹的方式来作。
ODBC设置的是不是在本地设置的?如果服务器端是SQL SERVER,那么SERVER端是不是也要设置ODBC?数据库在网络中,不用指定服务器名称吗?
请高手指点
你还可以使用ODBC。
SQL SERVER支持ODBC。****** ODBC Driver for SQL Server
****For Standard SecurityoConn.Open "Driver={SQL Server};" & _
"Server=MyServerName;" & _
"Database=myDatabaseName;" & _
"Uid=myUsername;" & _
"Pwd=myPassword"
****For Trusted Connection securityoConn.Open "Driver={SQL Server};" & _
"Server=MyServerName;" & _
"Database=myDatabaseName;" & _
"Uid=;" & _
"Pwd="
' Or
oConn.Open "Driver={SQL Server};" & _
"Server=MyServerName;" & _
"Database=myDatabaseName;" & _
"Trusted_Connection=yes"
****To Prompt user for username and passwordoConn.Properties("Prompt") = adPromptAlways
oConn.Open "Driver={SQL Server};" & _
"Server=MyServerName;" & _
"DataBase=myDatabaseName"
****To connect to SQL Server running on the same computeroConn.Open "Driver={SQL Server};" & _
"Server=(local);" & _
"Database=myDatabaseName;" & _
"Uid=myUsername;" & _
"Pwd=myPassword"
****To connect to SQL Server running on a remote computer (via an IP address)oConn.Open "Driver={SQL Server};" & _
"Server=xxx.xxx.xxx.xxx;" & _
"Address=xxx.xxx.xxx.xxx,1433;" & _
"Network=DBMSSOCN;" & _
"Database=myDatabaseName;" & _
"Uid=myUsername;" & _
"Pwd=myPassword"
Where:
- xxx.xxx.xxx.xxx is an IP address
- 1433 is the default port number for SQL Server.
- "Network=DBMSSOCN" tells ODBC to use TCP/IP rather than Named
Pipes