DELPHI-Man32

bom pessoal avaliaem este logo ae q fiz, simplão mesmo! deem sugestões!!! IMAGEM (LOGO) tireX design_4_life grato VAGNER DESISTO, PODE, EXCUIR ESTE tópico!

você FEZ TODAS AS LIGAÇÕES E TESTOU O BANCO ANTES ALEM DE ATIVER ELE? NA HORA DE CONECTAR você TESTA A CONEXAO, FEZ ISSO! LIGA O NAVIGATOR AO DATASOURCE!

bom testa a Session antes do Select! tipo: <% Dim Codigo, Link Set RS = Server.CreateObject("ADODB.Recordset") SQL = "Select cod_cli from Tabela where tal..." RS.open SQL, Conexao, 3,3 Codigo = RS("cod_cli") Session("codigo") = Codigo Link = "vai.asp?cod="&Session("codigo") response.redirect (Link) %> <% if Session("codigo") = "" then response.redirect "pagina.asp" else ...codigo caso seja true a Session... end if %>

isso pode ser feito pelo DataBase Desktop na hora de criar a tabela, você vai no campo: Table Properties e escolhe, referential integrity,depois Define. não esquece que os campos tem que ser do mesmo tipo: integer com integer... ex. você pode user um campo "cod" nas duas tabelas para relaciona-las tabela aluno: cod_aluno nome tabela faltas: codigo cod_aluno data você fara o relacionamento com os campos cod_aluno, porque toda falta precisa de um aluno!

porque você não faz assim! Para Listas as 10 ultimas q ainda vao acontecer! Dim Hoje Hoje = Date sql = "select top 10 * from Festas where DataFesta >= '"& Hoje &"'" Set RS = Conexao.Execute(sql) While not RS.eof #lista todos eles# RS.movenext wend no html o link para a festa! <a href="festa.asp?id=<%=RS("id")%>">Festa dia <%=RS("DataFesta")</a> no pagina festa.asp(mostra os detalhes da festa) id = request.querystring("id") sqlstmt = "SELECT * FROM Festas where id ="&id Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, Dados, 3, 3 date1 = rs("data") id = rs("ID") name1 = rs("titulo") p1= rs("materia") description = p1 espero ter ajudade ae!

se quiser acessar via ODBC Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "SeuDNS","Usuario","Senha" fui!

qual banco de dados você pretende usar?

amigo, quando estava iniciando em asp, tava com essa duvida e os amigos aqui do forum me falaram que a melhor maneira é gravar apenas do nome da imagem no banco de dados! faz um busca no forum q tu axa!

se não me engano isso pode ser feito no Object Inspector também, seria antes da opção "strings" será?

esse campo necessita realmente de um comprimente tão grande, se precisar de muito texto usa o Memo que o manu falow ai em cima!

em algumas versões do 98 eu acho, o formato da hora é diferente algumas usam o sistema brasileiro de 0 --> 24, outros mesmo em portugues usam o sitema americano 0 --> 12 x 2. não seria isso? sei lá mas não custa nada tentar! veja nas configurações de data e hora das máquinas que você testou! ou seja! somar 11,58 + 1,02 <> 23,02 + 0,58! num é? aqui acho q dá: 2,59 se eu somar 1,57 + 1,02 deveria dar 3 horas

pera ae! xeu v s entendi... se o checkbox tiver marcado todos os labels terão o mesmo valor? caso contrário eles terão caption vazio? é isso?

falowss bike! oop's! bicicleta! abraços!

kro amigo, quem programa em delphi já deve ter si deparado com o problema de: ao deletar os registros da table! ele não zera! e isso é um incomodo mesmo! então o autoincremento tem essa desvantagem! mas se você fizer sua propria contagem! você poderá apagar sem problema que sempre a contagem vai zerar! é isso!

basta colocar begin depois de then e em seguisa atribuir os valores.. e depois de else também;; ex.. if "tal tal" then begin ... ... else begin ... ... end; end; obs: não se esqueca de fechar as linhas com ";"! te mais!

isso pode ser feito com qualquer coisa, um link, uma imagem, um botão! você relaciona o campo ao link passando nele o parametro de consulta ao banco de dados do registro a ser alterado! tipow! se for por id! você vai fazer a query com os dados e listados! o link de cada um ficaria assim! <p><a href="editar.asp?id=<%=RS("id")%>">Editar</p> na pagina edita você pega o parametro passado usando querystring como falow o bareta! id = request.querystring("id") faz a busca no banco pelo registro que tem aquele id e coloca nos componentes do form no value dos objetos: <%=RS("campo")%> EXemplo! <input type="text" name="Campo_Nome" size="50" value="<%=RS("nome")%>">

acho q seria uma coisa assim! você fez um select e retornou 5 registros por exemlo! você faz um link passando o valor de um campo qualquer! tipo: Campo nome: <a href="pesquisa.asp?nome=<%=RS("nome")%>">Pesquisar por: <%=RS("nome")%></a> neste caso ae, a pagina do link "pagina.asp' quem vai retornar os dados referente ao campo nome do exxemplo! nele deverá conter um asp fazendo um select no banco de dados! na pagina asp você pega o parametro: nome = request.querystring("nome") sql = "select * from Tabela Where Nome='"& Nome & "'" Set RS = Conn.Execute(sql) seria isso?

