DELPHI-Man32

bem detalhado não é?, ta bom mesmo!!

the web site is show!!!

bem pessoal, todo programar delphi um dia se deparou com um problema comum nos campos autoincrementos.. eles não zeram então como posso adicionar um novo código sem usar este tipo de campo tipo incrementar 1 ao ultimo cadastrado para formar o proximo registro seria algo assim.. Tabela.campo.value := Tabela.campo.value + 1; abraços a todos VAGNER

você usa HTML e ASP... tipo Cria o Recordset para para pegar os dados do banco. e faz assim: <img src="<%=RS("imagem")%>"> Alt="Minha foto"> pronto!!! VAGNER

onde coloco esta linha? depois de criar a session?

use sql para deletar o registro!!! tipo cria uma arquivo para deletar os registros do banco de dados. nesse arquivom você pega o id do registro. o link para exlucir deve ficar assim: http://www.site.com/deletar.asp?act=<%=RS("id")%> id = request("id") monta uma estrutura sql tipo assim!! sql="delete * from Tabela where id="&id no fim você redireciona o usuario para outra pagina! mas antes de fazer isso tudo, você tem que saber, abri uma conexao, mostrar os dados do banco no cliente e outras coisas básicas do ASP. qualquer coisa posta de novo ai!

ok testado e aprovado!!! podem fechar o tópico! abraços a todos.

então tenho que colocar o url todo em todo os links da pagina /loja/default.asp/index.asp para recarregar tudo eu tem uma forma mais facil depois que já estiver no diretorio!

tipo pessoal, tentei fazer algumas coisas em asp e iis do xp e estava pensando como seria possivel usar uma url passando variaveis mas sem usar a extensao do arquivo asp. O original: www.site.com/loja.asp?acao=login -----------------------^ o que quero! www.site.com/loja?acao=login --------------------^ sem a extensao "asp" o que deve fazer para usar assim! desde já agradeco a todos que responderem...

tenta assim: <% Dim Login Dim Senha Login = request.form("TxtLogin") Senha = request.form("TxtSenha") Set Conn = Server.CreateObject("ADODB.Connection") BD = Server.MapPath("Teste.mdb") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&BD SQL = "SELECT * FROM Login where Login='"&Login&"' and Senha='"&Senha&"'" Set Rs = Conn.Execute(SQL) if RS.eof then response.redirect "erro.asp" else response.redirect "logado.asp" end if %>

você pode achar muito coisa sobre desenvolvimento de sistemas aqui mesmo no SB Comunidade SB

ae pessoal, depois de um longo tempo longe do delphi, estou retornando com um duvida!!! estou fazendo um prog para um locadora e preciso relacionar algumas tabelas paradox 7, simples no form da locação tenho que informar: 1º - O cod do cliente; 2º - Inserir os filmes a serem locados num DBGrid, ligado a tb de itens, atraves de outro form.. quando digito o cod do filme e clico em confirmar, ele fecha o form filtra na tabela filme referente ao cod digitado e passa os valore para o GRID.. é + ou - isso!! tendeu?

se você tem no banco um campo tipo status ele é: numerico ou alpha? echo que é isso, você esta tentando gravar um valor imcompativel para o campos! tipo: um campo numerico, so aceita numeros! Se for um campo de texto, você muda os valores: S para "sim" e N para "não" t+v

