Ir para conteúdo
Fórum Script Brasil

Nelsonmgj

Membros
  • Total de itens

    25
  • Registro em

  • Última visita

Tudo que Nelsonmgj postou

  1. Este é o problema. Sei que é simples com o vb 2010, mas como estou iniciando não tenho muitas referências. Sei o necessário em SQL, tipo: "SELECT * FROM [tabela] WHERE [item] LIKE '" & Tex01 & "';" - VBA Mas não sei exatamente o procedimento em vb 2010. Desde já agradeço a atenção...
  2. Amigos, Estou fazendo uma aplicação em VB 2010 e me deparei com o seguinte problema: Gostaria de ter um textbox que, a medida que fosse sendo preenchido (changed), relacionasse os registros que contêm o texto digitado, de um BD access numa listbox no mesmo form. Desde já agradeço a ajuda. Nelson Martins
  3. Como vai Kuroi? A conexão está aberta, não há problemas com ela, é que no meu código fiz uma rotina tipo ON ERROR GOTO que me retorna uma MSGBOX para indicar esse tipo de falha. O que acontece é que quando junto no INSERT informações de combo junto com text, essa rotina é executada, na tabela do BD esse registro chega a ser parcialmente feito (quer dizer, o número sequecial é interrompido. Sendo ainda mais claro, se abrir o BD direto depois que isso acontece, o registro de auto numeração pula um número ex: 120 para 122), com apenas text no form, o registro é feito normalmente. O código que coloquei segue aquela lógica, aqui foi somente para vocês terem uma referência.
  4. Amigos, Mais uma vez peço a ajuda de todos. Estou com um form onde necessito que sejam inseridas informações de combos e texts. quando escrevo o script ex: INSERT INTO Proced(campo1, campo2, campo3) values('" & combo1.text &"','" & text1.text & "','" & text2.text & "'); O script de erro de conexão com o banco de dados sempre é executado. Quando a rotina se limita a text ou combo somente ela é executada normalmente. Gostaria de saber qual detalhe não estou sabendo fazer para corrigir em minha aplicação. Desde já agradeço,
  5. Obrigado amigo... Mas como gero o Package? Desde já agradeço,
  6. Amigo, A única coisa que fiz foi clicar em File e mandar fazer o executável, pois não precisaria mais do que isso para minha necessidade. Havendo algum detalhe que eu não tenha percebido, por favor me orientem, pois preciso colocar este trabalho para rodar com certa urgência. Desde já agradeço,
  7. Amigos, Fiz uma aplicação para uso próprio no trab e me deparei com o seguinte problema: Em casa uso XP, mas o computador do trab usa W2000, por conta disso meu sistema não acessa o banco de dados e não abre, pois coloquei no código um comando para isso. Pensei que era a falta do Jet atualizado. Atualizei o cara mas mesmo assim a aplicação não rodou. Não satisfeito fui para um micro com XP, a aplicação rodou, mas quando fui abrir o form com o ADODC, ocorreu o erro 339, falando que o componente MSADODC ou um dos dependentes não foi corretamente registrado. Preciso de uma luz sobre a resolução de algum desses problemas, principalmente do primeiro. Desde já agradeço,
  8. Há alguma referência que eu possa seguir. Em tempo, a senha é para que outras pessoas não abram meu projeto direto no VB. Desde já agradeço,
  9. Amigos, Há condições de colocarmos uma senha para proteção de um determinado projeto em VB? Desde já agradeço,
  10. Amigos, Aonde posso estar errando neste código: " insert into Periódicas " & _ (onde_1, onde_2, onde_3, o que, como, periodicid, tipo, equipe_1, equipe_2, equipe_3, hh_t, tempo, data_ref) " & _ values ( ' " & combo1.text & " ' , ' " & combo2.text & " ' , ' " & combo3.text & " ' , ' " & text2.text & " ' , ' " &_ text3.text & " ' , ' " & combo4.text & " ' , ' " & combo5.text & " ' , ' " & combo8.text & " ') ; " Pergunto isso, por que o VB indica que devo fechar com ")" após o onde_1. Será que é por causa do underline?
  11. Amigos, Onde eu posso estar errado nesta linhas de código: With Coman .ActiveConnection = BDAbaco .CommandType = adCmdText .CommandText = " select * from Segur where seguradora = " & Combo4.Text & " ; " Set Sel = .Execute End With O VB está indicando erro de sintaxe operador faltando na expressão de consulta. Desde já agradeço,
  12. Nelsonmgj

    Ajuda Em Sql

    Obrigado, Acredito que vacilei em algum momento nos espaços dentro do código, pois havia seguido exatamente este procedimento e houve erro, mesmo assim copiei exatamente o conteúdo do seu códiogo e funcionou perfeitamente. Obrigado Aimgão,
  13. Amigos, Onde estou errando para inserir um texto digitado em um textbox neste exemplo de comando: "insert into Função(função)values('Text1.Text');" Desde já agradeço a todos,
  14. Nelsonmgj

    Carregar Combo

    Amigão, Aconteceu que a partir do while deu o seguinte erro: "Expected: end of statement". Se puder me ajudar, agradeço.
  15. Amigos, Estou com dificuldades para carregar uma combo num form :( . Estou usando o seguinte código: Private Sub Form_Load() Dim cnnComan As New ADODB.Command Dim sel As New ADODB.Recordset Dim vCod As Long Dim i As Integer With F1_Cad_Titu .Height = 1620 .Width = 4950 End With Combo_Titu Cmb_Titu Cmb_Titu.ListIndex = -1 With cnnComan .ActiveConnection = BDbanc .CommandType = adCmdText .CommandText = "select * from Cons_Titu" Set sel = .Execute End With With sel If .EOF And .BOF Then vCod = !Cód_Titu With Cmb_Titu .ListIndex = -1 For i = 0 To (.ListCount - 1) If Cmb_Titu = .ItemData(i) Then .ListIndex = i Exit For End If Next i End With End If End With End Sub Poderiam me indicar onde está o erro, pois o form está carregando com duas linhas escrito FALSE :o . Desde já agradeço, :)
  16. Nelsonmgj

    Método Additem

    Amigos, Como poderia estar utilizando o AddItem, para visualizar os dados de uma coluna de um banco de dados construído via Visual Data Manager numa combo, e em outra combo, além de visualizar eu gostaria de estar adicionando dados também. Pois estou fazendo algo semelhante a isso: Set Banc = OpenDatabase("I:\Projetos\Projeto DRZ\DRZ_VB\Ábaco.mdb") Set Tabel1 = Banc.OpenRecordset("Con_Trab", dbOpenSnapshot) Set Tabel2 = Banc.OpenRecordset("EPI", dbOpenSnapshot) Combo1.AddItem Tabel1!Condi Combo2.AddItem Tabel2!EPI Nos dois casos a combo só exibe uma única linha, mas foram inseridos vários itens no banco de dados. As apostilas que aparecem na Net são muito superficiais em relação a trabalhar com banco de dados. Desde já agradeço,
  17. Nelsonmgj

    Bibliotecas

    Amigão, De qualquer forma agora o VB está indicando que o arquivo não podia ser carregado. Você poderia me ajudar agora?
  18. Nelsonmgj

    Bibliotecas

    OBRIGADO AMIGÃO!!!! ISSO MESMO, VALEU!!!!
  19. Nelsonmgj

    Bibliotecas

    Amigão, O arquivo está lá, tenho perfil de administrador e o problema acontece. Será que ainda há algum recurso? Desde já agradeço
  20. Nelsonmgj

    Bibliotecas

    Obrigado Amigo, Mas houve o seguinte problema: Falha em LoadLibrary("C:\Arquivos") - Não foi possível encontrar o módulo especificado.
  21. Amigos, Como faço quando, mesmo usando o assistente para referências, não encontro bibliotecas DAO? Neste caso, especificamente a Microsofot DAO 3.6 Object Library. Desde já agradeço,
  22. Nelsonmgj

    Vb 6.0

    Amigos, Instalei o VB 6.0 Pro e tive uma dúvida. Não encontrei na ToolBox os botões commondialog, toolbar, statusbar, progressbar etc. Como faço para que eles apareçam? Se não como posso acessá-los por outro caminho? Desde já agradeço,
×
×
  • Criar Novo...