Duduh_Capixaba

Acho que achei o comando, de todos os que eu testei parece que este é o que mais se aproxima: "crRep.Database.SetDataSource". Só não estou sabendo como usá-lo. Esses são os parâmetros que ele pede: SetDataSource(data, [dataTag], [tableNumber]) Se for mesmo esse o comando, o que eu devo colocar pra cada parâmetro desse?

Olá pessoal! Seguinte... Criei um relatório no Crystal Reports onde configurei a base de dados por "Connection String", assim: Conexão ODBC (RDO) Connection String: Dbname=X:\Caminho\Base;Driver=Firebird/InterBase® driver;CHARSET=NONE;UID=SYSDBA;PWD=masterke Ok, agora, com esse código dentro do VB eu exibo o relatório: Private Sub Command1_Click() Dim crAppl As CRAXDRT.Application Dim crRep As CRAXDRT.Report Set crAppl = New CRAXDRT.Application Set crRep = crAppl.OpenReport("X:\Caminho\Relatorio.rpt") If Text1.Text <> "" Then 'Caso o cliente queira definir um filtro crRep.SQLQueryString = "SELECT * FROM TABELA WHERE CAMPO = " & Text1.Text End If Form1.Show Form1.crViewer1.ReportSource = crRep Form1.crViewer1.ViewReport End Sub Tá tudo ótimo! Mas, e se eu quiser mudar o local da base de dados? Tipo, lá na Connection String do relatório, tá configurado pra ele procurar a base de dados na pasta X, mas e se eu quiser a pasta Y? Eu pensei em um comando tipo: crRep.DataBase.ConnectionString = "Y:\NovoCaminho\NovaBase", mas já testei um monte de comandos aqui (obs: esse que eu escrevi não existe) e nenhum funcionou. Alguém sabe me responder essa? Vlw!

essa página que você citou é de um dos moderadores deste forum, o Graymalkin. sugiro a você se cadastrar no forum e enviar uma MP pra ele. com certeza ele vai saber te orientar melhor se o Package & Deployment Wizard não resolver seu caso. abraço

você pegou esse componente de terceiros? você vai conseguir uma ajuda melhor no site do desenvolvedor do componente. você já tentou fazer uma instalação do seu projeto pelo programa "Package & Deployment Wizard" do próprio VB? costuma funcionar. abraço

Vou te dar o mesmo conselho que o kuroi me deu quando eu perguntei sobre versões do Crystal Reports: se for pra escolher entre versões, escolha a mais recente. Elas sempre têm um "alguma coisa" a mais :D Eu uso o VB6, mas aprendi a usá-lo com apostilas do 4, 5 e 6. Os códigos são praticamente os mesmos. Acho que o que deve mudar são os componentes e as referências. Se você conseguir pegar a fonte da idéia, você consegue programar em qualquer versão. É só ir pedindo ajuda que você desembola, vai por mim. Comecei com VB há 3 meses e já consigo me virar bem sozinho. Abraço

Worked! Vlw brow, deu certinho! Abraço

Olá pessoas! Estava eu dando uma mexida em uma das ferramentas desenvolvidas em Delphi, que nós usamos aqui no escritório, quando me deparei com um comando que retorna o caminho completo de onde o exe se encontra. Isso quebra um galhão na hora de apontar para os arquivos que ficam na mesma pasta do exe, mesmo que você altere o nome da pasta ou seu caminho. Existe algum comando que faz a mesma coisa no VB? Deixo aqui o comando do Delphi: var sDir : String; begin sDir := ExtractFilePath(Application.ExeName); end;

esses erros são chatos mesmo de resolver! porque se o programa funciona em uma máquina, deveria funcionar em outras tb... acho que não há problema algum em usar DAO e ADO no mesmo projeto (se era isso que você queria saber). tenho aqui alguns programas de teste em que eu uso os dois e não ocorre erro algum. ainda acho que possa ser algum lixo de sistema desses programas que você instala. pra tirar a dúvida, tente rodar em outra máquina com W98 e Access 2000. talvez o problema não seja seu programa e sim o Windows do seu cliente. aqui na empresa onde trabalho, uma das nossas exigências para o nosso programa funcionar corretamente, é a saúde do Windows. ou seja, a máquina deve estar com o Windows em perfeitas condições, caso contrário, exigimos uma formatação.

se você instalou em duas maquinas com o Win98 e Access 2000 e uma delas funfou perfeitamente, o problema deve ser com a instalação do Windows ou do Access da máquina que deu pau. teria como você formatar essa maquina que deu pau só pra tirar essa dúvida?

rapá...num precisa nem falar nada né?! deu certinho cara! só precisei colocar o nome da minha tabela/campo e mais nada. mais uma vez muito obrigado!

É, isso também. Um artigo completo sobre "FileSystemObject" pode ser visto aqui: http://www.macoratti.net/filesyst.htm Mas na verdade eu tava falando de outros comandos mesmo. Se não me engano, pra gravar em arquivos texto, temos os comandos Print e Write. Mas não lembro a diferença entre um e outro.

