Fabin

e aew galera blzinha??? to com a seguinte duvida.. to querendo fazer um botao onde quando o usuario clicar nele vai aparecer um inputbox para o mesmo digitar o nome a ser pesquisado e se existir o nome ou parte do nome digitado no BD ele carrega os dados na tela entenderam??? como eu faria isso??? valews abraço t+

Deu certo meu botão NOVO e SALVAR valeu Fabin... Então eu não tenho chave primária nesse BD ...será que é por isso que o excluir não funciona ? sim porque voce tem que colocar uam condiçao pra ele fazer a exclusao parecido com isso "DELETE FROM USUARIOS WHERE CodUsarios = "' & txtCodUsuario.text & "'" crie um campo CodCliente ou defina uma chave primaria depois disso você posta aqui como fez abraço t+

ah entendi voce pode fazer da seuinte maneira criar duas sub-rotinas para bloquear os campos e o botao salvar Private Sub Bloqueio() cmdSalavar.enable = false txtNomeFantasia.enable = false e assim por diante com todos os campos depis você cria a sub-Rotina para desbloquear Private Sub Desbloquear cmdSalvar.enable = true txtNomeFantasia.enable = true ... e assim por diante com os outros campos no form load você cloca assim Private Sub Form_Load() 'aqui voce vai chamar a sub rotina Bloqueio e no evento do boato novo voce coloca assim Private Sub cmdNovo_Click() Desbloqueio e no evento click do botao salvar você coloca sos comando para salvar e no final você chama a rotina para bloquear Private Sub cmdSalvar.Click() Bloqueio já sei porque seu botao excluir não ta funcionando qual é chave primaria da sua tabela gabriel??? valews abraço t+

valews pela ajuda Xistyle mas fiz de um jeito mais simples aqui declarei uma variel publica para recebr o codigo exemplo vCodInstituiçao no evento click da combom fiz isto Private Sub cboInstituiçao_Click() dim cnnComando With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT CodInst FROM Instituiçao WHERE Nome = '" & cboInstituiçao.Text & "'" Set rsSeleçao = .Execute End With If rsSeleçao.EOF Then MsgBox "Setor não Encontrado." Else vCodInstituiçao = rsSeleçao("CodInst") End If e no insert into estagiarios (CodInst) VALUES (" & vCodInstituiçao & ") ai deu tudo certo heheh valews pela ajuda brother abraçao t+

tenho um form de cadastro de estagiarios que tem 5 combobox certo?? tenho 5 forms de cadastros de instituiçao, curso, turno, chefia e setor ok? no meu form de cadastro de estagiarios coloquei as combos para listarem os itens cadastrados dos forms acima explicado, lembrando que o form de curso funciona da seguinte maneira: o usuario escolhe a instituiçao e serao acrregados os cursos somente daquela instituiçao escolhida certo? na tabela que criei para gravar os dados do form estagiarios coloquei os codigigos dos cinco forms explicado acima para fazer o relacionamento ok?? minha duvida é a seguinte como na tabela que utilizo para garvar os dados do estagiario tem os Cod dos 5 forms que expliquei como façao para salvalos na tabela de acordo coma opçao que o usuario escolheu? entendeu agora??? valews abraço t+

Bom dia Galera!! estou com a seguinte dúvida! tenho um form que de cadastro de estagiários, e neste form a 5 combobox que onde há o form para cadastro de cada item-combo e nela há o codigo para identificaçao no DB. Na tabela Estagiarios serao salvos todos os dados inclusive os da 5 combobox citado acima, ou seja essa 5 combo serão de chave estrangeira. Ta ai minha duvida No Bd é melhor Salvar com o código ou pelo nome, lembrando que meus relacionamentos estao pelo Código e que na tabela de estagiarios criei os Cod das combos para receber os valores cadastrados no form de estagiário. e como eu faço o select para identificar e salvar o codigo do item escolhido na combo?? entenderam qual seria minha duvida??? valews pela atençao galera abraço t+

