VB访问ORACLE的一个问题~！ 在线等待

Question

用VB访问ORACLE，具体函数如下：
Public Function ConnectString1() _
   As String
   ConnectString1 = "DSN=OUTCALL_ORA;UID=OUTCALL;PWD=86337898"
End FunctionPublic Function ExecuteSql_ora(ByVal sql As String, msgstring As String) As ADODB.Recordset
Dim conn As ADODB.Connection
Dim rest As ADODB.Recordset
On Error GoTo ExecuteSQL_Error
Set conn = New ADODB.Connection
conn.Open ConnectString1
Set rest = New ADODB.Recordset
rest.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic
Set ExecuteSql_ora = rest
msgstring = "查询到" & rest.RecordCount & "条记录"ExecuteSql_exit:
Set rest = Nothing
Set conn = Nothing
Exit FunctionExecuteSQL_Error:
msgstring = "查询错误:" & Err.Description
Resume ExecuteSql_exitEnd Function已经传递了SQL语句进去，一直运行至rest.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic就跳去ExecuteSQL_Error具体报错信息为：
查询错误：[oracle][ODBC][Ora]ORA-00936:缺少表达式请问如何解决？？ 谢谢

Answer 1

oracle没用过，不过在sql－server中这种情况一般可能是sql语句有问题，你可以将sql语句放到查询中，看一下是什么问题。希望能对你有帮助。

Answer 2

rest.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic,adCmdText