A sintaxe para gravar em um arquivo texto é a seguinte: Dim f As Long Open Arquivo For Output As f Print f, Text1.Text Close f Existe uma outra maneira de escrever em um arquivo texto além do comando Print, mas não estou lembrando agora. Mas existe muito material na net pra isso. Agora use sua criatividade para selecionar uma pasta e fazer os ajustes necessários. Flws!

funcionou! consegui fazer os relatórios do Crystal serem exibidos :) mas não gostei muito da solução não. tive que baixar o programa Microsoft Visual Studio Installer 1.1 (http://msdn2.microsoft.com/pt-br/vstudio/aa718352(en-us).aspx) e criar uma instalação pro Crystal. nos sites que citei acima, fiz o download dos arquivos "M S M" (Merge Modules) e com eles criei um Setup só para os arquivos do Crystal. Depois de criado, o Setup se encarrega de copiar os arquivos para as pastas corretas e de registrar as DLL's. o problema é o tamanho do Setup...20MB :( 3 vezes maior que o Setup do meu aplicativo, não tem cabimento...mas infelizmente não encontrei outro jeito. se alguém tiver uma solução mais fácil, por favor, não deixe de postar. vlw!

Gabriel, só com esses dados que você postou não dá pra chegar a uma conclusão. Pois se esses códigos que você postou funcionam pelo menos uma vez, quer dizer que o problema não está neles. Deve estar acontecendo algo quando seu programa executa esses Subs novamente. Use o botão F8 para acompanhar seu código e veja se está faltando alguma coisa. Ou então poste o código do Form inteiro. --------------------------------- Edição: opa, foi mal Macêdo, postamos juntos, hehe :D não tinha vista seu post, desculpa!

cara, eu uso o Firebird há dois anos na empresa onde trabalho e nunca tivemos problemas. ele só é meio fraco de ferramentas de manutenção de dados, para isso eu uso o IBOConsole, IBExpert e o FirebirdSQL Manager. desses, só o IBOConsole é free, mas dá pra trabalhar com ele tranquilo. agora comecei a desenvolver em VB e continuo usando o Firebird. não tenho problema nenhum com ele. é leve, rápido, fácil de achar documentação e tem uma comunidade boa que ajuda em tudo que você precisar. eu aconselho!

minha birra é com o Crystal. sei que o problema é com ele. e só pra complicar um pouco mais, li aqui mesmo no forum que uma dll chamada p2smon.dll poderia ser o problema. mas mesmo com ela a mensagem continua. vou esperar o kuroy dar uma olhada nesse tópico, pois me parece que ele conseguiu resolver esse problema. vlw Graymalkin, você tah sendo 10 cara! abraço --------------------------------------------------- Edição: acho que encontrei a resposta. ainda não testei, mas bem provável que vá funcionar. http://diamond.businessobjects.com/node/227 http://support.businessobjects.com/downloads/runtime.asp essas duas páginas estão explicado como distribuir relatórios desenvolvidos pelo Crystal em máquinas clientes. também disponibiliza o download da ferramenta para isso. ainda estou fazendo o download, mas pelo que li no site e em outros foruns, dá certo! dpois posto o resultado.

essas eram as DLLs que estavam faltando: exlate32.dll, u2dapp.dll, u2dpost.dll, u2fcr.dll, u2fsepv.dll, u2fxml.dll, unicows.dll. consegui todas elas na internet, todas elas são do Crystal. mas infelizmente elas não resolveram meu problema. a mensagem de erro continua aparecendo: "Run-time error '-2147206429 (80043ae3)': Invalid TLV Record" já estou começando a ficar injureado com isso. como pode um software tão poderoso e popular deixar a desejar numa coisa tão banal???

acho que você receberia uma ajuda melhor se postasse sua dúvida em outra seção desse forum. essa que você está usando destina-se a dúvidas sobre VB. vlw!

perfeito Graymalkin, deu certo! agora os grids estão funcionando. o problema agora é com o Crystal Reports 10. quando estava construindo o instalador do meu aplicativo, o Package & Deployment Wizard detectou que o mesmo precisava de algumas dlls do Crystal (acho que são dele) que não se encontravam no meu PC. agora, quando tento listar um relatório, acontece o seguinte erro: "Run-time error '-2147206429 (80043ae3)': Invalid TLV Record" aí eu instalei o VB6 nessa máquina pra tentar depurar o erro. e ele aponta pra seguinte linha do meu código: Set crRep = crApp.OpenReport("X:\Caminho\NomeRelatorio.rpt") segue o código completo da chamada do relatório: Private Sub Form_Load() Dim crApp As New CRAXDRT.Application Dim crRep As New CRAXDRT.Report Select Case frmPesqCad.lstCadastro.List(frmPesqCad.lstCadastro.ListIndex) 'listagem de relatórios disponíveis Case "CLIENTES" 'caso o relatório escolhido seja o de clientes Me.Caption = "Cadastro de Clientes" 'título do Form de relatórios Set crRep = crApp.OpenReport("X:\Caminho\Clientes.rpt") Case "FORNECEDORES" 'caso o relatório escolhido seja o de fornecedores Me.Caption = "Cadastro de Fornecedores" 'título do Form de relatórios Set crRep = crApp.OpenReport("X:\Caminho\Fornecedores.rpt") End Select crViewer.ReportSource = crRep crViewer.ViewReport End Sub o erro só ocorre se eu passar pelo "Select Case". se eu tento abrir um relatório que não atenda ao "Select Case", o aplicativo executa a linha "crViewer.ViewReport" sem problemas, ele abre a tela do Viewer do Crystal em branco. isso já me dá a certeza de que o Viewer foi instalado e funciona corretamente. não encontrei as dlls dentro do CD do Crystal. vou dar uma vasculhada na internet, mas achei estranho elas não estarem no PC onde eu trabalho com o VB e o Crystal instalados. dpois vou deixar os nomes das dlls que estão faltando. obrigdo pela ajuda! agora as coisas estão ficando mais claras.

hum...sempre achei que o Package & Deployment Wizard era só um "enfeite", tipo, algo pra dar um "tchan" no sistema. mas pelo visto ele é muito mais que isso. vou usá-lo e dpois posto aq o resultado. brigadão pela dica cara!

Galera... Compilei um aplicativo no meu PC que possui dois DataGrid e dois ADODC. Quando fui rodar esse aplicativo em outra máquina, pra minha surpresa, ocorreram erros de falta de arquivo, no caso os arquivos MSDATGRD.OCX (DataGrid) e MSADODC.OCX (ADODC). Não entendi...não era pra compilação incluir tudo isso não?! Vou ter que deixar esses arquivos juntos com o EXE? E outra...quando rodei o aplicativo na outra máquina, um dos grids não funfou =/ ele aparece mas não traz os dados da base de dados. Muito estranho isso. Alguém tem idéia do que seja? Vlw!!!

ué, se você entendeu o que está acontecendo com o select, então esqueceu de mudar seu código, pois o select continua dentro do código do botão de movimentação. tira o select. aqui vai um exemplo de um programa meu: Dim Dados As New ADODB.Recordset Private Sub Form_Load() Dim Conexao As String Dim Comando As String Conexao = "Base de Dados" Comando = "SELECT * FROM TABELA ORDER BY CAMPO" 'recebe a select na inicialização do form Dados.CursorLocation = adUseClient Dados.Open Comando, Conexao, adOpenStatic 'abre o RecordSet na inicialização do form Dados.MoveFirst Text1.Text = Dados("CAMPO1") Text2.Text = Dados("CAMPO2") End Sub Private Sub Command1_Click() 'botão que move o registro para trás Dados.MovePrevious If Dados.BOF Then 'caso seja o primeiro registro da tabela Dados.MoveNext MsgBox "Este é o primeiro registro" Else Text1.Text = Dados("CAMPO1") Text2.Text = Dados("CAMPO2") End If End Sub Private Sub Command2_Click() 'botão que move o registro para frente Dados.MoveNext If Dados.EOF Then 'caso seja o último registro da tabela Dados.MovePrevious MsgBox "Este é o último registro" Else Text1.Text = Dados("CAMPO1") Text2.Text = Dados("CAMPO2") End If End Sub Private Sub Form_Unload(Cancel As Integer) Dados.Close 'fecha o RecordSet End Sub

Seguinte... Já vi que se um Field for numérico eu consigo formatá-lo de várias formas (moeda, decimais...). Mas estou precisando criar meu próprio formato, tipo: Código - Cliente 1 - Cliente1 2 - Cliente2 3 - Cliente3 10 - Cliente4 11 - Cliente5 12 - Cliente6 111 - Cliente7 121 - Cliente8 131 - Cliente9 Gostaria de formatar os números acima de forma que o número 1 ficasse 001, o número 10 ficasse 010...No Excel isso é fácil, basta criar um formato 000 e pronto, mas no Crystal não consegui. Peço ajuda. Vlw!

bixu...kuroy, você merece uma medalha de honra! deu certo mais uma vez cara! vlw pela força. e pode esperar que ainda tenho muitas perguntas pra fazer sobre Crystal :)

agora funcionou! :) vou aproveitar o topiko pra outra dúvida... quando fiz o relatório no editor do Crystal, criei uma conexão e selecionei a tabela desejada. quando terminei e salvei o rpt, a tabela em questão só tinha um registro cadastrado, agora tem 5. só que quando chamo o relatório no meu projeto só aparece o único registro que a tabela possuía de início. só consigo fazer com que apareçam os demais registros quando clico no botão ATUALIZAR da barra do viewer. já tentei dar um comando Refresh na minha linha de comando, mas sem sucesso. sabem como resolver isso?