o meu botao incluir aqui que seria o seu novo eu coloquei assim Private Sub cmdIncluir_Click() dado = InputBox("Digite Seu Nome Completo") txtNome.Text = dado txtCPF.SetFocus txtNasc.Text = Empty txtCPF.Text = Empty txtEndereço.Text = Empty txtCidade.Text = Empty txtUF.Text = Empty txtTelefone.Text = Empty txtEmail.Text = Empty End Sub ou seja coloquei a variavel dado recebendo a inputbox para digitar o nome completo da pessoa, quando digitado o nome vai para o txtnome e o foco vai para o txtcpf logo apos isso todos os campos ficam em branco para o usuario digitar os campos e salvar, entendeu??? o excluir é a mesma coisa que voce fez para editar e salvar porem o comando irá mudar para DELETE FROM tabela WHERE.... qualquer duvida post ai abraço t+

raphael é o seguinte quando é clicado na cboCurso lista todos os cursos cadstrados ao invés de listar somente o de acordo com a faculdade escolhida.... sera que deve ser por falta da cboClear??? onde eu coloco essa cboClear?? e qual seria a cboClear??cboInstituiçao.clear ou cboCurso.clear?? vou mandar o codigo pra voce da uma olhada isso cboClear = nomeCombo.Clear você vai colocar onde está indicado no post anterior Private Sub cboInstituiçao_Click() Dim cnnComando As New ADODB.Command Dim codInst As Integer cboCurso.clear ' <------- limpa a combo antes de preencher With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT * FROM Instituiçao WHERE Nome = '" & cboInstituiçao.Text & "'" Set rsSeleçao = .Execute End With codInst = rsSeleçao("codInst") If rsSeleçao.Status = 1 Then rsSeleçao.Close With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT NomeCurso FROM Curso WHERE CodInst = codInst" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!NomeCurso) Then cboCurso.AddItem rsSeleçao!NomeCurso End If rsSeleçao.MoveNext Loop End With End Sub Private Sub Form_Load() Preenche_Combo_chefia Preenche_combo_turno Preenche_combo_instituiçao End Sub Private Sub Preenche_combo_turno() Dim cnnComando As New ADODB.Command With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT Turno FROM Turno" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!Turno) Then cboTurno.AddItem rsSeleçao!Turno End If rsSeleçao.MoveNext Loop End With End Sub Private Sub Preenche_combo_instituiçao() Dim cnnComando As New ADODB.Command cboInstituicao.clear ' <------- limpa a combo antes de preencher With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT Nome FROM Instituiçao" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!Nome) Then cboInstituiçao.AddItem rsSeleçao!Nome End If rsSeleçao.MoveNext Loop End With End Sub a certo agora sim não ta tendo duplicaçao an combo do curso não mas ta tendo o seguiinte problema ta listando todas a sfaculdades cadstradas e não por instituiçao escolhida ou seja na a hoar q escolhe a instituiçao todos oos cursos são listados e eu estava qrenndo que fosse listado somente o curso que foi cadstrado especifico para a instituiçao e o que pode esta ocorrendo abraço t+ raphael é o seguinte quando é clicado na cboCurso lista todos os cursos cadstrados ao invés de listar somente o de acordo com a faculdade escolhida.... sera que deve ser por falta da cboClear??? onde eu coloco essa cboClear?? e qual seria a cboClear??cboInstituiçao.clear ou cboCurso.clear?? vou mandar o codigo pra voce da uma olhada isso cboClear = nomeCombo.Clear você vai colocar onde está indicado no post anterior Private Sub cboInstituiçao_Click() Dim cnnComando As New ADODB.Command Dim codInst As Integer cboCurso.clear ' <------- limpa a combo antes de preencher With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT * FROM Instituiçao WHERE Nome = '" & cboInstituiçao.Text & "'" Set rsSeleçao = .Execute End With codInst = rsSeleçao("codInst") If rsSeleçao.Status = 1 Then rsSeleçao.Close With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT NomeCurso FROM Curso WHERE CodInst = codInst" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!NomeCurso) Then cboCurso.AddItem rsSeleçao!NomeCurso End If rsSeleçao.MoveNext Loop End With End Sub Private Sub Form_Load() Preenche_Combo_chefia Preenche_combo_turno Preenche_combo_instituiçao End Sub Private Sub Preenche_combo_turno() Dim cnnComando As New ADODB.Command With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT Turno FROM Turno" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!Turno) Then cboTurno.AddItem rsSeleçao!Turno End If rsSeleçao.MoveNext Loop End With End Sub Private Sub Preenche_combo_instituiçao() Dim cnnComando As New ADODB.Command cboInstituicao.clear ' <------- limpa a combo antes de preencher With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT Nome FROM Instituiçao" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!Nome) Then cboInstituiçao.AddItem rsSeleçao!Nome End If rsSeleçao.MoveNext Loop End With End Sub a certo agora sim não ta tendo duplicaçao an combo do curso não mas ta tendo o seguiinte problema ta listando todas a sfaculdades cadstradas e não por instituiçao escolhida ou seja na a hoar q escolhe a instituiçao todos oos cursos são listados e eu estava qrenndo que fosse listado somente o curso que foi cadstrado especifico para a instituiçao e o que pode esta ocorrendo abraço t+ opa achei o erro aqui raphael é que falatava isso aqui na linha .CommandText = "SELECT NomeCurso FROM Curso WHERE CodInst = " & codInst & "" falatava o " & .... & "" agora deucerto hehehe este tópico aqui agora vou fechar que ele ta bem extenso hehehe qualquer duvido coloco em outro tópico ou você é o cara hein raphael sabe tudo valews pela ajuda brother abraço t+

