Vivendo&Aprendendo

cara o componente MEMO tem uma propriedade chamada LINE utiliza ela LINE 5 por exemplo vlw

cara você esta utilizando a forma mdi ou não??? vlw

O problema é que grava uma em cada linha usando dois forms, queria saber o que devo fazer no final de uma sql dessas para gravar na mesma tipow where sei la Insert into Artesanato (foto) values ('& foto&') Where ultimo registro entendeu agradeço

Ola beleza consegui fazer usando dois formularios mas tipow assim por ter dois enviar.... o cadastro vai em uma linha da tabela e a imagem vai em outra linha da tabela esse ai é o codigo para gravar o cadastro: StrGravaBebe = "Insert Into Bebe(CodigoTipo,Modelo,Marca,Valor,CodigoEstado,CodigoCidade,Obs,Login,Data) Values("&CadastroProdutoBebe&",'"&CadastroModeloBebe&"','"&CadastroMarcaBebe&"','"&CadastroValorBebe&"',"&CadastroEstadoBebe&",'"&CadastroCidadeBebe&"','"&CadastroObsBebe&"','"&CadastroLoginBebe&"','"&CadastroDataBebe&"')" e esse é o codigo para gravar o nome da foto Conexao.Execute("INSERT INTO bebe (foto) VALUES ('" & foto & "')") tipow assim o que eu podeiria acrescetar no final disso. para gravar no mesmo??????? bom final de semana abraços

O valeu mas então quer dizer que terei que clicar em um botao enviar para armazer os dados de cadastro.. e um botao enviar para armazenar a foto???????? vixiiiiiiiii abraços gostaria de algo bem concreto

ok entendi o que estava acontecendo mas me explique como farei o codigo acima então???????? fiz o de cadastro normal e tem o do upload mas qt coloco no mesmo arquivo da erro? abraços

Darck0 Fiz o seguinte : Antes eu colocava Upload.Save ("fotos") agora fiz assim Upload.Save Server.MapPath ("fotos") MAs duvida agora e que quando juntei com os outros cadastros da erro, vejam todo o codigo abaixo...e o erro que da. <% Dim CadastroTipoArtesanato, CadastroModeloArtesanato, CadastroValorArtesanato, CadastroEstadoArtesanato, CadastroCidadeArtesanato, CadastroObsArtesanato, CadastroLoginArtesanato, CadastroDataArtesanato Dim ObjGravaArtesanato, StrGravaArtesanato, RsGravaArtesanato, RsMostraTipoArtesanato, StrMostraTipoArtesanato, RsMostraEstadoArtesanato, StrMostraEstadoArtesanato CadastroTipoArtesanato = Request.Form("TipoArtesanato") CadastroModeloArtesanato = Request.Form("Modelo") CadastroValorArtesanato = Trim(Replace(Request.form("Valor"),",",".")) CadastroEstadoArtesanato = Request.form("Uf") CadastroCidadeArtesanato = Request.form("Cidade") CadastroObsArtesanato= Request.form("Observacao") CadastroLoginArtesanato = Session("Login") CadastroDataArtesanato = Date Set ObjGravaArtesanato = Server.CreateObject("ADODB.Connection") ObjGravaArtesanato.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("dados/DADOS.MDB") StrMostraTipoArtesanato = "Select * From Produtos,TipoProdutos Where TipoProdutos.Codigo=Produtos.CodigoTipoProduto and CodigoTipoProduto=4" Set RsMostraTipoArtesanato = ObjGravaArtesanato.Execute(StrMostraTipoArtesanato) StrMostraEstadoArtesanato = "Select * From Estados" Set RsMostraEstadoArtesanato = ObjGravaArtesanato.Execute(StrMostraEstadoArtesanato) if CadastroModeloArtesanato <> "" then StrGravaArtesanato = "Insert Into Artesanato(CodigoTipo,Modelo,Valor,CodigoEstado,CodigoCidade,Obs,Login,Data) Values("&CadastroTipoArtesanato&",'"&CadastroModeloArtesanato&"','"&CadastroValorArtesanato&"',"&CadastroEstadoArtesanato&",'"&CadastroCidadeArtesanato&"','"&CadastroObsArtesanato&"','"&CadastroLoginArtesanato&"','"&CadastroDataArtesanato&"')" Set RsGravaArtesanato = ObjGravaArtesanato.Execute(StrGravaArtesanato) session("cadastroArtesanato") = "Cadastro Realizado com sucesso" Set RsGravaArtesanato = Nothing Set RsGravaArtesanato = Nothing end if <% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("dados/DADOS.MDB") SET UPLOAD = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Upload.Save Server.MapPath ("fotos") For Each File in Upload.Files foto = File.FileName Next SET RS = Server.CreateObject("AdoDB.RecordSet") Conexao.Execute("INSERT INTO Artesanato (foto) VALUES ('" & foto & "')") SET RS = Nothing For Each File in Upload.Files If File.ImageType = "UNKNOWN" Then response.write "não é uma imagem valida" End If Next %> <form method="post" action="Manutencao_Artesanato.asp?op=CadastroArtesanato" name="formulario" id="formulario" onSubmit="return ValidaFormulario();" enctype="multipart/form-data"> eu fiz assim, como seria a maneira que você me disse???? bom fazendo assim, da o seguinte erro: Persits.Upload.1 error '800a003d' Wrong Content-Type. Make sure you have included the attribute ENCTYPE="multipart/form-data" in your form. /site/Cad_Artesanato.asp, line 61 Abraços Os meu dados para cadastros são: Tipo Artesanato ............ Modelo ............. Valor ............. Estado.............. Cidade............. Obs............ Foto .............aki escolho a foto aguardo Abraços

