DELPHI-Man32

kara conheço varias formas de se fechar um form, mas estando dora dele não seu se dá, porque se o form não está tomando toda a área da tela e o mouse não esta sobre o form ele não esta ativo para sua aplicação e sim em cima do desktop. talves alguém ai possa te dar uma luz d como fazer isso!

kara até da pra rodar se você tirar toda aquela configuração padrão do windows XP, tipo efeitos visuais, desabilitar alguns programas e serviços desnecessários!!! que o bicho roda sim!!! comigo é diferente!!! da uma olhadinha na minha maquina ai em baixo!!! mas fica tranquilo, sabendo instalar e configurar so com o necessário fica bom!!!

usa assim <%=UCase("Variavel")%> - Para maiúscula!!! então para minuscula deve ser!! <%=LCase("Variavel")%>

basta você passar a mesma pagina com parametros tipo assim: cadastro.asp?acao=cadastro este link passa para a pagina "cadastro.asp" o parametro "cadasto" então ele será processado pelo servidor novamente! no topo dela deverá conter uma variavel que receberá o valor do parametro passado: tipo: <% acao = request("acao") if acao = "cadastro" then %> executa o HTML do formulario <% end if %> <% if acao = "resposta" then %> executa o HTML com a resposta de cadastro <% end if %> <% if acao = "validar" then 1-abre a conexao... 2-cria o RecordSet 3-Inseri os dados no banco 4-Fecha a conexao 5-Redireciona o usuário %> o "Action" do seu formulaio deverá passar um parametro também: tipo: <form action="pagina.asp?acao=validar"> espero ter ajudado!!! talvez o pessoal + experiente possa fazer melhor ae!! ate mais

TEM COMO ENVIAR ARQUIVOS PARA UMA PASTA NO SERVIDOR SEM O USO SE COMPONENTE DE UPLOAD?

bom amigo, já vi umans funções em javascript que limitava a quantidade de caracters tipo contanto!!! mas como posso aplicar isso que você me falou! mesmo se o kara digitar mais de cem caracteres a aplicação ira gravar no banco apenas os 100 primeiros caracteres? tipo: se o campo está com o tamanho 10! e o kara digitar: notificaçao -> 11 letras no banco será gravado assim: notificaça -> 10 letras ? é isso?

ve se esse negoço funciona ae Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField; Foto:TImage; Dialog:TOpenPictureDialog); var BS:TBlobStream; MinhaImagem:TJPEGImage; Begin Dialog.InitialDir := 'c:\temp'; Dialog.Execute; if Dialog.FileName <> '' Then Begin if not (Tabela.State in [dsEdit, dsInsert]) Then Tabela.Edit; BS := TBlobStream.Create((Campo as TBlobField), BMWRITE); MinhaImagem := TJPEGImage.Create; MinhaImagem.LoadFromFile(Dialog.FileName); MinhaImagem.SaveToStream(BS); Foto.Picture.Assign(MinhaImagem); BS.Free; MinhaImagem.Free; Tabela.Post; DBISaveChanges(Tabela.Handle); End; End; procedure TForm1.Button1Click(Sender: TObject); begin Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1, OpenPictureDialog1); // TbClientes é o nome de alguma Tabela // TbClientesCli_Foto é um variavel da tabela do tipo Blob // Image1 é um componente // OpenPictureDialog1 é o componente para abrir a figura end;

posta o seu ASP ae"

só isso basta para minha pesquisa camarada!! vou teste e mando a resposta depois falowss!!! ate+v

kara estava com um problema assim e descobri, pelo menos eu acho que é a solução!!! Eu testava minhas páginas num servidor em Inglês, então minhas palavras que tinham acentos viravam uma bagunça no cliente!!! migrei para o IIS do Windows XP Pro em Português com o mesmo banco de dados e tudo ficou normal!!!

exclui o campo e coloca de novo no form, depois muda as propriedade, que tipo de campo é esse? uma dica!!! um formulario não precisa estar numa pagina asp, ele pode ficar numa html e chamar um ASP atraves do Action="pagina.asp"