desculpa ai gabriel mas por esse codigo ai eu to aprendendo ainda entaum não sei como te explicar o porque por isso que coloquei no modo cnnComando pois é masi facil mas post ai que os modertadores lhe darao a areposta abraço t+ Valeu brother ! mas tenta colocar rs.fields exempl rs.fields("fax") e post ai o que deu

desculpa ai gabriel mas por esse codigo ai eu to aprendendo ainda entaum não sei como te explicar o porque, mas tenta colocar rs.fields exempl rs.fields("fax") e post ai por isso que coloquei no modo cnnComando pois é masi facil mas post ai que os modertadores lhe darao a areposta abraço t+

raphael é o seguinte quando é clicado na cboCurso lista todos os cursos cadstrados ao invés de listar somente o de acordo com a faculdade escolhida.... sera que deve ser por falta da cboClear??? onde eu coloco essa cboClear?? e qual seria a cboClear??cboInstituiçao.clear ou cboCurso.clear?? vou mandar o codigo pra voce da uma olhada Private Sub cboChefia_Click() If cboChefia.Text = "" Then Exit Sub rsSeleçao.Close rsSeleçao.Open "SELECT MASP FROM Chefia WHERE Nome LIKE '" & cboChefia.Text & "';" If Not rsSeleçao.EOF Then lblMASP.Caption = rsSeleçao.Fields(0) End If Set rs1 = Nothing End Sub Private Sub Preenche_Combo_chefia() Dim cnnComando As New ADODB.Command With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT Nome FROM Chefia" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!Nome) Then cboChefia.AddItem rsSeleçao!Nome End If rsSeleçao.MoveNext Loop End With End Sub Private Sub cboInstituiçao_Click() Dim cnnComando As New ADODB.Command Dim codInst As Integer With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT * FROM Instituiçao WHERE Nome = '" & cboInstituiçao.Text & "'" Set rsSeleçao = .Execute End With codInst = rsSeleçao("codInst") If rsSeleçao.Status = 1 Then rsSeleçao.Close With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT NomeCurso FROM Curso WHERE CodInst = codInst" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!NomeCurso) Then cboCurso.AddItem rsSeleçao!NomeCurso End If rsSeleçao.MoveNext Loop End With End Sub Private Sub Form_Load() Preenche_Combo_chefia Preenche_combo_turno Preenche_combo_instituiçao End Sub Private Sub Preenche_combo_turno() Dim cnnComando As New ADODB.Command With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT Turno FROM Turno" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!Turno) Then cboTurno.AddItem rsSeleçao!Turno End If rsSeleçao.MoveNext Loop End With End Sub Private Sub Preenche_combo_instituiçao() Dim cnnComando As New ADODB.Command With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT Nome FROM Instituiçao" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!Nome) Then cboInstituiçao.AddItem rsSeleçao!Nome End If rsSeleçao.MoveNext Loop End With End Sub abraço t+