Ola pessoal mechi mechi até conseguir está fazendo o upload, oba até que enfim rsrs bom mas agora a dúvida é o seguinte... tenho um cadastro de artesanatos por exemplo, onde eu faço todo cadastro e junto terá a opcao de buscar uma foto.. O codigo do upload pode ficar no mesmo arquivo .ASP que o outro cadastro... tipo primeiro o codigo para cadastro e depois o codigo do upload? estou fazendo assim e não grava nada rsrs espero uma resposta Agradeço Boa noite

Bom dia meus amigos isso já esta dando um livro mas eu agradeço pela compreenção de vocês... é o seguinte já tentei colocar / ou \ no final não deu certo... é o seguinte o erro esta dando na linha 13, onde eu salvo na pasta Upload.Save "a" por exemplo, os codigo de upload estao em uma pasta chamada de teste, ai chamo eles, e dentro tem essa pasta ( a ) para salvar os arquivos.... Vou postar o codigo abaixo: <% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("bancodedados.MDB") SET UPLOAD = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Upload.Save "a" -------------->aki indica o erro. For Each File in Upload.Files foto = File.FileName Next SET RS = Server.CreateObject("AdoDB.RecordSet") Conexao.Execute("INSERT INTO noticias (foto) VALUES ('" & foto & "')") SET RS = Nothing For Each File in Upload.Files If File.ImageType = "UNKNOWN" Then response.write "não é uma imagem valida" End If Next %> Bom se quiserem ver online entre no: www.ofertaeprocura.inf.br/teste/TesteUpload.asp Obrigado abraços eum ótimo dia

oi

ok valeu pela dica Heim alguém pode me dizer que erro e esse que aparece no browser ele apareceu quando quando eu chamei o upload mas sempre aparece ne??? HTTP 500 - erro interno do servidor Internet Explorer esse e o erro Flows

O valeu pela dica bom o componente que baixei você sabem qual é né????? Bom, eu não consegui serial, portanto digitei tudo 1111111111 e passou ele é free por 30 dias... heim alguém tem o serial para me fornecer???? valeussssss Abraços