kara dependendo do tamanho da imagem, seu banco de dados pode ficar instavel e pesado, então, faça o upload da foto para uma pasta e grava o nome dela no banco de dados depois chama pelo Recordset: <img src="fotos/<%=RS("foto_tal.jpg")%>" alt="Descrição da foto"> tendeu!!! faço assim e dá certo!!

kara depende do que você tiver fazendo, da grandeza de seu projeto, particularmente programo em delphi e poderia usar o access para criar o banco de dados mas pra mim, programas com banco de dados só com executável!!! rsrsrs!* mas tem a galera que programa em asp(eu também) que usam o asp com banco de dados Access por ser um produto microsoft assim como o asp!!! mas tudo depende de seus projetos é claro que para um simples banco de dados interno na sua maquina não precisa de muita coisa, mas no caso dos grandes portais de linguagens dinamicas usar o access seria como se enforcar!!!! isso para banco de dados com milhoes de registros!!! rsrsr*** DELPHI-Man32

D NADA, SE ESTA RESOLVIDO PEDE PRO PESSOA FECHAR O TIPICO!!!

bom kara você pode usar um servidor local para executar seus scripts ASP, tipo no windows 98, ME você pode usar o Personal Web Server(PWS), no 2000, XP, 2003 etc.. você pode usar o IIS(Internet Information Server)....

???? também ?????

bom pessoal, preciso fazer uma pesquisa no campo descrição numa tabela de produtos: tipo: tabela: ID | DESC | QUANT | VALOR | bom o campo decrição quero limitar em 100 caracteres? minha 1ª dívida, como fazer isso? nele pode conter um descrição enorme, então a pessoa pesquisa tipo assim: AMD mas no campo tem AMD DURON 1.3 GHZ, 128 MB RAM ETC.... como faço para retornar todos os registros que possuem na decrição a palavra AMD!!! EXEMPLO!! tenderammm???? VAGNER

COMO O NOSSO AMIGO PODE FAZER ESTA CRIPTOGRAFIA SEGERIDA ACIMA PELA "GUEST"?

na sua pagina default.asp você coloca condições para verificar qual a a acao a ser executada!! exemplo: default.asp <% acao = request("acao") %> <% if acao = "login" then %> executa as linhas que estiverem aqui!! <% end if %> <% if acao = "erro_de_login" then %> response.write("dados inválidos!") <% end if %> <% if acao = "logado" then %> response.redirect "logado.asp" <% end if %> os links deverão chamar o parametro: default.asp?acao=login default.asp?acao=erro_de_login default.asp?acao=logado

segura a tecla Shift ao inserir um CD que pode funcionar!!

kara faz um backup de seus arquivos num cd(tipo assim) format o hd e instala o Win98SE, normal basta bootar a maquina pelo cd-rom do windows 98 mesmo!! deve demorar uns 15 minutos para transfirir os arquivos!!! a instalação é rápida agora se você não sabe como fazer isso, vai ficar dificil!!

valeu acho que vou fazer tudo em flash!!! deve ficar mais legal!! valeu pena avaliação, na verdade ne tinha testado em 1024x768 valeu!!!

bom pessoal passei os codigos que postei ai em cima pro nosso amigo MARCELO e deu certo quem quiser posso mandar via emai!! COISA SIMPLES MESMO!! 15 KB, soma.zip design-vagner@bol.com.br design_vagner@hotmail.com VAGNER FRANCO PODEM FECHAR O tópico

