PROBLEMAS COM PESQUISAS

FILIPEBSANTOS 10/04/2010 14:07:51
#339028
Boa tarde galera! Estou aqui novamente com um novo [Ô]bucho[Ô] pra ser resolvido!
é o seguinte, criei um formulario pra consultas no qual os dados serão exibidos em uma Datagrid, mas o problema é que quando executo o código ele retorna o seguinte erro.

[quote=[Ô]Run Time Error [ô]3001[ô]]Os argumentos são incorretos, estãou fora do intervalo aceitável ou estão em conflito. [/quote]

E aponta para essa linha:

RS.Open [Ô]SELECT * FROM CLIENTES[Ô], cnn

Aqui está o código:


Private Sub Form_Load()

    Left = (frmPrincipal.Width - Width) / 2
    Top = (frmPrincipal.Height - Height) / 2
    
    Call Conecta_BD
    Call Verifica_RS
                
    If optClientes.Value = True Then
        RS.Open [Ô]SELECT * FROM CLIENTES[Ô], cnn
    ElseIf optFornecedores.Value = True Then
        RS.Open [Ô]SELECT * FROM FORNECEDORES[Ô], cnn
    ElseIf optProdutos.Value = True Then
        RS.Open [Ô]SELECT * FROM PRODUTOS[Ô], cnn
    End If

    PreencheLista
    
End Sub

Sub PreencheLista()

     
    If optClientes.Value = True Then
        If RS.RecordCount = 0 Then Exit Sub
            While Not RS.EOF
                Set lst = ListaResultado.ListItems.Add(, , RS(0))
                
                    For i = 1 To 6
                        lst.SubItems(i) = RS(i)
                    Next i
                RS.MoveNext
            Wend
    End If
    
    If optFornecedores.Value = True Then
        If RS.RecordCount = 0 Then Exit Sub
            While Not RS.EOF
                Set lst = ListaResultado.ListItems.Add(, , RS(0))
                
                    For i = 1 To 4
                        lst.SubItems(i) = RS(i)
                    Next i
                RS.MoveNext
            Wend
    End If
    
    If optProdutos.Value = True Then
        If RS.RecordCount = 0 Then Exit Sub
            While Not RS.EOF
                Set lst = ListaResultado.ListItems.Add(, , RS(0))
                
                    For i = 1 To 4
                        lst.SubItems(i) = RS(i)
                    Next i
                RS.MoveNext
            Wend
    End If
End Sub


LEMBRANDO QUE O BANCO DE DADOS QUE EU USO é O FIREBIRD!!!!

Preciso da ajuda de vcs, ja gastei muito remedio pra dor de kbça!!!!!
NETMANIA 10/04/2010 15:12:20
#339032
Em que linha do código que está ocorrendo a falha?
EDERMIR 10/04/2010 18:39:58
#339040
Funciona com as opções de FORNECEDORES e PRODUTOS?

Você definiu [Ô]cnn[Ô] como CONEXION e abriu a conexão nesta função ou sub?

O valor da conexão é válida nesta função ou está com valor nulo? (verifique através de cnn.name)
Tópico encerrado , respostas não são mais permitidas
Voltar