raphael_suporte

o que seria "ver"? você tem que guardar nas variáveis qtd máxima e mínima, depois que você vai guardar o valor no estoque

sim é o nome da sua combo, não está aparecendo porque não existe, fiz uma confusão aqui desculpa, deve ter a opção text

Vou por aqui a alteração, no formato que seu banco está. Private Sub cmdSalvar_Click() Dim cnnComando As New ADODB.Command dim codigo_inst as integer On Error GoTo errSalvar If txtNomeCurso.Text = Empty Then MsgBox "Favor Preencher campo Nome do Curso.", vbInformation + vbOKOnly, "Campo em Branco" else With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT codInst FROM Instituiçao where = '" & ComboBox.item & "'" Set rsSeleçao = .Execute End With if not rsSeleçao.EOF then msgBox "Instituição não encontrada" else codigo_inst = rsSelecao("codIns") ' agora que já tem o código você pode colocar no seu insert Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "INSERT INTO Curso " & _ "(NomeCurso, CodInst) VALUES ('" & txtNomeCurso.Text & "',Codigo_inst);" .Execute End With MsgBox "Gravação Concluida com Sucesso.", vbInformation + vbOKOnly, "Gravação OK" LimparTela Exit Sub Saida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit Sub errSalvar: With Err If .Number <> 0 Then MsgBox "Erro ao Gravar Registro.", vbCritical + vbOKOnly, "ERRO" .Number = 0 GoTo Saida End If End With end if end if End Sub Private Sub LimparTela() txtNomeCurso.Text = Empty End Sub Private Sub Form_Load() Preencher_combo End Sub Private Sub txtNomeCurso_LostFocus() txtNomeCurso.Text = StrConv(txtNomeCurso.Text, vbProperCase) End Sub

para você conseguir pegar o código da instituição, para que você possa passar no insert abaixo isso, já com o valor conInst, preenchido através do Select acima 1- Sim entendi, mas mesmo assim eu vai ter a possibilidade de ter o curso cadastrado mais de uma vez na mesma instituição. Só vai alterar o código do Curso 2 - sim, tem como aparecer, basta você criar o campo e passar esse valor no parametro do insert, como foi feito no codigo que passei anteriormente... só lembrando que desta forma você não está visualizando o valor da tabela instituição através da tabela Curso, você está inserindo valores que se encontram na tabela Instituição na tabela Curso.

Fabin, pelo que vi você não irá disponibilizar um insert na tabela de instituições, só irá mexer na tabela de cursos, OK... então, o código do Curso está correto, ele é autoNumerico, ou seja, você não tem como e nem precisar inserir valores para ele, então no seu insert você terá que passar valores como nome do curso, nome da instituição e código da instituição. Isso você terá que pegar via um select antes do insert. Tipo: "Select * from instiuicao where nome = '" & comboBox.text & "'" O resultado você guarda em uma variavel e faz o insert INSERT INTO Curso " & _ "(NomeCurso,CodInst) VALUES ('" & txtNomeCurso.Text & "',Variavel_int);" Só uma pergunta você já parou para analisar que se todos colocarei o Curso, você terá nomes Duplicados e com nomes escritos de forma diferente? acho que só valeria a pena inserir um Curso caso o mesmo ainda não esteja no seu banco

você consegue acessar a rede, fora a internet? pois isso parece que ele não está autenticando, ou seja via wireless você precisa autenticar ( vis WAP ou outros, no modem ). Teste na rede interna se sua wireless está pegando um IP válido.

Fabin qual BD você está usando?? qual a chave primaria dessa tabela.. como está o código das instituições ( 1,2,3,4,5,6...) ou outro código qualquer? caso esteja em numérico o banco auto-incrementa ou você é quem tem que digitar o valor??

como está a criação do código?? está como automático ou você que associa? se for você, antes de salvar, mas no mesmo botão, faz um select e pega o valor maior, soma "1" e na hora de salvar você passa o valor do Código e o Nome do Curso.

