kuroi

acho q é assim: x = Cstr(1000) reponse.write FormatNumber(x,0)[/code] sendo q o 0 no formatnumber é o numero de casas decimais. exemplo se vc quiser 1.000,00 faca: [code]x = Cstr(1000) reponse.write FormatNumber(x,2)

você pode fazer assim: if estoque = "" then response.write "<center><font face=verdana size=2><b>O Campo Estoque não pode ficar vazio.<br>Se não há peças em estoque, favor colocar o numero 0.<br><br><a href=java script:history.back()>Voltar</a>" elseif not isnumeric(estoque) Then response.write "<center><font face=verdana size=2><b>O Campo Estoque tem que ser numérico.<br><br><a href=java script:history.back()>Voltar</a>" else '''--- continua o código ---- end if[/code] outra coisa, se estoque é numerico vc tem q gravar sem ' desse jeito: [code]sql = "UPDATE prod SET Expedicao='"&expedicao&"', Estoque="&estoque&" where Codigodesenho='"&ficha1&"' "

você so tem q saber quais são os arquivos dll e ocx q o seu programa usa pra por junto com o instalador. um jeito facil é usar o package e deployment do visual studio q ele já copie todos os arquivos certinho. assim você já sabe quais são e pode por junto com o instalador.

talvez tenha algum componente q você deva adicionar q faz isso. no vb 6 não sei, mas no 2005 sei q da pra por isso bem facil.

Select TipoLancamento, Sum(ValorLancamento) as Soma from Tabela Group By TipoLancamento se você quiser, por exemplo, selecionar entradas e saídas por filial, é so inclui-lo no select e no group by: Select LojaFilial, TipoLancamento, Sum(ValorLancamento) as Soma from Tabela Group By LojaFilial, TipoLancamento

não entendi. o codigo seria o q o alex passou, so q substituindo os nome de variaveis e campos pelos nomes q você ta usando: Sql = "Select Codigodesenho from prod where Codigodesenho = " varDesenho set rs = conexao.execute(sql) if not rs.eof then response.write "O Código desejado ja existe!" response.end else Conn.Execute "insert into prod ---- E assim vai!!!! end if[/code]

na verdade precisava sim. so q em vez de login, você tem q por o nome do campo q não pode ser duplicado. tipo, se o campo for Codigodesenho, faca assim: Sql = "Select Codigodesenho from prod where Codigodesenho = " varDesenhoonde varDesenho corresponde à variavel q guarda o codigo q o cara ta tentando incluir

vocês costumam assinar algum tipo de contrato, mesmo sendo (vc, não o cliente) pessoa fisica?

já achei varias ocx no google. se você souber, digite o nome inteiro do arquivo no campo de busca.

veja se funciona: Sql = "Select * from tbAgenda where Data < '" & Format(Date, "YYYY-MM-DD") & "' and StatusItem <> 'Realizado'" se não funcionar tente executar essa consulta no Query Analyzer do SQL para ver o q ele seleciona e tentar solucionar o problema.

acho q assim: Select * from Tabela Where Data = Date()

legal cara, não sabia pra q servia esse underlay, vai ser bem util.

procura no forum q já apareceu isso antes. ou olha em www.connectionstrings.com

o q você quer é isso? select imprimir_esquerda.titulacao from imprimir_esquerda UNION ALL select imprimir_direita.titulacao from imprimir_direita[/code]

porque na lista de membros ativos no index do forum sempre tem um usuario chamado Google.com e não consigo ver o perfil dele? e ele nem aparece na lista de membros?

veja: http://scriptbrasil.com.br/forum/index.php?showtopic=73040

não sei de onde você pegou, isso mas deve ser um tipo de exemplo, pois pra funcionar você teria q fazer assim: bus=replace(bus, "á", "a") bus=replace(bus, "à", "a") bus=replace(bus, "ã", "a") bus=replace(bus, "â", "a") bus=replace(bus, "ä", "a") bus=replace(bus, "A", "a") bus=replace(bus, "é", "e")[/code] e assim por diante. veja tb q a letra com virgula vem antes da sem virgula na funcao replace. porque a primeiro é a string q deve ser substituida e a segunda é a q vai entrar no lugar.

pra na ter problemas com formato de data, faca assim: "select * From tabprogramacao WHERE data between date() And dateadd('d', 5, date()) Order By Data"

tem certeza q tem no seu banco registros com data entre hoje e o dia 11?

pode fazer assim: "select * From tabprogramacao WHERE data between #"&date()&"# And #" & dateadd("d", 5, date()) & "# Order By Data"

o q eu faco sempre, é um instalador pelo Package e Deployment, so pra q ele copie todas as dlls e ocx para uma pasta separada, assim eu sei qual os arquivos q a aplicacao usa, assim não corro o risco de esquecer algum arquivo ou por um arquivo errado por engano. depois eu uso o istool para fazer o instalador adicionando as dlls corretas. esse problema de dar erro em versoes antigas do windows sempre existiu e sempre vai existir. o q eu costumo fazer nesses casos é procurar dll por dll e baixar da internet. mas com o inno setup acho q nunca tive esse problema.

se você quiser fazer por codigo faca como disse o bicicleta. senao você pode abrir o seu banco do access, clicar com o botao direito, clicar em importar e seguir as instruções pra importar o seu txt.

em vez do instalador do visual studio, uso o Inno Setup que da bem menos problema. procure na Internet pra baixar. se você achar dificil trabalhar com ele, baixe o IsTool q é tipo um wizard para o Inno Setup.

finalmente entendi, cara. o seu problema é q a coluna da esquerda deveria aparecer em todas as paginas, certo? isso q é o foda, porque a proxima pagina vai ser a mesma seção (Details) da anterior, por isso não vai repetir. então... isso q c quer fazer é foda. e pra dizer a verdade, a não ser q você saiba exatamente a quantidade de linhas q vai ter em cada pagina (e q seja sempre o mesmo), eu diria q é impossivel fazer o q você quer. o melhor caminho acredito é parecido com o q eu já te disse. sem usar subreports, faca um campo formula, baseado no RecordNumber, pra alterar o texto. exemplo (em Basic Syntax): If RecordNumber = 1 Then Formula = "Parâmetros" ElseIf RecordNumber = 2 Then Formula = "Pontos Amostrados" ElseIf RecordNumber = 3 Then Formula = "Horário" Else Formula = "" End If [/code] isso funcionaria para a primeira pagina. da segunda em diante fica foda. vc poderia no codigo de cima, substituir o RecordNumber por um outro campo formula, q baseado no campo PageNumber, voltasse para o 1. mas acredito q seja impossivel saber quando trocar de pagina. alias se vc chegar a descobrir ou alguem q estiver lendo souber, poste ae q tb é uma coisa q sempre quis saber. agora, se, por exemplo, em cada pagina aparecessem exatamente 25 registros (linhas), vc faria o campo formula q eu mencionei assim, em Crystal Syntax: [code](RecordNumber) - ((PageNumber - 1) * 25) e, se esse campo se chamase "Pagina", a primeira formula ficaria assim:If {@Pagina} = 1 Then Formula = "Parâmetros" ElseIf {@Pagina} = 2 Then Formula = "Pontos Amostrados" ElseIf {@Pagina} = 3 Then Formula = "Horário" Else Formula = "" End If [/code] não sei se isso ajuda, mas veja o q você consegue fazer. se conseguir resolver poste ae q eu tb gostaria de saber como você fez.

foi mal, entendi q era rede local. tente fazer uma busca no forum q acho q já saiu algum tópico sobre isso.