Señor Smoke

Resolvido. O problema era a versao do crystal que era a versao 6. Mudei para a versao 8.5 e agora ele exibe os gráficos. Programinha safado esse crystal reports, meu deus!

Ola pessoal. Montei um relatorio no crystal e estou chamando esse mesmo relatorio pelo VB, o relatorio é exibido e os dados são mostrados mas o grafico que montei no crystal não aparece. Quando abro o rpt pelo crystal, o grafico aparece normal mas quando aciono o relatorio pelo VB o grafico não é mostrado no relatorio. Fica apenas um espaço em branco. alguém já teve esse problema? Sabe como contornar? Desde já agradeco. Obrigado.

Olá a todos. Estou preenchendo um grafico(mschart) com os dados de um recordset. Eu preciso formatar os labels do eixo Y (Axis Y). Os meus valores no eixo Y devem ser em moeda (1.000,00) mas quando jogo os valores no grafico eles ficam dessa forma : exemplo: 188e+11 algo do tipo. Como posso formatar os labels de forma q eles fiquem no formato que eu preciso? Segue o trecho do codigo que preenche o grafico: 'Preenchendo grafico Dim rc2 As rdoResultset Set rc2 = rdocn.OpenResultset(SQL) reg = 4 MSChart1.chartType = 1 MSChart1.ShowLegend = False MSChart1.Title = "Evolução do Período" MSChart1.ColumnCount = 1 MSChart1.RowCount = reg MSChart1.Visible = True While Not rc2.EOF For i = 1 To reg MSChart1.Row = i MSChart1.RowLabel = rc2("qtd_reg") MSChart1.Data = rc2("vl_pr_pago") rc2.MoveNext Next Wend rc2.Close Obrigado!

Olá a todos, é bom estar de volta ao fórum. Estou fazendo uma aplicacao em VB6 acessando SQL Server 2005. Estou tentando carregar um MsFelxGrid com os dados de um result set. Se eu colocar somente a query em uma varíavel no VB e submeter ao result set, o VB traz os dados do SQL na boa. Agora se em vez de botar a query, eu mandar executar uma procedure no SQL pelo VB, ele me retorna o seguinte erro: Run time error 40088: no open cursor or cursor closed. Ele so me retorna esse erro se eu mando executar pela procedure, porque? alguém já teve algum problema parecido? Andei lendo que tem algum problema com VB e stored procedures, parece que o SQL não mantem o cursor aberto quando retorna a procedure ou algo assim. Abs

Ok deixa pra la, já consegui! Esse forum já foi melhor....

Olá estou tendo problemas para conectar o oracle forms com o oracle 10g express. Esse oracle 10g express não é a versao universal, é a outra versao somente para ingles, porque já soube que o forms não funciona com o oracle 10g express universal. não sei como faço exatamente para conectar um form do oracle forms com uma tabela do banco oracle 10g express. alguém saberia me dizer como posso conseguir esse feito? Agradeço!

Não é uma má idéia. Eu to enferrujado com cursores Pode me da uma ajuda? Vlw

Como faço uma consulta para listar todas tabelas de um banco juntamente com o respectivo tamanho. Já tentei sp_tables, sp_help, sp_spaceused nada disso serve To tentando fazer o que quero com essa query aqui: SELECT sysobjects.name,sysobjects.data from sysobjects Mas dá erro, diz que a coluna 'data' não existe. Ajudem plz!

Como faz pra por tempo indeterminado? []s

Con.Provider = "SQLOLEDB" Con.Properties("Data Source").Value = "RAFA1" Con.Properties("Initial Catalog").Value = "BD" Con.Properties("Integrated Security").Value = "SSPI" Con.Open

Aproveitando, qual seria o tempo de timeout ideal para eu usar? Preciso de algo tolerante mas tb nada excessivo demais. estou fazendo assim: Con.CommandTimeout = 600# qual é o formato? é assim? hora:min:seg?? Help

Mais uma dúvida, Eu preciso alterar o tempo de timeout da aplicação. Minha tabela tem muitos registros e por isso as consultas ficam pesadas e então o VB acaba dando timeout. Eu queria que esse timeout fosse mais tolerante devido ao grande volume de dados. Como posso fazer isso? []s

Bom dia pessoal Tem dias que o servidor aqui na minha empresa fica muito lento, e minha aplicação VB fica comprometida com isso. Gostaria que quando houvesse um erro de Timeout, o VB gerasse um aviso específico para o usuário. Mas não faço idéia de como reconhecer um erro de timeout do servidor/aplicação. alguém podem e ajudar? []s