isso seria para preencher a combo ou seja ma hora do form_load, na tela que você só terá a combo para instituições sem os cursos. Agora se você quer que uma dependa da escolha da outra para carregar apenas os cursos daquela instituição, sim o evento de preencher a segunda combo fica no Change da primeira, e no select você terá que passar o valor da combo selecionada.

na hora que for preencher a combo, você vai acessar a tabela onde está o nome das instituições, após isso você terá que ir adicionando ao item, junto com um incremento que você terá que declarar para controle, seria mais ou menos assim, eu vou usar o RS como se fosse meu Recordset. Seria algo +/- assim: Dim controle As Integer controle = 1 If Not rs.EOF Then Do While Not rs.EOF ComboBox1.AddItem = rs("INSTITUICAO") ComboBox1.Index = controle controle = controle + 1 Loop End If

bem se no Windowns ela funciona e no Linux não pode ser sir configuração ou a instalação, infelizmente eu ainda não domino muito o linux, então não sei ao certo qual a configuração tem que ser mudada, caso seja configuração, porem vou dar uma pesquisada para tentar te ajudar... um conselho que poderia te dar é tentar instalar novamente essa placa pegando o driver de outro lugar, ou até mesmo o tutorial, caso tenha seguido algum

então a tendência é só se isolar.. rsrsrs

falei que era questão de tempo para re-assumir a ponta.. agora vamos até o final para descobrir quem será o Vice... porque o Campeão já está escrito.. Rsrsrsrsrs

FLAMENGO-RJ PALMEIRAS-SP BARUERI-SP x CORITIBA-PR ATLÉTICO-PR GRÊMIO-RS x CORINTHIANS-SP FLUMINENSE-RJ VITÓRIA-BA SPORT-PE CRUZEIRO-MG BOTAFOGO-RJ

provavelmente quando você atualizou o driver você pode ter perdido alguma configuração do servidor, caso tenha anotado tudo, verifique se está igualzinho, caso não tenha, verifique com seu provedor se precisa de uma configuração especial e tanta coloca-la.

Opa... a nossa Chapolin ganhou um aliado na luta contra o SPAM.. rsrsrs Parabens Leandro, UP merecidíssimo....

Parabéns Rapaz, boa sorte aí no novo Cargo...

camarada, eu não sei, mas deve ter, como redirecionar a porta através do winconnection, e é assim que vai funcionar, sua empresa já tem um site?? se sim, você terá que por o nome do site mais uma porta ex www.seu_site.com/1234 e configurar no winconnection para toda requisição na porta 1234 ele jogar para o ip interno http://10.0.0.159/comercialnet.

cara, no banco você tem a opção de colocar ele como "autoNumber", isso faz com que o proprio ACCESS coloque o valor, a parte da caixa de mensagem eu não entendi muito bem, poderia ser um pouco mais especifico?

sim, você consegue criar isso usando um arquivo .bat no windows ou um script shell se estiver no linux, se esse arquivo fica na maquina, você pode coloca-la na maquina uma copia do arquivo. informe aqui seu sistema operacional, pois isso não tem haver com rede...

deixei para dar graça, ganhar de ponta a ponta não tem graça

JOGO 01: SÃO PAULO-SP JOGO 02: PALMEIRAS-SP JOGO 03: BARUERI-SP x ATLÉTICO-MG JOGO 04: CORINTHIANS-SP JOGO 05: INTERNACIONAL-RS JOGO 06: FLAMENGO-RJ JOGO 07: VITÓRIA-BA x SANTO ANDRÉ-SP JOGO 08: SPORT-PE JOGO 09: CRUZEIRO-MG JOGO 10: GOIÁS-GO

mas você não conhecia.. já é algo...rsrs :P

agora só falta o "velho" do Beraldo aparecer falando que já conhece.... rsrsrs