spilin182

então cara, na primeira combo eu fiz uma consulta em sql, com ajuda do access. Portanto na primeira combo constam apenas valores de registros já criados. O lance é utilizar o valor que o cara selecionou na primeira combo, para realizar uma nova consulta em SQL, onde o valor da primeira combo serve de condição para o "WHERE" da consulta da segunda combo.

cara, continua dando o mesmo erro... uma informação que eu não passei e possa gerar esse problema, é que estou utilizando o editor de páginas de acesso a dados do MS ACCESS 2003, e não o visual studio.net. Isso ajuda em algo? valeu...

Então, os campos estão corretos sim minha tabela é a "ID" e o campo "NE" onde ID.NE seja Igual ao meu text box "NE.value" O erro gerado pelo debug foi na linha marcada em vermelho com a seguinte info: "Linha 184: 'em vermelho "INSTRUÇÂO ESPERADA" <script language=vbscript event=onafterupdate for=NE> <!-- --> </SCRIPT> </SPAN></SCRIPT> <script language=vbscript event=onclick for=ID> <!-- Set cnn=CreateObject("ADODB.Connection") cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Data Source= C:\Documents and Settings\Lucas Ricardo\Meus documentos\Projetos\Access\Albras\cadastro de produto.mdb" cnn.Execute "SELECT DISTINCT ID.NE FROM ID WHERE (ID.NE = ('" & NE.value & "'))" response.write cnn.execute response.end <select name="ListaSuspensa1" size="1" id="ListaSuspensa1"> <option value="01" selected>SELECIONE></option> <% while not cnn.eof %> <option> </response.write cnn("ID")%> </option> <% cnn.movenext wend %> </select>

Boa tarde Rafael, valeu a força. Editei o código e ficou assim: <script language=vbscript event=onclick for=ID> <!-- Set cnn=CreateObject("ADODB.Connection") cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Data Source= C:\Documents and Settings\Lucas Ricardo\Meus documentos\Projetos\Access\Albras\cadastro de produto.mdb" cnn.Execute "SELECT DISTINCT ID.NE FROM ID WHERE '" & NE.value & "' = ID.NE" <select name="ListaSuspensa1" size="1" id="ListaSuspensa1"> <option value="01" selected>SELECIONE></option> <% while not cnn.eof %> <option> </response.write cnn("ID")%> </option> <% cnn.movenext wend %> </select> </SCRIPT> Porém os valores que aparecem não são filtrados conforme o campo '" & NE.value & "' é modificado. Ele apenas traz todo o conteúdo do campo do BD selecionado, no caso "ID.NE" Como eu poderia fazer para que a lista fosse atualizada e filtrada toda vez que a variavel "NE.Value" for modificada? grato.

Só para explicar melhor, o código gerado foi o seguinte: <script language=vbscript event=onclick for=ID> <!-- Set cnn=CreateObject("ADODB.Connection") cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Data Source= C:\Documents and Settings\Lucas Ricardo\Meus documentos\Projetos\Access\Albras\cadastro de produto.mdb" cnn.Execute "SELECT DISTINCT ID.NE FROM ID" </SCRIPT> Porém os valores não aparecem na combo....

Boa noite. Tenho uma página que acessa o conteúdo de um banco de dados. Gostaria de saber como poderia exibir o conteúdo de uma tabela em uma combobox. O código utilizado é o vbscript. Grato.

ficaria assim?: <script language=vbscript for=NE event=onafterupdate> <!-- me.combo2.requery --> </script>

entendi o que você disse, porém como farei esse comando? é SQL ou script do vb? Vlw cara, eu não uso formulários para acessar os dados , mas sim páginas(html). O comando seria o mesmo?

Possuo uma tabela onde os seguintes campos formam uma chave primária dupla: ClasseProduto e CodigoProduto. Em uma tabela de movimentação de produtos criei uma combo onde o operador seleciona inicialmente a classe do produto com a seguinte expressão: SELECT DISTINCT PRODUTOS.CLASSEPRODUTO FROM PRODUTOS; Sendo assim a combo me mostra apenas as classes de produto inseridas na tabela produtos. Minha dúvida é a seguinte: Necessito que o valor que foi digitado neste campo sirva de filtro para o próxima combo. Fiz da seguinte maneira: SELECT DISTINCT PRODUTOS.CODIGOPRODUTO FROM PRODUTOS WHERE ((([TRANSACIONAL].[CLASSEPRODUTO])=[PRODUTOS].[CLASSEPRODUTO])); Porém como o registro não foi salvo ainda, ele reconece o valor como nulo e me pede para digitar o valor manualmente. Se digito manualmente o filtro funciona, ou seja são exibidos os codigos de produtos pertencentes a classe de produtos selecionadas. Se alguém souber como faço para utilizar o valor do campo codigoprodutos do registro que ainda não foi salvo agradeço.

Gostaria de saber se é possível fazer o cálculo de data utilizando o valor padrão de um campo, para que o valor seja atualizado no registro assim que as datas forem digitadas.

Boa tarde. Tenho uma aplicação com um CLP que trabalha apenas em words.(16 bits) Eu consigo ler as variáveis do CLP em forma decima apenas, porém necessito da informação em bits. Existe alguma função no vb que converta um valor decimal para valor binário? exemplo: Leitura decimal "5" = Convertido pelo vb "101" Leitura decimal "8" = Convertido pelo vb "1000" etc... Valeu

Valeu cara, assim deu certo! Obrigado mesmo pela ajuda =)

Então, eu tentei mudar o campo "DataImporta" para Datetime para ficar mais fácil, porém ele retorna "Operador faltando na expressão "Cast(DataImporta As Date) = '" & Format(form1.text1.text, "YYYY-MM-DD") & "' Já como VarChar ele funcionou com aquele problema que eu havia mencionado por msg.

Boa tarde. Tenho um banco de dados comunicando com meu aplicativo. Necessito de uma função para apagar os registros inferiores a uma data especificada pelo usuário, porém não consigo de jeito nenhum! meu código é o seguinte: Dim Palavra, Palavra2 As String Dim cnnComando As New adodb.Command Dim Dados As New Recordset Dim Valor, Valor2 As Integer Dim Registro As Variant Dim word As String cnnGerenciamento.CursorLocation = adUseClient Palavra = "SELECT * FROM TrocasProgramadas" Set Dados = cnnGerenciamento.Execute(Palavra) Valor = Dados.RecordCount Palavra2 = "SELECT * FROM TrocasNaoProgramadas" Set Dados = cnnGerenciamento.Execute(Palavra2) Valor2 = Dados.RecordCount word = "DELETE FROM TrocasProgramadas WHERE TO_DATE(DataImporta,'dd-mm-yyyy') = " & _ form1.text1.text & " ;" With cnnComando .ActiveConnection = cnnGerenciamento .CommandType = adCmdText .CommandText = word .Execute End With A parte em vermelho é a que deveria apagar os dados a partir de tal data. Ele retorna " A instrução TO_DATE não especificada" Se alguém souber como resolver agradeço. Valeu Valeu!!