Ola pessoal Bom com base nas dicas do DackAle montei meu upload bom esta dando erro na hora que vou armazernar em uma determinada pasta, no local onde indico a pasta Upload.Save "c:/upload" aparece a seguinte mensagem: Tipo de erro: Persits.Upload.1 (0x800A003F) Invalid registration key. /ENDERECO.asp, line 13 já inverti essa barra e tals, mas o erro não some... o codigo todo segue abaixo: <% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("s/bancodedados.MDB") SET UPLOAD = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Upload.Save "c:/upload" For Each File in Upload.Files foto = File.FileName Next SET RS = Server.CreateObject("AdoDB.RecordSet") Conexao.Execute("INSERT INTO noticias (foto) VALUES ('" & foto & "')") SET RS = Nothing For Each File in Upload.Files If File.ImageType = "UNKNOWN" Then response.write "não é uma imagem valida" End If Next %> Se puderem me ajudar ficaraei muito feliz t+++ abraços

ola Crystian porque esses links que você colocou aki não estao funcionando???? Bom dia a vc Abrs

Pessoal bom dia Pessoal por favor me passa o script para abrir o popup quando o usuario for abrir o browse.. por exemplo digita: www.scriptbrasil.com.br daí abre o popup com a propaganda fico aguardando Alesandro

Ola bom dia DArk fiz a busca e econtrei alguns codigos obrigado... mas cara eu já tinha baixado varios outros e ainda não tinha conseguido.. dackAle tambem estou esperando você postar.. obrigadoo pessoal baixei um componente ASPUPLOAD Free por trinta dias, mas o foda q o manual e todo em ingles aguardo flws

Bom pessoal o servidor aceita o seguinte componente: ASP UPLOAD, o meu servidor é o IFXNETWORKS Bom mas para fazer sem comonente é mais dificil??????? Bom me perdoe por ter colocado para o DackAle, fiz isso porque vi q ele conseguiu fazer entende, e já tem um tempão que venho insistindo nesse tal de UPLOAD, já tem mais de mes, e não consigo sair do lugar... Bom já passei o nome do componente se alguém poder me ajudar ficarei grato, ou ate mesmo sem o componente se possivel. Só lembrando que quero o seguinte: Quando fazer o upload, precisa jogar em uma pasta específica no servidor e gravar o caminho no bd entende??????????? porque na hora q o usuario for fazer uma busca, o sistema possa trazer os dados do produto buscado juntamente com a foto... Conforme feito no cadastro.. muito obrigado Se alguém poder me ajudar, vai resolver o problema de muita gente, porque tipow assim, já vi que isso é uma enorme dúvida da galera.. e gosto desse site, porque aki são resolvidos os problemas abraços

Meu amigo boa tarde cara vi que você postou ai para tras que conseguiiu fazer o upload.. Estou tentanto fazer isso já faz um tempao e não consigo, será que você podia me ajudar????????? ficarei muito grato.. me fornece o codigo se possivel????????? urgente Obrigado

Meu amigo Dark não consegui encontrar isso nas funçoes pode me levar pra la?? obrigado

Ola não consegui encontrar nada a respeito.. espero Obrigado abs

comentar sobre UPLOAD acho que é a maior dúvida do pessoal obrigado

por favor falar sobre UPLOAD ABRS

Meu amigo, preciso disso também, só que não tenho nem ideia e preciso fazer isso com a maior urgencia, igual o que você fez hoje, que verifica extensao de arquivo , tamanho de arquivo e tals... não tem como eu fazer sem componente.. cara me ajuda

Pessoal alguém poderia me ajudar a formatar esses edit's me passar os scripts para formatar: CEP, CPF, RG, CNPJ, MOEDA, DATA, Hora Por exemplo o campo data quero digitar por exemplo: 12,50 e não da certo so aceita os primeiros dígitos Socorro por favor.. obrigado abrs

Pessoal alguém poderia me passar esse codigo. principalmente a formatacao do campo onde vai ter moeda porque exemplo coloquei la mas se eu digitar 12,01 po exemplo como faço para formatar esse edit???????? obrigado