2015-03-31 67 views
0

我对Microsoft SQL后端使用Access前端。奇怪的ODBC错误

我面临的问题是我用adodb连接插入数据。我使用多种形式。在第一种形式上,第二种形式是有效的,第三种形式也起作用。但在第四种形式中,我收到:'ODBC:Call failed'错误。

你可能认为我犯了某种打字错误,但这不是问题。当我从表单四开始时,我可以插入数据。 这么长的故事,在插入3个不同形式后,我得到了odbc错误。我不知道问题是什么。

Dim Query As String 

Dim rs As ADODB.Recordset 
Dim cn As ADODB.Connection 
Set cn = New ADODB.Connection 
Set rs = New ADODB.Recordset 

Query = "SELECT MAX(ID) From dbo_Controle" 
rs.Open Query, CurrentProject.Connection 
rs.MoveFirst 
ID = rs.Fields(0).Value 
Query = "INSERT INTO dbo_Controle VALUES (" & ID + 1 & ",'" & Me.txtControleTime & "')" 
Set cn = CurrentProject.Connection 
Debug.Print (Query) 
cn.Execute Query 

rs.Close 
cn.Close 
Set rs = Nothing 
Set db = Nothing 

这是我用不同形式的不同查询使用的代码。

回答

0

我有同样的问题,并能够解决它通过使用CurrentProject.AccessConnection