Question

我正在开发一个Access应用程序，它需要建立与外部数据库（Netezza数据库）的连接。我目前正在使用带有ADODB对象的VBA代码连接到服务器。每当我执行代码时，都会发生'Timeout expired'错误。我试图将Timecounter重置为180秒。仍然没有解决错误。

这是我一直在使用的代码：

Private Sub CONNECT_Click()

Dim openSQL As ADODB.Connection

Set openSQL = New ADODB.Connection

openSQL.ConnectionTimeout = 180

openSQL.Open "odbc;servername=xxx;dsn=xxx;database=xxx;uid=xxx;pwd=xxx;port=xxx"

openSQL.Close

End Sub

我也尝试过以下代码：

Private Sub Modify_Click()


Dim objConnection As ADODB.Connection

Dim objRecordSet As ADODB.Recordset

Dim strConnectionString As String


Set objConnection = New ADODB.Connection

Set objRecordSet = New ADODB.Recordset

'Define the Odbc connection string.

  strConnectionString = "odbc;servername=xxx;dsn=xxx;database=xxx;uid=xxx;pwd=xxx;port=xx"

  'Instantiate the Connection object and open a database connection.
  'var cnn

  objConnection.Open strConnectionString
  'objConnection.Open "dsn=xxx;User ID=xxx;Password=xxx"


   Dim strSQL As String

  'Define SQL SELECT statement.

  strSQL = "INSERT INTO Table_1 (col1,col2,col3, col4) VALUES ('" & Form1.col1 & "', '" & Form1.col2 & "', '" & Form1.col3 & "', '" & Form1.col4 & "');"

  'Use the Execute method to issue a SQL query to database.
  cnn.Execute strSQL

End Sub

提前致谢！

如何在MS Access中连接到外部（ODBC）数据库时解决“超时过期”错误？

0 个答案: