Ir para conteúdo
Fórum Script Brasil

Diegoldb

Membros
  • Total de itens

    58
  • Registro em

  • Última visita

Tudo que Diegoldb postou

  1. galera Estou com o seguinte problema Quando tento executar alguma pagina da internet ou mesmo no menu ajuda>sobre Internet Explorer do meu servidor de terminal surge a mensagem: Erro na caixa de diálogo Error: 53 Espaço insuficiente de armazenamento para concluir a operação Obrigado
  2. Bom dia Gsotaria de saber como executo um select usando as opções OR ou AND dentro do mesmo campo onde digito o criterio Exemplo Campo1 and Campo2 Campo1 or Campo 2
  3. Diegoldb

    Insert Via Dll

    Galera é o seguinte Estou com um projeto que herdei do outro programador que esta assim ele da o INSERT via DLL porem já mudei a dell e ainda não cadastra no banco como isso pode acontecer?
  4. Se nenhum campo estiver com o seu datasource direcionada para o dataenvironment1 faz o seguinte e ve se funciona dataenvironment1.connection1.open
  5. Diegoldb

    Campo Mask

    Meu amigo você pode usar _____em vez de #### na hora de limpar Tente ai
  6. Tente não fazer assim nome do campo.text sql2 = "UPDATE clientes set nome='" & xnome & "' ,endereco='" & endereco & "' ,numero=" & numero & " ,bairro='" & bairro & "' ,telefone'" & telefone & "' ,rg='" & rg & "' ,modelo='" & modelo & "' ,ano='" & ano & "' ,placa='" & placa & "' WHERE nome = '" & xVar1 & "' " cn.Execute sql2 Obs: seu campo Numero na tabela é tipo numero ou texto Que tipo de bd você usa??
  7. Pra detalhar melhor o que o nosso amigo ozzyvegeta Falou é o seguinte Crie um banco de dados Tabelas onde o Combo vai buscar lá Porque você deve saber que na hora de gravar os combos é melhor gravar o ID do ITEM. Falow
  8. Se ficar com duvida me avise Falo
  9. Private Sub combo1_Click() Dim sys As ADODB.Recordset Set sys = New Recordset Dim Combo As String Combo = combo1.ItemData(cobDepartamento.ListIndex) combo2.Clear Set sys = aqui voce informa a conexao("Select * from Suatabela where campodocombo1 = " & Combo & " ") While sys.EOF = False combo2.AddItem sys.Fields("Campo") combo2.ItemData(combo2.NewIndex) = sys.Fields("ID") sys.MoveNext Wend combo2.Refresh End Sub
  10. Galera foi mal Como não sou novo no VB até escrevi errado o nome da função o que eu queria dizer era como gravar DTPICKER no SQL estou com um certo problema Obrigao e desculpe a falha
  11. Diegoldb

    Duvidas

    o botão de cadastrar você pode fazer assim formulario.SHOW Por favor explique melhor para nós podermos te ajudar
  12. Voce poderia quem sabe Diminuir linhas de código e incluir um botão de ação de gravar o aplicativo Ou criar uma consilta e fazer este botão executala
  13. Galera Como eu faço para converter o formato do DTpicture para formato SQL e quem puder me ajudar mais ainda favor olhem o tópico LSTBOX me ajudem por favor ou me mandem sugestões Obrigado
  14. Diegoldb

    List Box Urgente

    alguém pode me ajudar.................................................................................... Se alguém puder me mandar um e-mail diegoldb@gmail.com
  15. Diegoldb

    List Box Urgente

    Set Sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where Produto = '" & Var1 & "'") If Not rs.EOF Then txtID.Text = sql!Id End If End Sub O erro agora é o seguinte BOF ou EOF são verdadeiros, ou o registro atual foi excluido. A operação solicitada pelo aplicativo requer um registro atual. Ta fogo
  16. Diegoldb

    List Box Urgente

    Set rs = DataEnvironment1.Connection1.Execute("select * from [tblEstoque] order by produto asc") While Not rs.EOF lstProduto.AddItem rs!produto '(0) rs.MoveNext Wend
  17. Diegoldb

    List Box Urgente

    Agora não deu nada Não aconteceu nenhuma atividade
  18. Diegoldb

    List Box Urgente

    não deu certo não o erro que da é o seguinte invalid column name Var1 E fica na linha Set sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where produto = var1") Obrigado
  19. Diegoldb

    List Box Urgente

    Fiz o Seguinte Private Sub lstProduto_Click() Dim Var1 As String Dim sql As ADODB.Recordset 'Só que aqui ele esta pegando o Valor "0" Var1 = lstProduto.ItemData(lstProduto.ListIndex) Set sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where produto = var1") End Sub
  20. Diegoldb

    List Box Urgente

    Bom vamos ver se entendi mesmo 'Aqui eu declro uma variavel onde no evento clique eu falo qual o IDVar1 = Listbox.ItemData(ListBox.ListIndex) // Aqui você pega o index da ListBox 'Aqui eu pego este ID e mando um Select para carregar os campos correspondentes deste ID Com isso você faz um SQL e resgata os valores nos Campos do Form...
  21. Galera a parada é o seguinte estou fazendo um sistema onde tenho um cadastro de peças Eu gostaria que acontecece o seguinte tenho um list box para informar todas as pessas que possuo eu quero que quando clicasse em uma dessas peças carregace os outros campos do Form com os outros dados do cadastros............. Obrigado Diego
  22. Desculpe eu já que perguntei de uma coisa tão dificil para vc6
  23. Diegoldb

    Exportação De Dados

    você tem que formatar isso na estrutura da tabela.........Como limites de caracteres.....espçamento........maskara de entrada.......etc
  24. Diegoldb

    Access - Calcular

    É sossivel sim.................. você entende de VBA???
  25. Meu amigo Algum arquivo seu esta com TROJAM......passa o Stinger ou reinstale seu antivirus e depois No ultimo caso tente passar o antivirus antes de voltar os arquivos
×
×
  • Criar Novo...