<!--#include file="direto.inc"--> <!--#include file="erro.inc"--> <% Set Conectar = Server.CreateObject("ADODB.Connection") Conectar.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath(X) Dim StatusUser StatusUser = "Aguardando" 'Pegando os dados do formulario de cadastro nick = request.form("nick_form") codenter = request.form("codenter") nome = request.form("nome") sobrenome = request.form("sobrenome") email1 = request.form("email1") email2 = request.form("email2") telefone = request.form("telefone") cidade = request.form("cidade") cep = request.form("cep") estado = request.form("estado") idade = request.form("idade") sou = request.form("sou") procuro = request.form("procuro") objetivo = request.form("objetivo") signo = request.form("signo") altura = request.form("altura") peso = request.form("peso") corpo = request.form("corpo") olhos = request.form("olhos") cabelo = request.form("cabelo") cordapele = request.form("cordapele") estadocivil = request.form("estadocivil") fumante = request.form("fumante") filhos = request.form("filhos") formacao = request.form("formacao") moracom = request.form("moracom") meconsidero = request.form("meconsidero") tipouser = request.form("tipouser") termos = request.form("termos") if Erro = True then response.Write("<b><font face=Verdana Size=2>Os seguintes erros foram encontrados:<br></b>") response.Write(alerta) response.Write("<br><br><a href='javaScript:history.back()'>Voltar</a>") else Set GravarReg = Server.CreateObject("ADODB.Recordset") sql = "select * from cadastro" GravarReg.open sql, Conectar, 3,3 GravarReg.AddNew GravarReg("nick") = nick GravarReg("codenter") = codenter GravarReg("nome") = nome GravarReg("sobrenome") = sobrenome GravarReg("email1") = email1 GravarReg("email2") = email2 GravarReg("cidade") = cidade GravarReg("estado") = estado GravarReg("telefone") = telefone GravarReg("cep") = cep GravarReg("idade") = idade GravarReg("sou") = sou GravarReg("procuro") = procuro GravarReg("objetivo") = objetivo GravarReg("signo") = signo GravarReg("altura") = altura GravarReg("peso") = peso GravarReg("corpo") = corpo GravarReg("cabelo") = cabelo GravarReg("olhos") = olhos GravarReg("cordapele") = cordapele GravarReg("estadocivil") = estadocivil GravarReg("fumante") = fumante GravarReg("fillhos") = filhos GravarReg("formacao") = formacao GravarReg("moracom") = moracom GravarReg("meconsidero") = meconsidero GravarReg("tipouser") = tipouser GravarReg("termos") = termos GravarReg("status") = StatusUser GravarReg("data") = Date GravarReg("hora") = Time GravarReg.update Conectar.close set Conectar = Nothing response.redirect "confirmado.asp" end if %> tai dark0, esse e o script que grava os dados no banco de dados

isso, se ainda não tem um campo que grave o status do evento, então cria este compo "STATUS" é uma rotina para atualizar o banco de dados quando o evento acontecer! equanto não acontece, o valor do campo "status" é não, depois passa a ser sim! um erro! troque o valor da variavel "Status" para "não" <!-- #include file="conexao.inc" --> <% DIM conexaodb, rsEvento, strEvento, Hoje, Status Status = "não" Hoje = Date strEvento = "select * from evento where Data='"&Hoje&"' and Status='"&Status&"'" call abreconexao Set rsEvento = conexaodb.Execute(strEvento) %>

ok, quando entre com os dados no forum tipo: nome: VÁGNER ele não grava VÁGNER e sim V%AGNER, É ISSO! VOU pegar o código que grava os dados no servidor: http://www.domaindlx.com

BOM SOU INICIANTE, MAS ACHO QUE POSSO TE AJUDAR!! BEM SEU SQL PODE FICAR ASSIM <!-- #include file="conexao.inc" --> <% DIM conexaodb, rsEvento, strEvento, Hoje, Status Status = "sim" Hoje = Date strEvento = "select * from evento where Data='"&Hoje&"' and Status='"&Status&"'" call abreconexao Set rsEvento = conexaodb.Execute(strEvento) %> você cria um campo tipo "Status" qur podem ter dois valores "sim" ou não", assim você sabera se o vento aconteceu ou não, dependendo do status, no banca de dados! Para retornar um mensagem de erro caso não sejam encontrados registros, faz assim. <% if rsEvento.eof then response.redirect "erro.asp" else ..... as outros linhas caso sejam encontrados registros... end if %>

uso um banco de dados feito no access 2000, será que é isso? você usa MySql ou Access?

é bem legal, mesmo!!! vamos esperar aeh!!

OK OBRIGADO AMIGO

bem apesar de tudo funcionando direitinho nas paginas e no banco, a pagina do cliente não da pra ver os acentos das palavras, porque? o que faço pra resolver? quero gravar no banco com acentos e mostrar com acentos!!!!

a tabela já tenho, !!! ok.. e para avisar ao usuario que a seção expirou? assim eu não corro um risco de apagar usuarios que estao ativos??

e como ficaria essa minha rotina na pratica (in cod)? ????? algo desse jeito session.timeout = -5 if session.timeout then response.redirect "apagar.asp" end if num sei

bom pessoal, depois de muito tentar, fiz o seguinte, tirei as linhas que verificavam os dados do usuario e criei um outro arquivo!!! então quando o usuario fazem o login a aplicação chamao arquivo "validarUSR.asp", se tiver tudo certo então ele entra no painel de controle dele, a pagina de validação manda o nick como variavel para veririfcação no bd e então... funciona ele na tela!!! pronto!!! beleza!!! assim que eu fiz seguindo as dicas o]do dark0... t+v

parece tão dificil mas é tão facil! até pouco tempo estava com este mesma duvida!! rs**