Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
  • Total de itens

    7.184
  • Registro em

  • Última visita

Tudo que kuroi postou

  1. kuroi

    Data

    pra transformar texto em data faca: data = CDate (rs("Data")) mas você pode sim gravar data nula. presta atencao que existe uma grande diferença entre valor nulo e valor vazio. pra gravar valor nulo em campo data faca: Insert Into Tabela(Data) Values(Null) pra gravar valor vazio em campo data faca: Insert Into Tabela(Data) Values('00:00:00')
  2. kuroi

    Data

    o q você fez da certo, mas fica mais facil assim: dtvenc1 = DateAdd ("m", 6, Date)
  3. kuroi

    Cadastro No Banco De Dados Acess

    é so verificar se já existe com um select: <% sql = "Select * from Tabela Where login = '" & varLogin & "'" set rs = cn.Execute (sql) if not rs.EOF Then Response.Write "Login já existe!" Else - Continua o Código - End If %>[/code]
  4. estranho, aqui funcionou. como você pos senha no banco? tipo, ele ta protegido so por senha, ou tem q por nome de usuario? esse q eu te passei funciona se você tiver ido em Ferramentas -> Segurança -> Definir Senha do Banco de Dados. veja q você ainda tem q por o provider, o código todo fica assim: Set objConn = Server.CreateObject("AdoDb.Connection") objConn.provider="Microsoft.Jet.OLEDB.4.0" objConn.connectionstring="Data Source = " & Server.Mappath("dados/dados.mdb") & ";Jet OLEDB:Database Password=[Senha];" objConn.open [/code] e tb não é pra por a senha entre [], so pus pra você identificar onde tem q digitar sua senha. se não conseguir resolver, entre em http://www.connectionstrings.com/ e veja se consegue resolver.
  5. não entendi direito, mas acho q da pra fazer o q c quer com INNER JOIN, ou fazer uma consulta e depois outra no RecordSet.
  6. acho q o jeito como você ta pondo a senha ta errado, veja esse post: http://scriptbrasil.com.br/forum/index.php?showtopic=75931
  7. kuroi

    Consultas

    mais facil: Select * from tabela where data between date() and dateadd('d', -3, date())
  8. tente assim: objConn.connectionstring="Data Source = " & Server.Mappath("dados/dados.mdb") & ";Jet OLEDB:Database Password=[Senha];"
  9. kuroi

    Global.asa

    ae ninguém sabe não? tb to afim de saber. se eu fecho o explorer e ele ainda não finalizou a sessao por causa do timeout, quando eu abrir de novo ele não devia continuar a mesma sessao em vez de inicia uma nova? x-man, se descobrir posta ae.
  10. kuroi

    Consultas

    tenta: Select * from tabela where data=dateadd('d', -3, date())
  11. você pode criar uma tabela com todos os campos identicos ao da consulta, executar a consulta, selecionar todos os registros, copiar e colar na sua tabela.
  12. não entendi direito. o q você quer dizer com resultado de script? você quer dizer tipo um select? não entendi mesmo...
  13. não entendi direito. acho q pra fazer o q você quer, é so fazer a conexao com o banco e executar o insert: Dim cn Set cn = New ADODB.Connection cn.Provider = "SQLOLEDB" cn.ConnectionString = "User ID = -usuario-; Password = -senha-; " & _ "Data Source = -Servidor-; Initial Catalog = -NomeDoSeuBanco-" cn.CursorLocation = adUseClient cn.Open cn.Execute ("Insert Into Tabela(-Campos-) Values(-Valores-) [/code]
  14. kuroi

    Global.asa

    testei aqui e vi q ele so subtrai quando acaba o timeout, ou seja, quando passa 10 minutos. ate ai tudo bem, mas é estranho q ele inicie uma sessao nova quando eu abro a pagina novamente. se ainda não ocorreu o timeout, não significa q a sessao ainda esta sendo executada? ou seja, em vez de abrir uma nova sessao, não deveria continuar a mesma?
  15. isso porque uns 70% dos usuarios cadastrados hoje em dia tem 1 ou menos posts.
  16. kuroi

    O Que Está Errado Aki?

    tente assim: SELECT vezes FROM visitas WHERE ip='127.0.0.1' AND fotoid='1' AND userid Is NULL; ou SELECT vezes FROM visitas WHERE ip='127.0.0.1' AND fotoid='1' AND IsNull(userid);
  17. kuroi

    Resumo De Situação

    sim, você tem q adicionar um subreport. para associar o subreport ao group atual, clique com o botao direito no subreport, clique em Change SubReport Links e faca um link ligando o campo pelo qual você esta agrupando com o ele mesmo no subreport.
  18. kuroi

    Crystal Xi

    no 8.5, clico em DataBase -> Set Location e tem um botao escrito Same as Report. se no XI não tiver esse botao, tente escrever a mao o endereco do banco sem o caminho da pasta. tipo assim: NomeDaTabela!NomeDoBanco.mdb
  19. kuroi

    Erro 0x80040e14

    sim. não sei trabalhar com cookies, mas da pra ver q Request.Cookies("codigo")&"" esta trazendo um valor em branco. não sei se é porque não existe o cookie, ou você esta preenchendo errado, ou você esta pegando errado o valor, ou o cookie q você esta pegando esta zuado, mas vendo o erro q deu da pra ver q o seu sql ta ficando assim: UPDATE Produto SET Qunt = Qunt - 1 WHERE codigo = ou seja, o request não ta trazendo valor. não tenho conhecimento pra te ajudar mais do q isso, você vai ter q descobrir qual o problema do cookie ou esperar alguém q entenda mais tentar te ajudar.
  20. kuroi

    Erro 0x80040e14

    Request.Cookies("codigo")&"" está trazendo um valor em branco. acho q antes do update, você deveria testar se o request esta trazendo algum valor, e se ele é numerico
  21. kuroi

    Erro 0x800a000d

    tem certeza q a variavel qtde esta mesmo vindo com numero e não com letra, você devia testar antes com a funcao IsNumeric. outra coisa, o mais correto seria em vez de: rs.open sql dar um excute na sua conexao, q me parece, tem o nome de abredb. então ficaria assim: abredb.Execute sql já q você não vai der nenhum select pra por no recordset.
  22. kuroi

    Erro

    ele não encontra nenhum registro q tenha o nick q esta na variavel nick. o esquema é você testar antes: sql = "SELECT idmembro, nick, nome, pontosforum, pontosforumtrocas, sobrenome, idioma, email, sexo, avatar, dob, homepage, uin, cidade, estado, pais, assinatura, ip, ultimoacesso, status, nforum FROM membros WHERE nick = '" & nick & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3, 3 if rsUser.EOF Then response.write "não existe usuario com esse nick." Else idmembro = rsUser("idmembro") nick = rsUser("nick") nome = rsUser("nome") sobrenome = rsUser("sobrenome") '--- E ASSIM VAI... End If[/code]
  23. percebi q depois da alteracao do forum, os posts de guests q não escrevem o nome, agora vem com o nome de "Visitante". acho q esse problema ia resolver se bloqueasse os q viessem com nome de "Guest".
  24. kuroi

    Editor De Texto

    q componente você ta usando? pra por negrito, você tem q usar o rich text box (adicione o componente Microsoft Rich Textbox Control 6.0). o codigo é assim: RichTextBox1.SelBold = True
  25. kuroi

    Ms-dos No Xp

    acho q não, porque você não tem DOS no seu pc. com o 98 por exemplo, o DOS ficava instalado em seu PC como um outro SO. sei q o 98 e os windows anteriores não conseguiam se bootar sozinhos e precisavam do DOS para isso. já o windows xp não precisa de DOS, por isso você tem apenas o prompt.
×
×
  • Criar Novo...