PROBLEMA NA CONEXAO ORACLE E VB6

ALISONSANKA 21/08/2013 03:02:13
#427876

Olá pessoal tudo bem???
Estou com problemas na conexão do meu banco, ele fica dando uma msg de erro Subscript out of range.
Não sei mais o que fazer.
Fico grato com a ajuda de vocês.

Segue meu código


Public Class Form1
Option Explicit

Private conexao As New ADODB.Connection

Private Function conectarBanco() As Boolean
Dim stringConexao As String

On Error GoTo Erro

stringConexao = [Ô]OraOLEDB.Oracle;Data Source=DCMSDSV;User Id=admprod;Password=desprod;PLSQLRset=1;UseSessionFormat=True[Ô]

conexao.Open stringConexao

conectarBanco = True

Exit Function
Erro:
conectarBanco = False
MsgBox([Ô]Erro na conexão com o banco de dados: [Ô] & Err.Description, vbExclamation, [Ô]Programa[Ô])

End Function


Private Sub Form_Load()

Dim comandoSQL As String
Dim rsFichas As New ADODB.Recordset



spDados.Rows = 1
spDados.Cols = 7


spDados.TextMatrix(0, 0) = [Ô]Código Categoria[Ô]
spDados.TextMatrix(0, 1) = [Ô]Descricão[Ô]

spDados.TextMatrix(0, 2) = [Ô]Código Pessoa[Ô]
spDados.TextMatrix(0, 3) = [Ô]Nome[Ô]
spDados.TextMatrix(0, 4) = [Ô]Sobrenome[Ô]
spDados.TextMatrix(0, 5) = [Ô]Data Nascimento[Ô]
spDados.TextMatrix(0, 6) = [Ô]Data Gravação[Ô]


If conectarBanco = True Then
comandoSQL = [Ô]select * from zs_pessoa[Ô]
rsFichas.Open(comandoSQL, conexao, adOpenStatic)

If rsFichas.EOF = True Then
MsgBox [Ô]Nenhum registro encontrado[Ô]
Else
Do While rsFichas.EOF = False

spDados.Rows = spDados.Rows + 1
spDados.TextMatrix(spDados.Rows, 0) rsFichas!CD_PESSOA
spDados.TextMatrix(spDados.Rows, 1) rsFichas!NOME
spDados.TextMatrix(spDados.Rows, 2) rsFichas!SOBRENOME
spDados.TextMatrix(spDados.Rows, 3) rsFichas!DATA_NASCIMENTO
spDados.TextMatrix(spDados.Rows, 4) rsFichas!DATA_GRAVACAO
spDados.TextMatrix(spDados.Rows, 5) rsFichas!CD_CATEGORIA

rsFichas.MoveNext()
Loop
End If
End If





End Sub
End Class