[firebase-br] RES: Mais duvidas

Sicnemelpor sicnemelpor em gmail.com
Qui Jan 22 15:12:03 -03 2009


Só pra desencargo, veja se o usuário que você conecta no banco tem direito  
de acesso nesta tabela.

[]s
Nelson Sicuro

> Realmente ta difícil pra chegar a uma conclusão, Alexandre e Wilson,
> obrigado pelas respostas, mas to fazendo a mesma coisa que vocês fazem  
> mas
> mesmo assim não consigo acessar a segunda tabela que abro em meu sistema,
> será algum problema junto ao banco ?
>
> -----Mensagem original-----
> De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br]  
> Em
> nome de Alexandre [FiveTech]
> Enviada em: quinta-feira, 22 de janeiro de 2009 14:15
> Para: FireBase
> Assunto: Re: [firebase-br] Mais duvidas
>
>   Boa tarde a todos,
>
>   Só pelo código que mandou não dá para ter muita certeza do que está
> acontecendo, mas concordo com o Wilson. Provavelmente você está tentando
> abrir mais de uma conexão com o mesmo nome ao mesmo tempo.
>   Faço quase igual ao Wilson, porém utilizo mais funções que facilitam
> durante o código.
>
> Tenho um módulo com uma função Sub Main(). Nesta função abro a única
> conexão do sistema:
>
> Public DB As ADODB.Connection
> Public sSql As String
>
> Public Sub Main()
>    If App.PrevInstance Then
>        MsgBox "Este programa já está sendo executado.", vbCritical
>        End
>    Else
>        Dim bStatus As Boolean
>        Call ConectaDB(bStatus)
>        If bStatus = True Then
>            frmLogin.Show
>        Else
>            End
>        End If
>    End If
> end sub
>
> Função ConectaDB
>
> Public Function ConectaDB(ByRef bStatus As Boolean) As Boolean
>    On Error GoTo ERR_conectarDB
>    Call LeArquivoInicial   'Esta função busca em um arquivo .INI alguns
> parametros do banco
>      sConnect = "DRIVER=Firebird/InterBase(r) driver; "
>    sConnect = sConnect & "UID=SYSDBA; "
>    sConnect = sConnect & "PASSWORD=MASTERKEY; "
>    sConnect = sConnect & "DATABASE=" & sDataBase    'sDataBase é o local
> e nome do banco que veio pela função LeArquivoInicial()
>      Set DB = New ADODB.Connection
>    DB.ConnectionTimeout = 180 'Segundos
>    DB.CommandTimeout = 180    'Segundos
>    DB.CursorLocation = adUseClient
>    DB.Open sConnect
>    bStatus = True
>    Exit Function
>
> ERR_conectarDB:
>    Select Case ERR
>        Case 3146
>            Beep
>            Call MsgBox(Error(0), 16, "Atenção")
>        Case Is <> 0
>            Beep
>            Call MsgBox("Ocorreu o erro " & ERR & ", " & ERR.Description,
> 16, "Atenção")
>            End
>    End Select
> End Function
>
> E essa aqui é a função que utilizo em todo o sistema para executar as
> selects no banco.
>
> Sub Query(ByRef rs, sSql)
>
> ' Executa uma query no banco especificado
> ' Parametros: rs - variavel ADODB RecordSet
> '             sql - comando sql que será executado no banco
> '             db - variavel ADODB Connection
> ' Exemplo de chamada da função: call query(rsPesquisa,ssql)
> '                         onde: rsPesquisa receberá o resultado da select
> '                               ssql deve conter a select desejada
>    On Error Resume Next
>      Set rs = New ADODB.Recordset
>    rs.Open sSql, DB, 3, 3, 1  'adOpenStatic, adLockOptimistic, adCmdText
>    If ERR.Number <> 0 Then
>        MsgBox Sql & vbCrLf & ERR.Description & vbCrLf & sSql
>    End If
> End Sub
>
> Abraços,
> Alexandre Sanches Bazan
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:  
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa



-- 
Usando o revolucionário cliente de correio do Opera:  
http://www.opera.com/mail/




Mais detalhes sobre a lista de discussão lista