奇怪的ODBC错误
问题描述:
我对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
这是我用不同形式的不同查询使用的代码。
答
我有同样的问题,并能够解决它通过使用CurrentProject.AccessConnection