DELPHI-Man32

http://www.produtoscampobelo.com.br/tabela.jpg era só trocar o htm po jpg no fim do link!

esses bancos possuem alguma relação entre tabelas ou apenas quer mostrar os dados?

você não deve ter permissõs de escrita na pasta onde quer mandar o arquivo. já usei este mesmo script, mas modifiquei de acordo com minhas necessidades. os diretorios, alterar o nome do arquivo de letras para números: de: foto.jpg para: 012541445.jpg assim evitasse fotos com nomes iguais. funcionou legal local e no host na web. Apenas ttive que alterar as permissoes da pasta.

viu o que te falei? <a href="java script:estudos('mostra.asp?ID=<%=dados("id")%>')"> passar o parâmetro no link que chama a pagina! eu acho mais interessante ordenar a lista pelo Nome Asc e paginar os resultados. ok.

bom assim sendo deve lhe fazer outras perguntas. voce sabe programar em ASP e quer uma ajuda para terminar ou quer que alguém faça? você deve saber que o fórum é para sanar duvidas e discussoes, não para cursos ou entregar códigos prontos, você tem que meter a mao na massa pra galera te ajudar, eu to ai.

ME PARECE que O ERRO é porque não há VALOR NA VARIAVEL. MANDA O COD PRA MIM OU ME ADD NO MSN peguei seu link lá java script:abrePag('mostra.asp','1966','jMostra','scroll=no,tollbars=no,top=1,left=1,location=yes') está vendo: você tem que fazer assim java script:abrePag('mostra.asp?usu=1966','1966','jMostra','scroll=no,tollbars=no,top=1,left=1,location=yes') para fazer isso: java script:abrePag('mostra.asp<%=RS("id")%>','<%=RS("id")%>','jMostra','scroll=no,tollbars=no,top=1,left=1,location=yes') mf_vagner@já sabe....

