[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