O QUE SERA QUE ESTA ACONTECENDO.

USUARIO.EXCLUIDOS 10/03/2010 16:30:46
#336572
pessoal meu projeto funciona perfeitamente, aperto F5 e vejo tudo funcionando legal, insiro dados , excluo, edita ate ae tudo bem, agora quando faço o EXE dele, ao clica nos icones pra abrir os forms da esse erro em todos os forms que tento abrir.

RUIN-TIME ERRO [ô]-2147467259(80004005)[ô]

DYNAMIC SQL ERROR
SQL ERRO CODE= - 204
TABLE UNKNOWN
NOME DA TABELA
AT LINE 1, COLUMN 15,


O QUE SERÁ, E COMO RESOLVER ESSE PROBLEMA?
SINKERTEC 10/03/2010 16:45:34
#336575


Poste sua sintaxe de inicialização...
TECLA 10/03/2010 22:47:43
#336606
Poste o código no tópico do evento LOAD do FORM.
USUARIO.EXCLUIDOS 11/03/2010 07:27:21
#336621
Bom dia a todos.
[ô]--------------------------------------------------------------------------------------------------
Dim tbempresa As ADODB.Recordset
[ô]--------------------------------------------------------------------------------------------------
Private Sub Form_Load()

Set tbempresa = New ADODB.Recordset
Set tbempresa.ActiveConnection = conexao
tbempresa.CursorLocation = adUseClient
tbempresa.Open [Ô]Select * from TB_HOSPITAL[Ô], , adOpenDynamic, adLockOptimistic

End Sub
MARCIO.TEIXEIRA 11/03/2010 10:37:50
#336630
Provavelmente quando você está rodando o executável deve ser em um ambiente diferente do de homologação e provavelemten no ambiente de produção não existe a tabela TB_HOSPITAL

ou talvez até exista, mas o usuário do seu sistema não tenha acesso a ela
PH1959 11/03/2010 10:43:25
#336631
wandson

posta a conexão....
Citação:

:
Bom dia a todos.
[ô]--------------------------------------------------------------------------------------------------
Dim tbempresa As ADODB.Recordset
[ô]--------------------------------------------------------------------------------------------------
Private Sub Form_Load()

Set tbempresa = New ADODB.Recordset
Set tbempresa.ActiveConnection = conexao
tbempresa.CursorLocation = adUseClient
tbempresa.Open [Ô]Select * from TB_HOSPITAL[Ô], , adOpenDynamic, adLockOptimistic

End Sub
USUARIO.EXCLUIDOS 11/03/2010 14:28:11
#336653
modulo de conexão

Public conexao As New ADODB.Connection
Public Alias As String

Global tbrel As ADODB.Recordset

Public conexao2 As New ADODB.Connection
Public Alias2 As String

Sub Conectar()

On Error GoTo erro
Dim uLngProcess As Long
uLngProcess = GetProcessIDByEXEName([Ô]fbserver.exe[Ô])
If uLngProcess = 0 Then
Shell (App.Path & [Ô]\Firebird\Bin\fbserver.exe[Ô])
End If

Set conexao = CreateObject([Ô]ADODB.Connection[Ô])
Alias = Left(App.Path, 3) & get_ini([Ô]SysCom[Ô], [Ô]Caminho[Ô])
conexao.Open [Ô]Driver=Firebird/InterBase(r) driver;Uid=sysdba;Pwd=masterkey;DbName=[Ô] & Alias
Exit Sub
erro:
MsgBox [Ô]Ocorreu um Erro com a Conexão ao Iniciar o Aplicativo[Ô], vbInformation, [Ô]LocSys[Ô]
End

End Sub

Sub Conectar2()

On Error GoTo erro2
Dim uLngProcess2 As Long
uLngProcess2 = GetProcessIDByEXEName([Ô]fbserver.exe[Ô])
If uLngProcess2 = 0 Then
Shell (App.Path & [Ô]\Firebird\Bin\fbserver.exe[Ô])
End If

Set conexao2 = CreateObject([Ô]ADODB.Connection[Ô])
Alias2 = Left(App.Path, 3) & get_ini([Ô]SysCom[Ô], [Ô]CaminhoBackup[Ô])
conexao2.Open [Ô]Driver=Firebird/InterBase(r) driver;Uid=sysdba;Pwd=masterkey;DbName=[Ô] & Alias2
Exit Sub
erro2:
MsgBox [Ô]Ocorreu um Erro com a Conexão ao Iniciar o Aplicativo[Ô], vbInformation, [Ô]LocSys[Ô]
End

End Sub
PH1959 11/03/2010 15:40:22
#336658
dá um debug ... e verifica os valores nesse modulo de conexão...



outra coisa....os comandos para o firebird tem algumas pequenas diferenças na sintaxe.... (tipo aspas e coisas assim) dá uma verificada nisso
SINKERTEC 11/03/2010 16:21:01
#336664


Rodando o exe na sua máquina, ou seja, criando o exe e executando-o em sua máquina da pau?

Se não der...

é que no banco de dados que o outro pc ta conectando, ta faltando coisa no banco de dados
USUARIO.EXCLUIDOS 12/03/2010 06:37:57
#336699
não esta rodando nem na maquina que faço o exe. o que me invoca e que quando abro o projeto e aperto f5 ta tudo blz, mais quando faço o exe ta pal.
Tópico encerrado , respostas não são mais permitidas
Voltar