o que deu errado?? post ai?? lembrando que este botao é o de editar abraço t+

raphael eu tenho que colocar o cboCurso.clear ou cboInstiotuiçao.clear?? e onde eu devo colocar?? no final do código??? valews abraço t+

você falou que não funcionou no change então coloca no Click, não esquece de colocar o combo.Clear e é no cboInst_click ta ok raphael mas é o seguinte coloquei o codigo porem esta dando o erro RUN-TIME ERROR 13 type mismatch na linha codInst = rsSelecao("nome") 'Aqui eu Guardo a variável para poder filtrar o que pode ser?? abraço t+

raphael então seria esse código abaixo e no evento change mesmo?? e a observaçao que eu tinha colocado sobre cboCurso.additen lembra?? é para colocar cboCurso mesmo ou cboInst??? Dim cnnComando As New ADODB.Command With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT * FROM Instituiçao where nome = '" & Combo_Inst.text & "'" 'Aqui eu pego o código da Instituição, pois na tabela do Curso é a referência que temos Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!Nome) Then cboInst.AddItem rsSeleçao!Nome End If rsSeleçao.MoveNext Loop End With[/codedepois qual seria o proximo passo?? valews brother abraço t+

a sim,, mas cade o código :rolleyes: ??? ou é somente fazer a alteração que coloquei em observaçao no tópico acima?? valews brother abraço t+ aqui raphael fiz as alteraçoes no codigo como está ai em baixo e tem que ser no evento click e não change Private Sub cboInstituiçao_Click() Dim cnnComando As New ADODB.Command With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT * FROM Instituiçao WHERE Nome = '" & cboInstituiçao.Text & "'" Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!Nome) Then cboCurso.AddItem rsSeleçao!Nome End If rsSeleçao.MoveNext Loop End With End Sub so que ao invés de listar os cursos da faculdade especifica no cboCurso lista as faculdade que coloquei no cboInstituiçao e a medida que vou torcando a instituiçao na cboInstituiçao vai adicinando a faculdade na cboCurso este select no evento click não teria que ser na tabela de curso não??? acho que sim, e como seria?? abraço t+

raphael no caso desse codigo no change vai preencher a combo curso não é isso??/ se for la no with do rsSeleçao cboInst não tinha que ser a cboCurso não?? ou tem mais uma etapa para preencher a combo do curso?? valews brotehr abraço t=

a certo... então posso fazer o preenchimento da combo instituiçao normalmente pelo form load na change dela que irei fazer a combo curso ser preenchida não é??? então é isso raphael como eu vou preenncher a combo curso?? pode desconsiderer este metodo acima para preencher a combo instituiçao já utilizei o que ue estava antes valews brother abraço t+

a ok mas tentei preencher a combo como voce tinha me explicado mas não consegui o que eu teria que fazer no código Dim controle As Integer controle = 1 If Not rsSeleçao.EOF Then Do While Not rsSeleçao.EOF cboInstituiçao.AddItem = rsSeleçao("Instituiçao") cboInstituiçao.Index = controle controle = controle + 1 Loop End If usei este código que voce tinha me passado porem ficou em branco a combo instituiçao não listou as instituiçoes cadastradas e o que faria depois?? valews raphael pela ajuda abraço t+

então raphael eu vou trabalhar somnete na change da combo insitutiçao ou vou ter que trabalhar tambem na combo do curso? valews baraço t+

