Ir para conteúdo
Fórum Script Brasil

Señor Smoke

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    80

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Señor Smoke

  2. VB6 X CRYSTAL REPORT

    em Visual Basic

    Postado · Editado por Señor Smoke

    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.

  3. Mschart - formatar labels do Eixo Y

    em Visual Basic

    Postado

    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!

  4. Problema - Stored Procedure x VB 6

    em Visual Basic

    Postado

    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

  6. Como Conectar Oracle Forms com Oracle 10g Express

    em Demais Bancos

    Postado

    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!

  8. Como Fazer Uma Consulta Para....

    em SQL Server

    Postado

    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!

  13. Identificando Um Erro De Timeout

    em Visual Basic

    Postado

    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

  15. Como Reconhecer A última Linha De Um Record Set?

    em Visual Basic

    Postado

    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.

  19. Como Reconhecer A última Linha De Um Record Set?

    em Visual Basic

    Postado

    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!!

  22. Sql Server

    em Visual Basic

    Postado

    Comecei a receber uma menssagem de Tempo excedido e as vezes:

    Run time error - 2147467259

    Could not allocate space for object 'MontaTabela' in database 'CONSTRUCAO _x' because the 'primary' file group is full.

    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

×
×
  • Criar Novo...