vb连接oracle获得记录数总为0?

Question

定义连接oracle函数,函数如下:
Public Function ExecuteSQLOraSelect(strSQL As String) As Object
 Dim oo4oSession As Object
 Dim OraDatabase As Object
 Dim OraDynaset As Object
 Set oo4oSession = CreateObject("OracleInProcServer.XOraSession")
 Set OraDatabase = oo4oSession.OpenDatabase("myoracle", "cgsys/cgsys", 0)
 Set OraDynaset = OraDatabase.DBCreateDynaset(strSQL, 0)
 Set ExecuteSQLOraSelect = OraDynaset
End FunctionsqlSelect = "select * from user_t where userLoadName='" & Trim(userName.Text) & "' and userLoadPassword ='" & Trim(userPassword.Text) & "'"
MsgBox ExecuteSQLOraSelect(sqlSelect).RecordCount

Answer 1

你是用的什么版本的VB啊，我有个VB.NET2003的连接例子：你先在Oracle的表中查查是否真的没有数据1、先在Refences引用OraclcClient
2、Public OraConn As New OracleConnection("data source=客户机配置的服务名;user id=用户名;password=密码")
3、Try
            Dim Comm As New OracleCommand
            Comm = OraConn.CreateCommand
            Comm.CommandText = "Select * From TableXX"            Dim DS As New DataSet
            Dim DA As New OracleDataAdapter
            DA.SelectCommand = Comm
            DA.Fill(DS)            If Val(DS.Tables(0).Rows.Count) < 1 Then
                MessageBox.Show("没有符合条件的记录！", "提示")
            End If            Lable1.Text=DS.Tables(0).Rows.Count        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try