Matheus-vb6

Ola galera, estou utilizando BD access e em uma consulta de cliente, tenho que listar os clientes que não possuem nada preenchido no campo "Demissao" porém ele não aceita Empty.... rsdados.open "selecct * from funcionarios WHERE demissao<>'" & empty& "'",cn no banco de dados está como data/hora Como soluciono isso? Abraços

Bellebs, você quer passar os dados de uma tabela para outra? é isso? Você utiliza conexao ado?

Quando você seleciona o projeto e clica em package...

Boa noite galera, Fui finalizar um projeto agora, e fui pegar as dll e ocx que o programa utiliza, mas me retornou o seguinte erro: Unexpected error number 429 has occured: ActiveX component can't create object. alguém sabe o que possa ser?? meu programa já foi testado por varias pessoas, e não deu erro nenhum.... Abraços

Novidades sempre... não sabia que consulta de data é por # e também desconhecia o "Between" Mas é isso ai, fazendo e aprendendo :D Abraços

Em nenhuma parte do seu código está mandando ficar o frame invisivel?? aperte ctrl F e procure por .visible... Se não for isso desconheço o que seja... Abraço

Não deu certo não, no access meu campo está como texto, se eu mudar pra data tenho q mudar o medoto de inserção? '" & & "'? edit--- Tentei dessa forma agora, mas não deu certo do mesmo jeito... mudei no access pra data rsdados.Open "select count(nome) as x from pedidos WHERE data between #" & txtDT1.Text & "# and #" & txtDT2.Text & "# and nome='" & lstProdutos.List(L) & "'", cn edit2--- Consegui, tinha esquecido do format hehe.... Vlw Kuroi Tópico resolvido

e como se usa um format num select? tentei format(data,"YYYY-MM-DD") não deu '" & format( & "' & data & '" & ",YYYY-MM-DD") & "' também não deu...

Boa noite Essa linha eu achava que estava certa, porém nos teste vi que não apresentava o resultado desejado, gostaria que listasse todos os "pedidos" que estivessem dentro do periodo de datas informados, exemplo, a data do banco de dados tem q ser entre o txtdt1 e txtd2... rsdados.Open "select count(nome) as x from pedidos WHERE nome='" & lstProdutos.List(L) & "' and data > '" & txtDT1.Text & "' and data < '" & txtDT2.Text & "'", cn o código que uso é For L = 0 To lstProdutos.ListCount - 1 Set rsdados = New ADODB.Recordset rsdados.Open "select count(nome) as x from pedidos WHERE nome='" & lstProdutos.List(L) & "' and data > '" & txtDT1.Text & "' and data < '" & txtDT2.Text & "'", cn If Val(rsdados("X")) > 0 Then If Len(rsdados("x")) = 1 Then lstQuantidade.AddItem "00" & rsdados("x") & "@#$$#@@" & lstProdutos.List(L) ElseIf Len(rsdados("x")) = 2 Then lstQuantidade.AddItem "0" & rsdados("x") & "@#$$#@@" & lstProdutos.List(L) Else lstQuantidade.AddItem rsdados("x") & "@#$$#@@" & lstProdutos.List(L) End If End If Next L Onde eu errei, alguém poderia ajudar??? Abraços

Ola Frata, acabei de analizar o projeto, e achei o seguinte erro, sua progressbar não esta nomeada como PB, nomeie-a como PB e o código eu cometi erros, o correto fica: Private Sub wbrDesiredURL_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long) On Error Resume Next If Progress >= ProgressMax Then pb.Visible = False Else pb.Visible = True pb.Max = ProgressMax pb.Value = Progress End If End Sub Abraços :)

Uma coisa tão simples trava um sistema, Obrigado Kuroi Tópico resolvido

Ola galerinha, estava quase finalizando um projeto quando DE REPENTE, o format(date$,"dd/mm/yyyy") do formato brasileiro voltou para o formato americano, (mm/dd), e se eu inverto o format, em alguns computadores fica normal, e outros americanos, o q eu posso fazer para tentar resolver?? abraços

Vlw... estava em duvida no "shell" Abraços

Quando da o erro ele exibe uma mensagem... qual seria essa mensagem? Exemplo: -object required -method or data member not found e por ai vai.. se quiser me enviar o projeto... matheus.rubens@hotmail.com Abraços

E qual seria o erro?

