Alberto Mota

Tente tirar os colchetes assim: =DSoma("AQ Total";"TReparação";"entidade resp="&"UnApAMAS") =DSoma("AQ Total";"TReparação";"entidade resp="&"DMT")

No evento após atualizar da sua combo coloque Me.VrUnitário = Me.CboProduto.column(2) Verifique se na sua combo, na origem da query. se o campo Preço do Produto esta na terceira coluna

Fecos, quase lá. Mostra infelizmente o último da listagem. A variavel v_id_cliente esta no fim deste desse script <% cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("dados/februmar.mdb") set conn = CreateObject("ADODB.Connection") conn.open cst Session("base") = Request.Form("txtvda") seleciona = cod sql = "select TblVendaSaidaNovo.bytParcelas2, TblVendaSaidaNovo.Vendedor, TblVendaSaidaNovo.Transportadora, TblVendaSaidaNovo.FornecedorPedido, TblTransportadoras.RegTransp, TblTransportadoras.NomeTransportadora, TblVendaSaidaNovo.ClientePedido2, tblFornecededores.códigoempresa, tblFornecededores.RazãoSocial, TblVendaSaidaNovo.lngNumContrato, TblVendaSaidaNovo.NumeroPedido2, TblVendaSaidaNovo.Condições2, TblVendaSaidaNovo.DataEmissão, TblVendaSaidaNovo.Cobrança, TblVendaSaidaNovo.ConcatenaData, TblVendaSaidaNovo.obs, TblVendaSaidaNovo.NumeroPedidoNovo as NN, TblVendaSaidaNovo.Bonificação1, TblClientes.Código2, TblClientes.ClienteNome from TblVendaSaidaNovo, TblClientes, tblFornecededores, TblTransportadoras where TblTransportadoras.RegTransp = TblVendaSaidaNovo.Transportadora And tblFornecededores.códigoempresa = TblVendaSaidaNovo.FornecedorPedido And TblVendaSaidaNovo.ClientePedido2 = TblClientes.Código2 And lngNumContrato = " + seleciona + " " set consulta = conn.execute(sql) v_id_cliente = consulta("Código2") %> E onde fica a combo coloquei assim: <select name="cliente"> <% cliente.movefirst v_aux = "" do while not cliente.eof if ( cliente("Código2") = cInt(v_id_cliente) ) then v_aux = "selected='selected'" response.write("<option value='" & cliente("Código2") & "' " & v_aux & ">" & cliente("ClienteNome") & "</option>") cliente.movenext loop cliente.Close %> </select> Obrigado pela atenção.

Fecos, adaptei mas não resolveu não aparece selecionado. Mostra todos os clientes apenas. Segue o script <% set cliente = Server.CreateObject("ADODB.Recordset") cliente.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("dados/februmar.mdb") cliente.Source = "SELECT * FROM TblClientes order by ClienteNome" cliente.CursorType = 0 cliente.CursorLocation = 2 cliente.LockType = 1 cliente.Open() cliente_numRows = 0 v_id_cliente = varcli cliente.movefirst v_aux = "" do while not cliente.eof if ( cliente("Código2") = v_id_cliente ) then v_aux = "selected='selected'" response.write("<option value='" & cliente("Código2") & "' " & v_aux & ">" & cliente("ClienteNome") & "</option>") cliente.movenext loop cliente.Close %>

Fercos, vou testar o script e depois retorno. Um abraço.

Rafael, seria ideal, mas não manjo nada de Ajax. Poderia colocar um script de exemplo? Agradeço a atenção.

Agradeço a atenção. Inicialmente ele vai digitar num form o numero do pedido: Ex: 6722 e depois submeter Vai aparecer todos os dados da venda: Data, Cliente, Transportadora, ect. E vamos supor que ele queira mudar o Cliente ArtInox que já está num input por outro cliente, ex: Ind. Macedo: Então deve existir uma combo com a relação de todos os clientes para ele escolher um novo. Posso fazer isso, mas não sei se existe algo mais prático. Imagine a tela de um sistema desktop em que o cliente atual já é mostrado numa combo. O usuário ali mesmo já altera.

