INSTRUCAO SQL
PESSOAL,
ALGUéM SABE ONDE ESTAR O ERRO NESTE CODIGO?
Set rs = New ADODB.Recordset
Dim sql As String
sql = [Ô]SELECT tblComunicantes.*, tblAdendo.IdBoletim, tblAdendo.CodCadastro, tblAdendo.NumeroBoletim, tblAdendo.DataDoRegistro, tblAdendo.HoraDoRegistro, tblAdendo.DataOcorrencia, tblAdendo.NaturezaDaOcorrência, tblAdendo.Local, tblAdendo.Horario, tblAdendo.Afeto, tblAdendo.HistoricoAdendo[Ô]
sql = sql & [Ô] FROM tblAdendo INNER JOIN tblComunicantes ON tblAdendo.CodCadastro = tblComunicantes.CodCadastro[Ô]
sql = sql & [Ô] WHERE tblAdendo.IdBoletim=[Ô] & IntBoletim [ô]& [Ô] AND tblAdendo.CodCadastro=[Ô] & IntComunicante
rs.Open sql, cnn, adOpenDynamic, adLockOptimistic
ESTAR GERANDO O SEGUINTE ERRO:
Run-time error -2147467259 (80004005)
Method open of object recordset failed
e não consigo encontrar a origem do erro
Fiz a consulta dentro do proprio access e copie o comando sql.
a consulta no access funciona corretamente, mas o comando dentro do vb estar gerando o erro.
ALGUéM SABE ONDE ESTAR O ERRO NESTE CODIGO?
Set rs = New ADODB.Recordset
Dim sql As String
sql = [Ô]SELECT tblComunicantes.*, tblAdendo.IdBoletim, tblAdendo.CodCadastro, tblAdendo.NumeroBoletim, tblAdendo.DataDoRegistro, tblAdendo.HoraDoRegistro, tblAdendo.DataOcorrencia, tblAdendo.NaturezaDaOcorrência, tblAdendo.Local, tblAdendo.Horario, tblAdendo.Afeto, tblAdendo.HistoricoAdendo[Ô]
sql = sql & [Ô] FROM tblAdendo INNER JOIN tblComunicantes ON tblAdendo.CodCadastro = tblComunicantes.CodCadastro[Ô]
sql = sql & [Ô] WHERE tblAdendo.IdBoletim=[Ô] & IntBoletim [ô]& [Ô] AND tblAdendo.CodCadastro=[Ô] & IntComunicante
rs.Open sql, cnn, adOpenDynamic, adLockOptimistic
ESTAR GERANDO O SEGUINTE ERRO:
Run-time error -2147467259 (80004005)
Method open of object recordset failed
e não consigo encontrar a origem do erro
Fiz a consulta dentro do proprio access e copie o comando sql.
a consulta no access funciona corretamente, mas o comando dentro do vb estar gerando o erro.
Olha só
retira o tblComunicantes.* esse deve ser o erro
retira o tblComunicantes.* esse deve ser o erro
sql = [Ô]SELECT b.codcadastro,b.campo2, a.IdBoletim, a.CodCadastro, a.NumeroBoletim, a.DataDoRegistro, a.HoraDoRegistro, a.DataOcorrencia, a.NaturezaDaOcorrência, a.Local, a.Horario, a.Afeto, a.HistoricoAdendo from tblcomunicates b, tbladento a where b.codcadastro=a.codcadastro[Ô]
Explicando o codigo :::::
[Ô]select b.codcadastro .. = A tabela b é a tbladento
entao coloquei assim .. select b.codcadastro,b.campo2,b.campo3, ou seja liste apenas os campos que vc quer.. esse lance de listar a tabela inteira.. quando se tem uma quantidade de registro consideravel fica muito lento a consulta.. e no final voce pode ir colocando os filtros que desejar.. exemplo..
where b.codcadastro=a.codcadastro AND a.Codcadastro=[ô][Ô] & text1.text & [Ô][ô] and a..... etc.. etc..
Pessoal obrigado pelas dicas
vou tentar colocá-las em pratica e depois retorno o resultado.
grato a todos
vou tentar colocá-las em pratica e depois retorno o resultado.
grato a todos
Citação::
Pessoal obrigado pelas dicas
vou tentar colocá-las em pratica e depois retorno o resultado.
grato a todos
Uma dica.
Coloque apenas um select simples na consulta (Ex.: [Ô]select * from tabela[Ô]).
Se apresentar algum erro o problema pode estar em alguma chamada, variavel, conexao.
Se passar, continue escrevendo o select. Mas vai por partes até identificar o erro.
abs
Hugo
Veja se ajuda em algo
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=185608&varPagina=2
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=185608&varPagina=2
Pessoal,
Fico muito satisfeito em participar deste forum e saber que tem muita gente aqui disposto a ajudar o proximo.
conseguir resolver com esta instrução.
rs.Open [Ô]Select tblAdendo.*, tblComunicantes.* from tblComunicantes INNER JOIN tblAdendo ON tblComunicantes.CodCadastro = tblAdendo.CodComunicante where tblAdendo.IdBoletim=[Ô] & IntBoletim & [Ô] And tblComunicantes.CodCadastro= tblAdendo.CodComunicante[Ô], cnn, adOpenDynamic, adLockOptimistic
[ô]não sei se esta instrução seria a ideal, mas esta funcionando.
usei todos os campos das tabelas o que não é muito recomendado, mas somente a tabela tblcomunicantes é que tem dois campos não utilizados depois deixareis eles de fora.
Muito obrigado a todos que ajudaram.
Fico muito satisfeito em participar deste forum e saber que tem muita gente aqui disposto a ajudar o proximo.
conseguir resolver com esta instrução.
rs.Open [Ô]Select tblAdendo.*, tblComunicantes.* from tblComunicantes INNER JOIN tblAdendo ON tblComunicantes.CodCadastro = tblAdendo.CodComunicante where tblAdendo.IdBoletim=[Ô] & IntBoletim & [Ô] And tblComunicantes.CodCadastro= tblAdendo.CodComunicante[Ô], cnn, adOpenDynamic, adLockOptimistic
[ô]não sei se esta instrução seria a ideal, mas esta funcionando.
usei todos os campos das tabelas o que não é muito recomendado, mas somente a tabela tblcomunicantes é que tem dois campos não utilizados depois deixareis eles de fora.
Muito obrigado a todos que ajudaram.
Tópico encerrado , respostas não são mais permitidas