raphael eu já criei uma sub-rotina para preencher a combo instituiçao no caso seria eu melhor preencher ela usando o select que voce me falou ou posso deixar a sub-rotina mesmo e fazer os outros selects que você passou?? e o change eu uso em qual como no da instituiçao ou do curso valews brotehr abraço t+

certo raphael a questao d epreencher a scombos já consegui aqui o que quero agora é o seguinte tenho uma combo que lista as instituiçoes cadstradas e a outra cursos no meu form curso como já expliquei pra voce o usuario escolhe a instituiçao na combo e cadstra o curso quer que no meu form de cadastro de usuario quando o usuario selecionar a instituiçao em uma combo liste na combo curso somente os cursos da instituiçao slecionada entendeu??? so que to quebrando a cabeça pra fazer isso... voce sabe como eu poderia fazer?? valews abraço t+

Meu banco de dados é o PostgreSQL...me passa ai cara como fazer esses botões..to precisando muito só falta eles pra terminar essa parte... poxa vida brother eu uso access mas achu que não diferencia as querrys não olha so tenho uam apostila aqui que seria muito boa para você inicar no vb nela explica muita coisa e apo´s a leitura voce vai formular estes botoes que bem explicado na apostila no site aqui tambem tem porcure pelo nome APOSTILA DE VB MUITO BOA qualquer coisa eu te passo o exemplo dos botoes ai pra voce abraço t+ Passa o exemplo dos botões ae com Access mesmo eu consigo mudar pra Postgre botao editar ou alterar, excluir Private Sub cmdEditar_Click() Dim cnnComando As New ADODB.Command On Error GoTo errAtualizaçao Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = 'aqui voce coloca o nome da sua conexao .CommandType = adCmdText .CommandText = "'Update "o nome da Tabela" SET "os campos do bd = '" & campos textbox & "' ";" .Execute End With MsgBox "Atualização Feita com Sucesso", vbExclamation + vbOKOnly + vbApplicationModal, "Atualização OK" 'rsSeleçao.Close rsSeleçao.Open "SELECT * FROM Cadastro ORDER bY CodCliente", conexao, adOpenKeyset, adLockOptimistic txtCodCliente.Text = rsSeleçao.Fields("CodCliente") txtNome.Text = rsSeleçao.Fields("Nome") txtCPF.Text = rsSeleçao.Fields("CPF") txtNasc.Text = rsSeleçao.Fields("DataNasc") txtEndereço.Text = rsSeleçao.Fields("Endereço") txtCidade.Text = rsSeleçao.Fields("Cidade") txtUF.Text = rsSeleçao.Fields("UF") txtTelefone.Text = rsSeleçao.Fields("Telefone") txtEmail.Text = rsSeleçao.Fields("Email")---> estas linhas carregam os dados cadastradaso em cada text box no seu form Saida: Screen.MousePointer = vbDefault nestas linhas é fechado o cnnComando Set cnnComando = Nothing Exit Sub errAtualizaçao: e aqui caso ocorra algum erro na atualizaçao dos dados vai para essa linha With Err If .Number <> 0 Then MsgBox "Houve um erro durante a atualização do registro.", vbExclamation + vbOKOnly + vbApplicationModal, "Erro" .Number = 0 GoTo Saida End If End With End Sub é basicamente isso qualquer duvida post ai que eu tento te esclarecer abraço t+

a opk entendi mas tem o seguinte problema raphael tenho mais de uma combo no form e no caso preencho a combo criando uma sub-rotina e carrego no form load do form como tenho 3 como eu faria para preenchelas valews abraço t+

Meu banco de dados é o PostgreSQL...me passa ai cara como fazer esses botões..to precisando muito só falta eles pra terminar essa parte... poxa vida brother eu uso access mas achu que não diferencia as querrys não olha so tenho uam apostila aqui que seria muito boa para você inicar no vb nela explica muita coisa e apo´s a leitura voce vai formular estes botoes que bem explicado na apostila no site aqui tambem tem porcure pelo nome APOSTILA DE VB MUITO BOA qualquer coisa eu te passo o exemplo dos botoes ai pra voce abraço t+