Resolvido depois de muitas e muitas pesquisas... fica o código pra quem quiser... adicione um picture box com o nome pean e a propriedade autoredraw true... depois adicione 2 botões, 1 chamado cimprimir e o outro cguardar, por fim um textbox chamado txtean... Dim W As String 'a cor W é a cor do picture1 Private Const N As String = &H0& Private Const A As String = "A" Private Const B As String = "B" Private Const C As String = "C" Private Function CorLinha(Digito As Integer, Numero As Integer, Posicion As Integer, NumeroLinea As Integer) Dim Sequencia As Variant, SequenciaCor As Variant, Tipo As String Select Case Digito Case 0 Sequencia = Array(12, A, A, A, A, A, A, C, C, C, C, C, C) Case 1 Sequencia = Array(12, A, A, B, A, B, B, C, C, C, C, C, C) Case 2 Sequencia = Array(12, A, A, B, B, A, B, C, C, C, C, C, C) Case 3 Sequencia = Array(12, A, A, B, B, B, A, C, C, C, C, C, C) Case 4 Sequencia = Array(12, A, B, A, A, B, B, C, C, C, C, C, C) Case 5 Sequencia = Array(12, A, B, B, A, A, B, C, C, C, C, C, C) Case 6 Sequencia = Array(12, A, B, B, B, A, A, C, C, C, C, C, C) Case 7 Sequencia = Array(12, A, B, A, B, A, B, C, C, C, C, C, C) Case 8 Sequencia = Array(12, A, B, A, B, B, A, C, C, C, C, C, C) Case 9 Sequencia = Array(12, A, B, B, A, B, A, C, C, C, C, C, C) End Select Tipo = Sequencia(Posicion) Select Case Numero Case 0 Select Case Tipo Case A SequenciaCor = Array(7, W, W, W, N, N, W, N) Case B SequenciaCor = Array(7, W, N, W, W, N, N, N) Case C SequenciaCor = Array(7, N, N, N, W, W, N, W) End Select Case 1 Select Case Tipo Case A SequenciaCor = Array(7, W, W, N, N, W, W, N) Case B SequenciaCor = Array(7, W, N, N, W, W, N, N) Case C SequenciaCor = Array(7, N, N, W, W, N, N, W) End Select Case 2 Select Case Tipo Case A SequenciaCor = Array(7, W, W, N, W, W, N, N) Case B SequenciaCor = Array(7, W, W, N, N, W, N, N) Case C SequenciaCor = Array(7, N, N, W, N, N, W, W) End Select Case 3 Select Case Tipo Case A SequenciaCor = Array(7, W, N, N, N, N, W, N) Case B SequenciaCor = Array(7, W, N, W, W, W, W, N) Case C SequenciaCor = Array(7, N, W, W, W, W, N, W) End Select Case 4 Select Case Tipo Case A SequenciaCor = Array(7, W, N, W, W, W, N, N) Case B SequenciaCor = Array(7, W, W, N, N, N, W, N) Case C SequenciaCor = Array(7, N, W, N, N, N, W, W) End Select Case 5 Select Case Tipo Case A SequenciaCor = Array(7, W, N, N, W, W, W, N) Case B SequenciaCor = Array(7, W, N, N, N, W, W, N) ' Array(7, W, W, N, N, W, W, N) Case C SequenciaCor = Array(7, N, W, W, N, N, N, W) End Select Case 6 Select Case Tipo Case A SequenciaCor = Array(7, W, N, W, N, N, N, N) Case B SequenciaCor = Array(7, W, W, W, W, N, W, N) Case C SequenciaCor = Array(7, N, W, N, W, W, W, W) End Select Case 7 Select Case Tipo Case A SequenciaCor = Array(7, W, N, N, N, W, N, N) Case B SequenciaCor = Array(7, W, W, N, W, W, W, N) Case C SequenciaCor = Array(7, N, W, W, W, N, W, W) End Select Case 8 Select Case Tipo Case A SequenciaCor = Array(7, W, N, N, W, N, N, N) Case B SequenciaCor = Array(7, W, W, W, N, W, W, N) Case C SequenciaCor = Array(7, N, W, W, N, W, W, W) End Select Case 9 Select Case Tipo Case A SequenciaCor = Array(7, W, W, W, N, W, N, N) Case B SequenciaCor = Array(7, W, W, N, W, N, N, N) Case C SequenciaCor = Array(7, N, N, N, W, N, W, W) End Select End Select CorLinha = SequenciaCor(NumeroLinea) End Function Private Function EndsWith(ByVal Texto As String, ByVal caracter As String) As Boolean If Len(Texto) > 0 Then If Mid(Texto, Len(Texto), 1) = caracter Then EndsWith = True Else EndsWith = False End If Else EndsWith = False End If End Function Private Function FormatoEan(EAN As String) As String Dim Sequencia As Variant, i As Integer, Total As Integer, DigitoDeControle As Integer If Len(EAN) < 13 Then EAN = String(12 - Len(EAN), "0") & EAN Else EAN = Mid(EAN, 1, 12) End If Sequencia = Array(13, 1, 3, 1, 3, 1, 3, 1, 3, 1, 3, 1, 3) For i = 1 To 12 Total = Total + Mid(EAN, i, 1) * Sequencia(i) Next i DigitoDeControle = IIf(Right(Total, 1) = 0, 0, 10 - Val(Right(Total, 1))) FormatoEan = EAN & DigitoDeControle End Function Private Sub CGuardar_Click() On Error GoTo trataerro SavePicture PEan.Image, IIf(EndsWith(App.Path, "\"), App.Path & TxtEan.Text, App.Path & "\" & TxtEan.Text) & ".bmp" MsgBox ("Imagem do código EAN salva com sucesso.") Exit Sub trataerro: MsgBox Err.Description End Sub Private Sub CImprimir_Click() PEan.Picture = PEan.Image Printer.PaintPicture PEan.Picture, 1000, 1000, PEan.Width * 2, PEan.Height * 2 Printer.EndDoc End Sub Private Sub Form_Activate() TxtEan.SetFocus End Sub Private Sub Form_Load() PEan.AutoRedraw = True End Sub Private Sub TxtEan_KeyPress(KeyAscii As Integer) On Error Resume Next Dim x As Integer, x1 As Integer, Columna As Integer, NumeroDeGrupo As Integer, Grupo As Integer Dim Inicial As Integer, Resto As String, NNumero As Integer, PPosicion As Integer If KeyAscii = 13 Then PEan.Cls If IsNumeric(TxtEan.Text) Then TxtEan.Text = FormatoEan(TxtEan.Text) W = PEan.BackColor Inicial = Mid(TxtEan, 1, 1) Resto = Mid(TxtEan, 2, 12) PEan.Line (135, 90)-(135, 840), &H0& PEan.Line (165, 90)-(165, 840), &H0& If Inicial <> "0" Then PEan.CurrentX = -20 PEan.CurrentY = 700 PEan.Print Inicial End If For Grupo = 1 To 2 Select Case Grupo Case 1 x = 165 x1 = 165 Case 2 x = 870 x1 = 870 End Select For NumeroDeGrupo = 1 To 6 PPosicion = IIf(Grupo = 1, NumeroDeGrupo, NumeroDeGrupo + 6) NNumero = IIf(Grupo = 1, Mid(Resto, NumeroDeGrupo, 1), Mid(Resto, NumeroDeGrupo + 6, 1)) For Columna = 1 To 7 If Columna = 1 Then 'desenho o numero no picturebox PEan.CurrentY = 700 If Grupo = 1 Then PEan.CurrentX = x - 15 Else PEan.CurrentX = x - 30 PEan.Print NNumero End If 'desenha a linha no picturebox PEan.Line (x + (15 * Columna), 90)-(x1 + (15 * Columna), 690), CorLinha(Inicial, NNumero, PPosicion, Columna), BF Next Columna x = (x + (7 * 15)) x1 = (x1 + (7 * 15)) Next NumeroDeGrupo Select Case Grupo Case 1 PEan.Line (x + 30, 90)-(x + 30, 765), &H0& PEan.Line (x + 60, 90)-(x + 60, 765), &H0& Case 2 PEan.Line (x + 15, 90)-(x + 15, 840), &H0& PEan.Line (x + 45, 90)-(x + 45, 840), &H0& End Select Next Grupo End If End If End Sub [/codebox] Abraço :D

Em qual linha da esse erro?

Ola Frata, não responderei no outro tópico por questao de ser a mesma pergunta... para fazer uma barra de carregamento, adicione o componente microsoft common controls 6.0, e adicione uma progressbar, na qual eu nomeei de PB... na propriedade do seu navegador, no caso o meu chama wb, procure por progresschange, o código ficará assim Private Sub wb_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long) On Error Resume Next If Progress = ProgressMax Then pb.Visible = False Else pb.Visible = True pb.Max = ProgressMax pb.Value = Progress End If End Sub

Boa tarde... Estou tentando desenvolver um gerador de código de barras para ser lido por um leitor, porém, só utilizando fontes, o leitor não reconhece, precisa de uns separadores (segundo li no macoratti) alguém tem ideia de como faço os separadores? ou como faço um codigo de barras q possa ser lido?? abraços

Valeu cara, funcionou direitinho, só tive q adaptar com meu código, ficou assim Private Sub menuLogoff_Click() lblStatus.Caption = "1" Dim frm As Form For Each frm In Forms If LCase(frm.Name) <> LCase("frmgeral") Then Unload frm Next frm frmLogin.Show Unload Me End Sub Abraçao :D

Boa noite Estou desenvolvendo um aplicativo que tem a opção "Logoff", e gostaria de saber se tem como descarregar todos formularios (unload) usando o for each... Abraços

Ola Frata, faça o seguinte... antes da instrução coloque o nome do formulario, supondo que se chamasse formWeb... De: wbrDesiredURL.Navigate "http://www.globo.com" Ficaria: frmWeb.wbrDesiredURL.Navigate "http://www.globo.com" Teste e nos conte o resultado :D Abraços

É que o sistema já ta feito com data report.... então precisaria mesmo em data, se der... Vlw Abraços :D

Boa noite, alguém poderia me dizer se é possivel um data report, que tem a opção de salvar relatorio em html e txt, se tem como adicionar a opção PDF?? Abraços

Por curiosidade, pode nos postar como ficou seu código? Abraços