se você tem acesso direto ao servidor edita as permissões, caso contrário você deve ter o dados da administração do domínio que deve usar o Plesk. então entra no Plesk e depois entra na pasta que normalmente é "httpdocs" e procura o arquivo e edita as permissões clicando num cadeado que fica na frente do arquivo. ai você define as permissões para o arquivo. se você não tem esses dados, seolicite junto ao administrador do host ou responsável. e para não apagar todos os nomes iguais apaga pela chave primaria, e o código: (DELETE FROM TABELA WHERE NOME = "ADL" AND ID =1) codExclui= cstr(trim(request.QueryString("nome1")) se não me engano, está 'cstr' convertendo para string. 'trim' tá eliminandos os espaços da variável 'nome1'. se estiver errado please! corrijam.

bom num fórum julga-se que todos os "frequentadores" saibam um pouco do que tem dúvidas e os que não sabem pedem referencias de onde aprender! e você o que sabe? quer diz que quer aprender, e eu tenho certeza que ninguém aqui terá tempo para ensinar "asp" ou qualquer outra linguagem. Desculpe a forma ("direta"), mas aqui é para sanar dúvidas, você pelo menos já deve ter algo pronto ou está tentando usar algo pronto. então? sejá mais claro! existem centenas de tópicos ensinando desde: conceitos até sistemas complexos. http://scriptbrasil.com.br/forum/index.php...=Search&f=2 use a busca para iniciar. eu estou pronto a ajudar quanto as dúvidas ou problemas nocódigo Fonte.

kara sua duvida está meio maluca! você quer mandar o cara para uma pagina contendo os dados dele? se for isso, você terá que fazer uma pagina pegando no banco os dados do cliente e mostrar atraves de uma consulta usando a primary key da tabela passando isso num parâmetro. implementando o código do amigo. response.redirect "administracao.asp?id="& Variavel_com_o_id na pagina administracao.asp montada para mostrar os dados você pega o valor passado no link "id" e faz um select no banco para pegar os dados. ou seja, uma pagina "administracao.asp" servirá para mostrar os dados dos clientes. se foi isso, só implementar.

dei uma olhada rápida e me parece que no link você não tá passando o parametro "usu" que está no mostra.asp. <p><a href="java script:abrePag('mostra.asp','<% = Dados("id") tenta assim: <p><a href="java script:abrePag('mostra.asp?usu=<%=Dados("id")%>','<% = Dados("id") o arquivo mostra tem uma variavel que não recebe um valor (id) então sua consulta recebe "null" muda e veja se dar certo.

você já está sando algum script? se está, posta para vermos e quem sabe aprveita-lo e colocar o lance para funcionar. acho que uns selects com RND e umas variáveis e alguns parametros e deve funcionar.

begin With QryIncremento do begin close; SQL.Clear; SQL.Add('Select MAX(ID_CON) from CONSULTAS'); open; end; Novo := QryIncremento.Fields[0].AsInteger + 1; DMBanco.TBConsultas.Append; edCOD.Text := IntToStr(Novo); ... end; eu to fazendo um sistema e usando incremento manual! mas com um detalhe, apenas o servidor poderá cadastrar. os clientes apenas consultas e alteração. quanto ao erro, estou usando INTERBASE 6 e ele tava gerando este mesmo erro quando eu criava a tabela com o nome dos campos em minúsculo. isso mm. tive qur criar as tabelas todas em maiúsculas. testei duas vezes para ter certeza do erro e era isso. quando fazia uma consulta retorna "Tabela desconhecida" e erros de colunas também semelhante a esse ai do amigo. CREATE TABLE "AGENDAS" ( "ID_AGE" INTEGER NOT NULL, "DATA" DATE NOT NULL, "HORA" TIME, "STATUS" CHAR(1) CHARACTER SET ISO8859_1, "IMAGE" BLOB SUB_TYPE 0 SEGMENT SIZE 1, CONSTRAINT "PK_AGENDAS" PRIMARY KEY ("ID_AGE") ); CRIANDO A TABELA ASSIM DA CERTO SE EU COLOCAR EM MINÚSCULO GERA O ERRO*. *OBS: A TABEL A CRIADA NORMALMENTE, MAS NO DELPHI A QUERY APRESENTA O ERRO.

ok!

acho que você deverá criarduas conexoes no arquivo e depois fechá-las não terá problemas... tipo: Usando JET Set Conexao1 = Server.CreateObject("ADODB.Connection") Conexao1.open "PROVIDER=Microsoft.JET.OLEDB.4.0; Data Source ="& Server.MapPath("Banco1.mdb") ... Set RS1 = Conexao1.Execute("select * from tabela") .... Set Conexao2 = Server.CreateObject("ADODB.Connection") Conexao2.open "PROVIDER=Microsoft.JET.OLEDB.4.0; Data Source ="& Server.MapPath("Banco2.mdb") ... Set RS2 = Conexao2.Execute("select * from tabela") .... Conexao1.close Conexao2.close Set Conexao1 = Nothing Set Conexao1 = Nothing Set RS1 = Nothing Set RS2 = Nothing eu acho que assim deve funcionar legal, você só não deve esquecer de fechar as conexoes e liberar os objetos para não comprometer a performace do server.

kro amigo! formatfloat('00000',codigo); para esse questão, você pode usar a propriedade: DisplayFormat, assim você enxuga seu código, com certeza terá algumas linhas a menos de preocupação. Basta colocar a quantidade de dígitos e o Delphi faz o resto. Pelo menos uso assim nos campos "id" das minhas tabelas. Logo, o código 1 será mostrado assim: 00001. para a 2ª, crei que só criando uma função, que para ser sincero, nem sei por onde começar!

cara amigo Micheus, foi a primeira coisa que pensei quando usei o max! porque estou analisando a possibilidade de colocar o sistema em rede para multiplos usuários! Eu seja! pode ocorrer de mais de uma pessoa gerar a agenda! dai a necessidade de pegar o maximo valor da tabela. mais valeu pela atenção! qualquer coisa posto de novo! abraços amigo

bom, consegui o que eu queria, como havia falado Micheus, usei uma query para incrementar. está i o cod para quem quiser usar ou melhorar. procedure Tfrm_geraagendas.bt_gerarClick(Sender: TObject); var HoraAgenda, IntervTempo : TDateTime; QtdHorarios, max, conta : Integer; begin DMBanco.TBAgendas.Active := True; HoraAgenda := StrToTime(Agora.Text); QtdHorarios := StrToInt(QdtHorario.Text); IntervTempo := StrToTime(Intervalo.Text); with QryIncremento do begin close; open; max := QryIncremento.Fields[0].AsInteger; conta := max + 1; while QtdHorarios > 0 do begin DMBanco.TBAgendas.Append; DMBanco.TBAgendasID_AGE.Value := conta; DMBanco.TBAgendasDATA.Value := StrToDate(Hoje.Text); DMBanco.TBAgendasHORA.Value := TimeToStr(HoraAgenda); DMBanco.TBAgendasSTATUS.Value := 'L'; DMBanco.TBAgendas.Post; HoraAgenda := HoraAgenda + IntervTempo; Dec(QtdHorarios); conta := conta + 1; end; end; end; desse meu jeito agora, não acontece mais o erro citado entes "outra coisa, o primeiro registro da tabela ficou com o maior hora gerada: 15:45 e o ultimo registro ficou com a hora inicial: 08:00" abraços

procedure Tfrm_geraagendas.bt_gerarClick(Sender: TObject); var HoraAgenda, IntervTempo : TDateTime; QtdHorarios :Integer; begin DMBanco.TBAgendas.Active := True; HoraAgenda := StrToTime(Agora.Text); QtdHorarios := StrToInt(QdtHorario.Text); IntervTempo := StrToTime(Intervalo.Text); while QtdHorarios > 0 do begin DMBanco.TBAgendas.Append; DMBanco.TBAgendasID_AGE.Value := QtdHorarios; DMBanco.TBAgendasDATA.Value := StrToDate(Hoje.Text); DMBanco.TBAgendasHORA.Value := TimeToStr(HoraAgenda); DMBanco.TBAgendasSTATUS.Value := 'L'; DMBanco.TBAgendas.Post; HoraAgenda := HoraAgenda + IntervTempo; Dec(QtdHorarios); end; end; amigo, dei uma pequena mudada mas funcionou. O problema agora é com a chave primaria da tabela, já que na primeira 'gerada' o ultimo número foi '32', se mandar gerar de novo, vai repetir tudo! tenho agora eu acho que pegar o maior valor da PK e incrementar juntamente com a quantidade de horarios. tem alguma sugestão? outra coisa, o primeiro registro da tabela ficou com o maior hora gerada: 15:45 e o ultimo registro ficou com a hora inicial: 08:00 ate mais VAGNER mf_vagner@hotmail.com

tava fazendo algo parecido, mas acho que tinha algo no lugar errado no loop, estava fazendo com for e não com while. mas vou testar e depois volto,ate mais. abraço!

SALVE DELPHIANOS, OI EU AI DE VOLTA A COMUNIDADE! Bom, estou desenvolvendo um sistema de consultas médicos e queria que fosse possivel gerar uma agenda para cada dia da semema da seguinte maneira! campos da tabela AGENDAS. ID, DATA, HORA, STATUS, IMAGEM então o operador não cadastraria mas gerasse automaicamente uma agenda para uma quantidade de dias. ex. hoje é: 6/1/2007. o operador define um intervalo de minutos entre as consultas. ex. 15 minutos. então se o plantao começa às 8:00, as consultas teriam um intervalo de 15 minutos. ai o operador geraria uma agenda para o dia! determinando quantos atentimentos por dia. bastaria entrar no cadastroe clicar em um botao para gerar a agenda! teria apenas 2 edits,um para informar o intervalo em minutos e outro para a quantidade de horários para o dia. para ficar mais claro vou colocar mais um exemplo. Horários: 10 - Intervalor: 00:15 quando gerar... ID - DATA - HORA - STATUS 1 - 06/01- 08:00 - L 2 - 06/01- 08:15 - L 3 - 06/01- 08:30 - L 4 - 06/01- 08:45 - L 5 - 06/01- 09:00 - L 6 - 06/01- 09:15 - L 7 - 06/01- 09:30 - L 8 - 06/01- 09:45 - L 9 - 06/01- 10:00 - L 10 - 06/01- 10:15 - L onde L é um status 'livre' colocarei isso num dbgrid com imagens para status. essa parte não é problema. ate mais.

bom, usa JET para conectar. 'CRIANDO A CONEXAO E ABRINDO Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.open "PROVIDER=Microsoft.JET.OLEDB.4.0; Data Source="& Server.MapPath("noticias.mdb") 'CRIANDO A SQL sql = "select * from noticias" 'CRIANDO O RS 'Set RS = Conexao.Execute(sql)

bixu, sua duvida me deixou até com duvida! está muito confuso! mas se você quiser saber como inserir dados a um banco de dados! tem de montao ao no forum, só fazer uma busca! se for para fazer paginas usando ASP, você pode fazer até pelo bloco de notas do Windows, mas também pode usar programas mais avançados como FrontPage e Dreamweaver. procura algo como: "insert into" vou colocar um exemplo: se você recebe num script asp dois valores e quer gravar no banco! sql = "insert into TABELA(campo1, campo2) values ('valor1','valor2')" antes disso, precisamos saber! o que você sabe fazer em ASP?

sql = "select * from NOTICIAS order by RND(INT(NOW*id)-NOW*id)" TAI UM EXEMPLO BEM FUNCIONAL DA FUNÇÃO MENCIONADA! EU USO ELA PARA SELECIONAR ALEATORIAMENTE BANNERS DO MEU SISTEMA.

bom vou colocar um codigo para você coloca uma query e um data source este codigo você coloca no evento que desejar. With Query1 do begin close; sql.clear; sql.add('select * from TABELA where NOME = :ONome'); sql.add('order by NOME Asc'); ParamByName('ONome').AsString := Edit1.Text; open; end; onde o texto ":ONome" é um parametro da sql e receberá o valor que estiver no Edit. liga o data source na Query e testa. mf_vagner@hotmail.com

não, você PODE USAR SOMENTE UM EDITOR DE TEXTO SIMPLES COMO O BLOCO DE NOTAS DO WINDOWS! ISSO é SE você SOLVER A SINTAXE E CONHECER muito BEM A LINGUAGEM. PARA HOSPEDAR QUE você DEVE UTILIZAR UM PLANO LINUX que EXISTEM CENTENAS DE MILHARES NA NET.