[firebase-br] RES: RES: Mais duvidas

Alexandre [FiveTech] alexandre em fivetech.info
Qui Jan 22 17:49:14 -03 2009


É Julio, está ficando complicado. Não consigo imaginar o que seja.

Se não existir nenhum problema para você, mande o projeto e o banco para 
o meu e-mail alexandre em fivetech.info.

Alexandre Sanches Bazan


Julio Oliveira wrote:
> Sim Nelson tem sim, já vi, o acesso do SYSDBA e ele tem acesso full a cada
> uma das tabelas.
>
> -----Mensagem original-----
> De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
> nome de Sicnemelpor
> Enviada em: quinta-feira, 22 de janeiro de 2009 14:12
> Para: FireBase
> Assunto: Re: [firebase-br] RES: Mais duvidas
>
> 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
>>     
>
>
>
>   





Mais detalhes sobre a lista de discussão lista