webdeveloper

Seguinte, para campos do tipo caracter, deve ser utilizado aspas simples (') antes e depois do valor, assim: Option Explicit 'Declara e instancia as variaveis Dim oCnn As New ADODB.Connection Dim oRs As New ADODB.Recordset Private Sub cboservico1_Click() 'Abre a conexao com o banco de dados oCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Marco Antonio\Desktop\Projeto odonto\odonto.mdb;Persist Security Info=False" 'Checa se o recordset esta aberto, se estiver, fecha If oRs.State = adStateOpen Then oRs.Close 'Pega o preço do serviço selecionado oRs.Open "SELECT [valor unitario b] FROM servico WHERE [servico b] = '" & cboservico1.Text & "'", oCnn 'Checa se retornou algo If Not oRs.EOF Then 'Preenche o campo texto com o valor unitario txtval1.Text = oRs.Fields.Item(0).Value End If If oRs.State = adStateOpen Then oRs.Close If oCnn.State = adStateOpen Then oCnn.Close Set oRs = Nothing Set oCnn = Nothing End Sub Testa aí.

Tenta fazer o Filter no rsCommand1.

Poste a parte do código que faz o select.

Se o nome do seu campo for mesmo 'valor unitario b' e 'servico b', tente usando colchetes ([]): Option Explicit 'Declara e instancia as variaveis Dim oCnn As New ADODB.Connection Dim oRs As New ADODB.Recordset Private Sub cboservico1_Click() 'Abre a conexao com o banco de dados oCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Marco Antonio\Desktop\Projeto odonto\odonto.mdb;Persist Security Info=False" 'Checa se o recordset esta aberto, se estiver, fecha If oRs.State = adStateOpen Then oRs.Close 'Pega o preço do serviço selecionado oRs.Open "SELECT [valor unitario b] FROM servico WHERE [servico b] = " & cboservico1.Text, oCnn 'Checa se retornou algo If Not oRs.EOF Then 'Preenche o campo texto com o valor unitario txtval1.Text = oRs.Fields.Item(0).Value End If If oRs.State = adStateOpen Then oRs.Close If oCnn.State = adStateOpen Then oCnn.Close Set oRs = Nothing Set oCnn = Nothing End Sub Primeiro - o Option Explicit serve para forçar a declaração de variáveis, assim quando você executar o projeto (CTRL+F5) se tiver alguma variável não delarada, vai gerar um erro de compilação. Segundo - Exatamente, o Option Explicit deve ser a primeira linha do código.

Consegue. Quando você cria um Command, ele tem uma aba de agrupamento, lá você seleciona os campos que quer agrupar, seu Command vai mudar de nome automaticamente, aí no DataReport você seleciona esse Command agrupado e manda bala.

Para isso faça o seguinte: No evento do Combobox, você faz um select do preço onde o código é o que esta no combo, depois mostra no campo texto, mais ou menos assim: Option Explicit 'Declara e instancia as variaveis Dim oCnn As New ADODB.Connection Dim oRs As New ADODB.Recordset Private Sub ComboBox1_Click() 'Abre a conexao com o banco de dados oCnn.Open "string de conexao com o banco" 'Checa se o recordset esta aberto, se estiver, fecha If oRs.State = adStateOpen Then oRs.Close 'Pega o preço do serviço selecionado oRs.Open "Select valor unitario From servicos Where servico = " & ComboBox1.Text, oCnn 'Checa se retornou algo If Not oRs.EOF Then 'Preenche o campo texto com o valor unitario TextBox1.Text = oRs.Fields.Item(0).Value End If If oRs.State = adStateOpen Then oRs.Close If oCnn.State = adStateOpen Then oCnn.Close Set oRs = Nothing Set oCnn = Nothing End Sub

Cara, dei uma olhada no link que me passou, mas não gosto do Dreamweaver justamente porque na minha opinião ele enche o código de 'lixo'. Explique o que gostaria de fazer, não garanto uma resposta em um tempo curto, porque estou envolvido em um projeto grande que me tomará alguns meses de trabalho.

Esse código funcionará sem problemas, troque a extensão .xml para .txt e não se esqueça que no .txt não precisa utilizar as tags do xml.

Quando se faz um Count ou Sum sem Group By não é necessário percorrer o RecordSet, pois o mesmo retornará apenas uma linha. Em relação ao erro, acredito que se alterar esta linha: If rs("TOTAL") =< 3 Then Para isso: If Clng(rs("TOTAL")) <= 3 Then Deve resolver.

Verifique o que o administrador vai querer exportar, depois procure entender como funcionam as buscas em bancos de dados, feito isso, veja como se faz uso de FSO. Dá uma buscada no forúm, tem muita coisa sobre isso já postada. Verifique o que o administrador vai querer exportar, depois procure entender como funcionam as buscas em bancos de dados, feito isso, veja como se faz uso de FSO. Dá uma buscada no forúm, tem muita coisa sobre isso já postada.

Você vai ter que executar um recordset no banco e fazer uso de FSO para gravar num arquivo .txt.

Qual o erro que está retornando? Tente verificar o que está vindo na variável 'ID'.

Cheque o que a página banco_abre_projetos.asp está executando e verifique se os campos que ela está tentando buscar existem na tabela.

Poste a estrutura da(s) tabela(s), para facilitar o entendimento.

Para ler é simples, pois o leitor faz o mesmo papel do teclado. Para gerar codigos vai depender do padrão que você quer usar.

A query acima não retorna o que você precisa???

Para tipos texto use aspas simples entre a variavel: strSQL ="SELECT clientes.* FROM clientes WHERE nome= '" & consulta & "'"

O que você passa como parametro para detalhar?

Confirme se na query está indo assim: 'roberto silva' com aspas simples.

Para mandar tente o Server.HtmlEncode e para receber tente o Server.HtmlDecode.

Como está sua quey pra buscar os tipos de contatos???

Tente alterar assim: <% ' Bilder anzeigen die im gewählten Ordner liegen bildcount = 1 E assim: <% bildcount = 1 End If Se não der certo de uma analizada no html que ele monta, veja se percebe algo errado.

Tenta colocar: <% Session.Lcid = 1046 %>

Checa no form o que tem na linha <form action...> verifica se o method é POST ou GET.

Tente assim: Set rs = createobject("adodb.recordset") Set rs.activeconnection = abredb SQL = "DELETE Pedido WHERE CdPedido = "&Request.QueryString("CdPedido")&"" set rs = abredb.execute(SQL) Response.Redirect("gerenciarPedido.asp") Não se preocupe, não vai apagar a tabela. ;)