querido amigo, fiz algumas coisinhas aqui com os dados que você colocou e deram certo!! arquivo "default.asp" com os nome dos usuarios: <% 'Cria a conecxao com o banco de dados Set Conectar = Server.CreateObject("ADODB.Connection") Conectar.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("banco.mdb") Set RS = Server.CreateObject("ADODB.Recordset") sql= "select * from pagamentos" RS.open sql, Conectar, 3,3 %> <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Informações sobre pagamentos</title> </head> <body> <p><b><font face="Verdana" size="2">Informações sobre pagamentos</font></b></p> <p><b><font face="Verdana" size="2" color="#008000">Usuários:</font></b></p> <table border="0" width="100%" id="table1"> <tr> <% while not RS.eof %> <td height="20"><b><font face="Verdana" size="1"><a href="detalhe.asp?nome=<%=RS("nome")%>"><%=RS("nome")%></a></font></b></td> </tr> <% RS.movenext wend %> </table> </body> </html> <% Conectar.close set Conectar = Nothing %> Arquivo com os detalhes de cadas usuario e total dos pagamentos "detalhe.asp" <% 'Cria a conecxao com o banco de dados Set Conectar = Server.CreateObject("ADODB.Connection") Conectar.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("banco.mdb") Dim Total, nome nome = request("nome") Set RS = Server.CreateObject("ADODB.Recordset") sql= "select * from pagamentos where nome='"&nome&"'" RS.open sql, Conectar, 3,3 Total = RS("jan") + RS("fev") + RS("mar") + RS("abr") + RS("mai") + RS("jun") + RS("jul") + RS("ago") + RS("set") + RS("out") + RS("nov") + RS("dez") Set RSTOTAL = Server.CreateObject("ADODB.Recordset") sql= "select Total from pagamentos where nome='"&nome&"'" RSTOTAL.open sql, Conectar, 3,3 RSTotal("Total") = Total RSTotal.update %> <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Resultado</title> </head> <body> <table border="1" width="98%" id="table1"> <tr> <td bgcolor="#008000"><b><font face="Verdana" size="1" color="#FFFFFF"> Nome:</font></b></td> <td width="40" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">JAN</font></b></td> <td width="40" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">FEV</font></b></td> <td width="40" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">MAR</font></b></td> <td width="40" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">ABR</font></b></td> <td width="40" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">MAI</font></b></td> <td width="40" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">JUN</font></b></td> <td width="40" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">JUL</font></b></td> <td width="40" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">AGO</font></b></td> <td width="40" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">SET</font></b></td> <td width="40" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">OUT</font></b></td> <td width="39" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">NOV</font></b></td> <td width="41" bgcolor="#008000" align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">DEZ</font></b></td> <td width="40" bgcolor="#008000"> <p align="center"><b> <font face="Verdana" size="1" color="#FFFFFF">Total:</font></b></td> </tr> <tr> <td height="20"><b><font face="Verdana" size="1"><%=RS("nome")%></font></b></td> <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("jan")%>,00</font></td> <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("fev")%>,00</font></td> <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("mar")%>,00</font></td> <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("abr")%>,00</font></td> <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("mai")%>,00</font></td> <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("jun")%>,00</font></td> <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("jul")%>,00</font></td> <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("ago")%>,00</font></td> <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("set")%>,00</font></td> <td width="40" height="20" align="center"><font face="Verdana" size="1"><%=RS("out")%>,00</font></td> <td width="39" height="20" align="center"><font face="Verdana" size="1"><%=RS("nov")%>,00</font></td> <td width="41" height="20" align="center"><font face="Verdana" size="1"><%=RS("dez")%>,00</font></td> <td width="40" height="20"><b><font face="Verdana" size="1"> <p align="center"><%=(total)%>,00</font></b></td> </tr> </table> <p align="left"><b><font face="Verdana" size="1"><a href="default.asp">Voltar</a></font></b></p> </body> </html> <% Conectar.close set Conectar = Nothing %> vou mandar os arquivos para seu email, ok!!! abraços, VAGNER

kara coloca ai o seu asp para galera da uma olhada e avaliar!!! so com isso não dá!!! HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services Tipo de erro: Microsoft JET Database Engine (0x80004005) A operação deve usar uma consulta atualizável. /rapaz/index.asp, line 71 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Página: GET /rapaz/index.asp o que tem nesta linha 71?