Nelsonmgj

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

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

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.

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,

Obrigado amigo... Mas como gero o Package? Desde já agradeço,

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,

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,

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,

Amigos, Há condições de colocarmos uma senha para proteção de um determinado projeto em VB? Desde já agradeço,

Valeu, Obrigado.... :lol:

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?

Obrigado!

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,

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,

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,