Prezados colegas, criei um form para alteração de vendas. O usuário escolhe o numero da venda e filtra os dados. Vai aparecer claro, apenas 1 cliente, mas preciso que escolha um novo caso queira e isso tem que estar numa combo. Mas o que gostaria é que já no filtro viesse essa combo com o cliente já nela e caso o usuário quisesse mudar, seria ali mesmo. Já tentei de diversas formas e não consegui. Desde já obrigado.

Crie primeiro uma consulta onde estão as entradas e coloque a data e código. De o nome ex verifica. Nessa consulta deve ter um filtro para o produto atual Crie uma segunda e coloque assm: SELECT TOP 3 * FROM Verifica Essa segunda consulta é que ficará no seu subform

É no seu grupo de opção mesmo. Não é no valor pago, nem na caixa de seleção. A caixa de seleção faz parte do grupo de opção. Clique na linha que envolve suas caixas de seleções Qualquer coisa me adicione no MSN: albertomota16@gmail.com

Voce deve inserir no evento após atualizar do grupo de opções. No meu exemplo o grupo de opções chama-se Quadro7. Um abraço.

Coloque no evento após atualizar do seu grupo de opção: Private Sub Quadro7_AfterUpdate() Select Case Me.Quadro7 Case 1 Me.ValorPago = 50 Case 2 Me.ValorPago = 75 Case 3 Me.ValorPago = 25 End Select End Sub

Jhonas, obrigado. Resolveu meu problema Um abraço.

Prezados colegas, as vezes preciso criar um form em outro projeto com as mesmas caracteristicas, Gostaria de saber se tem como importar o form e sua unit, Desde já obrigado.

Jhonas, desculpa mas estou ficando maluco. Foi mal mesmo. Já havia criado um post há tempos atras e acabei me esquecendo completamente. Ele inclusive foi resolvido. já tinha a solução. Um grande abraço.

No AdoQuery coloque SELECT TblClientes.Cidade, Count(TblClientes.Nome) AS Qtde FROM TblClientes GROUP BY TblClientes.Cidade;

Jhonas, utillizo o slq server gratuito. O que preciso é na tela do Delphi fazer o restore. Não gostaria que o usuário abrisse o sql server para fazer o restore, se não houver solução tudo bem. Inclusive foi voce que me auxiliou no backup pela interface do Delphi. Ficou na medida. Queria nessa tela fazer o inverso. Como são varios a serem restaurados, gostaria de que no form ele selecionasse o que quer restaurar e dar um clique num botão, terminando o processo. Obrigado pela atenção.

É possivel sim. Procure por mysql conecctor, no google. Faça o download dele para configura-lo. No meu caso fiz uma conexão odbc para o mysql.

A extensão da backup é bak Ex: folha.bak Obrigado pela atenção

Prezados colegas, há um tempo atrás consegui aqui no forum uma rotina que faz backup de um banco de dados em sql server no Delphi 7. Funcionou redondo. Entretanto gostaria agora de restaurar o backup usando a interface do Delphi. Pesquisei e não encontrei nada que me auxiliasse. Desde já obrigado.

Flavio, a rede esta ok. O que descobri foi que o executavel ao ser aberto no w7 perdia o caminho do servidor. Constatei isso porque instalei o Delphi na estação e ao ver a fonte de dados não estava o que havia colocado. Estava em fontes de dados ODBC. E recriei o executavel com o caminho do servidor como antes nessa estação e funcionou. Não sei o porque disso. Resolvi o problema, mas acho bastante estranho. Obrigado pela sua ajuda e a do Fulvio.

Não, Flavio. A configuração do caminho é feita no AdoConnection. Onde na fonte de dados: SERVIDOR\SqlExpress E abre no servidor normal.

Isso, Fulvio. O erro surge ao abrir o sistema. Apenas faço uma cópia do executavel para as estações. E esse executavel no servidor, roda tranquilo.

Prezados colegas, instalei o sql server Express 2005 no servidor e ele roda bem. Na estação coloquei o sistema em Delphi e ao abrir ele dá o erro: "Provedor não encontrado". já fiz tudo que costumo fazer Surface, Configuration Manager, Exceções e Firewall. Todas as configurações possiveis. Ate o anti-virus desativei e a mensagem continua. Como resolvo esse problema? Desde já obrigado.

Romero, valeu mesmo pela dica. Consegui instalar até o 2008. Uma maravilha. Obrigado. Sucesso!