Eu sei, é que eu não gostaria de poluir meu form com um datagrid. Como eu posso utilizar as propriedades do RS sem um datagrid? Da forma que estou fazendo não esta dando certo. Em ultimo caso eu coloco um datagrid no form mas gostaria de fazer sem.

Pra poder manipular as propriedades do record set (movelast, movefirst etc...) é realmente necessário associar o record set a um DataGrid.datasource? Não é possivel usar essas propriedades sem um datagrid, digo, pegando diretamente do record set? Estou dizendo isso porque no meu caso acima, eu não estou usando um datagrid, estou carregando os resultados das consultas diretamente no record set.

GrayMalkin pode me dar uma luz nessa ? Abs

Eu já tentei usar o rs.movelast sem sucesso. É mais complicado do que achei.

Estou usando SQL, mas o meu problema não está a nivel de banco de dados e sim a nivel de programacao VB. Deve ter alguma propriedade do record set que eu possa usar.

Fala pessoal! Seguinte, estou desenvolvendo um sistema de desbloqueio de terminais no VB6. Estou com o seguinte problema. Eu gostaria que, quando o usuário tentasse desbloquear um terminal já desbloqueado, um aviso fosse mostrado na tela. Acontece que, um terminal possui um histórico. Por exemplo: Terminal data_bloqueio data_desbloqueio 308203038 12/12/2005 15/12/2005 308203038 17/12/2005 NULL No caso acima, se o usuario tentar desbloquear o terminal ele deveria conseguir porque o terminal foi desbloqueado e bloqueado novamente em uma data posterior. O codigo que estou fazendo acusa que o terminal já foi desbloqueado sendo que isto não é verdade. Resumindo o que eu quero fazer é pegar o ultimo registro do record set e verificar se a data_desbloqueio é NULL. Não estou conseguindo identificar a ultima linha do record set. Aqui vai o codigo que estou fazendo: Private Sub Command1_Click() On Error GoTo errexcl If dddter.Text = "" Or ddd.Text = "" Then MsgBox "Campos obrigatórios em branco", vbExclamation Else SQL = "Select * from t91013.COBILLING_BLOQUEIOS where DDD_Terminal = '" & dddter.Text & "' AND DDD = '" & ddd.Text & "' " Set Rs = Con.Execute(SQL) If Rs.BOF And Rs.EOF Then MsgBox "Registro não encontrado", vbExclamation 'ElseIf Rs.Fields("data_desbloqueio").Value <> "" Then 'MsgBox "Registro já se encontra desbloqueado", vbExclamation Else VOK = MsgBox("O registro será desbloqueado", _ vbYesNo + vbQuestion, "Atenção") If VOK = vbYes Then SQL = "Update t91013.COBILLING_BLOQUEIOS Set Data_Desbloqueio=getdate() where ddd = '" & ddd.Text & "' and ddd_terminal = '" & dddter.Text & "'and data_desbloqueio is Null" Con.Execute SQL SQL = "update cobilling_bloqueios set tipo_desbloqueio = 'Manual' Where ddd_terminal = '" & dddter.Text & "' and tipo_desbloqueio is null" Con.Execute SQL MsgBox "Registro desbloqueado com sucesso" End If End If End If Espero que possam me ajudar. É a ultima do ano, isso eu prometo srsrsrsrs FELIZ ANO NOVO A TODOS!!

Fala pessoal, alguém sabe como eu faço pra reconhecer quando o usuario fecha a janela do VB no botão X da janela? É porque eu tenho varios forms e a conxeao é carregada em um form especifico (form1.load) Esse form1 nunca sofre Unload Me, porem o usuario pode fechar este form usando o botao X localizado no canto superior direito da janela. []S

você quer gravar em um arquivo Txt é isso? Existem variantes desse codigo mas o bruto é isso: Open "c:\nome.txt" For Output As #2 Do Until Rs5.EOF Print #2, Rs5.GetString(, 100, vbTab, vbCrLf, ""); Loop Close #2 Esse codigo pega o que tá em um record set e joga no txt.

Parece que você está com pouco espaco no seu banco. Tenta dar uma olhada no tamanho que você deu para o seu banco e a taxa de crescimento dele. Quanto ao resto, tenta fazer uma coisa de cada vez, quando tiver tudo funcionando ai você parte pra otimização... só um conselho. []s

Por isso que eu gosto do GrayMalkin, ele é um cara modesto srsrs Mas vem cá você não tinha um numero de porta melhor pra usar não? Pô, 666??? você tá querendo dizer alguma coisa com isso srsrssr Abs

olha o português ae pessoal...

Fala galera, Como eu posso atribuir uma cor diferente para os Forms do VB? Eu gostaria de usar uma diferente daquele fundo cinza sem graça que aparece. alguém pode me ajudar com isso? Abs