<!--#include file="conex.asp"--> <% 'pega o valor do canal Destino = request.QueryString("canal") Dim Novo, Atual 'cria a instrução SQL da consulta sql = "Select * from Hits where Canal="&Destino 'Cria o objeto para manipulação dos dados do canal Set visitar = Server.CreateObject("ADODB.Recordset") visitar.open sql, Conex, 3,3 Atual = visitar("Hits") Novo = Atual + 1 visitar("hits") = Novo visitar.update 'Cria o select para verificar qual e o canal a ser direcionado Select Case (Destino) Case 1 'Verifica se há parametro para cidades passando pelo link Dim City_Page City_Page = Request.QueryString("page") if City_Page <> "default" then Destino = "regiao/cidade.asp?nome="&City_Page else Destino = "regiao/default.asp" end if Case 2 Destino = "amazonia/default.asp" Case 3 Destino = "pesseios/default.asp" Case 4 Destino = "pesca_esportiva/default.asp" Case 5 Destino = "estadas/default.asp" Case 6 Destino = "mapas/default.asp" Case 7 Destino = "tucunare/default.asp" Case 8 Destino = "tucunare/peixes.asp" Case 9 Destino = "social/default.asp" Case 10 'Verifica se há parametro de anuciantes passando pelo link Dim id 'Pega o codigo passado no parametro do link id = Request.QueryString("id") if id <> 0 then Destino = "associados/profile.asp?codigo="&id else Destino = "associados/default.asp" end if Case 11 Destino = "agencias/default.asp" Case 12 Destino = "fotos/default.asp" Case 13 Destino = "comunica/default.asp" Case 14 Destino = "parques/default.asp" Case 15 Destino = "subdominios/default.asp" Case 16 Destino = "marketing/default.asp" Case 17 Destino = "locadoras/default.asp" Case 18 Destino = "eco_turismo/default.asp" Case 19 Destino = "anuncios/default.asp" Case 20 Destino = "english/default.asp" Case 21 Destino = "ma/default.asp" Case 22 Destino = "estados/AC.asp" Case 23 Destino = "estados/AM.asp" Case 24 Destino = "estados/AP.asp" Case 25 Destino = "estados/PI.asp" Case 26 Destino = "estados/RO.asp" Case 27 Destino = "estados/RR.asp" Case 28 Destino = "capa/default.asp" Case 29 'Verifica se há parametro de cidades passando pelo link Dim Cidade ver = Request.QueryString("city") Destino = "news/default.asp?cidade="&ver&"&idCanal="&Destino Case 30 Destino = "servicos/default.asp" End Select 'Fecha a conexao com o bando de dados Conex.Close 'Destroi o objeto Conex Set Conex = Nothing 'Direciona o visitante para o canal do Select response.redirect (Destino) %> bom é isso ae povo, fiz este script para redirecionar o visitante para o link clicado mas antes como pode-se ver, ele atualiza o banco de dados atualizando os cliques! quero que me digam se é isso mesmo ou podemos melhorar isso ae!

entre em contato comigo que te mostro passo a passo! asp e access! falow design_vagner@hotmail.com

Ficou bom, independente de template ou não! falowsws!!!

ae bareta, acho que aquele banner ta disproporcional, e meio embolado o conteudo do topo.abaixo do banner! u 7izao para vc! falows!! logo logo mando o meu para você avaliar! falowss!!! abraços!

faz um busca por RxLib,algo assim é um pacote de componentes inclusive Hints diferente! eu deve ter aqui! entre com contato! vagnerfranco@gmail.com

não seria mas facil informar que tipo de sistema você presisa? o delphi pode fazer trocentos milhoes de programas para as mais diversas áreas! seja mais especifica! eu tenha um calculadora prontinha aqui!(é um sistema em delphi), mas com certeza não é um calculadora que você precisam, não? ate mais!

se você estiver colocando o mes no formato padrão(inteiro) você deve converter o valor do edit para inteiro, porque um edit é para string! então você poderá usar de duas maneiras: var Mes : integer; begin Mes = StrToInt(Edit1.text); .... .... adoquery1.sql.add ('select dtinstalacao from Cadastro where EXTRACT(month from DTINSTALACAO) = ''' + Mes + ''''); .... .... End ou .... .... adoquery1.sql.add ('select dtinstalacao from Cadastro where EXTRACT(month from DTINSTALACAO) = ''' + StrToInt(Edit1.text) + ''''); .... .... End espero ter ajudado!

vou me entrometer um pokim, tá? eu uso sempre assim! Total = RS.Recordcount If Total > 10 then blablabla.... Else blablabla.... End if acho que o cod fika mais enxuto e facil de manipular! mas se deve ter muita atenção quanto CURSOR E TRAVA no hora de fazer o RS.