Ir para conteúdo
Fórum Script Brasil

koal40

Membros
  • Total de itens

    103
  • Registro em

  • Última visita

Posts postados por koal40

  1. uq você qr fazer? adicionar ou selecionar dados?

    SELECIONAR:

    321. Set AltBd = Server.CreateObject("ADODB.Recordset")
    322. AltBd.CursorLocation = adUseServer
    323. AltBd.CursorType = adOpenForwardOnly
    324. AltBd.LockType = adLockOptimistic
    325. AltBd.Open "SELECT * FROM Produtos WHERE Cod = "& VarProduto &"", Banco, , , adCmdText
    326. VarCategoria = AltBd("CodCategoria")
    327. VarSubCategoria = AltBd("CodSubCategoria")
    328. VarNomeProduto = AltBd("NomeProduto")
    329.VarPrecoDe =  AltBd("PrecoDe")
    330. VarPrecoPor = AltBd("PrecoPor")
    331. VarDescricao = AltBd("Descricao")
    332. VarBreveDescricao = AltBd("BreveDescricao")
    333. VarEstoque = AltBd("Estoque")
    334. VarPeso = AltBd("Peso")
    335. AltBd.Close
    
    ADICIONAR:
    321. Set AltBd = Server.CreateObject("ADODB.Recordset")
    322. AltBd.CursorLocation = adUseServer
    323. AltBd.CursorType = adOpenForwardOnly
    324. AltBd.LockType = adLockOptimistic
    325. AltBd.Open "Produtos WHERE Cod = "& VarProduto
    325,5. AltBd.addnew
    326. AltBd("CodCategoria") = VarCategoria
    327. AltBd("CodSubCategoria") = VarSubCategoria
    328. AltBd("NomeProduto") = VarNomeProduto
    329. AltBd("PrecoDe") = VarPrecoDe
    330. AltBd("PrecoPor") = VarPrecoPor
    331. AltBd("Descricao") = VarDescricao
    332. AltBd("BreveDescricao") = VarBreveDescricao
    333. AltBd("Estoque") = VarEstoque
    334. AltBd("Peso") = VarPeso
    335. AltBd.Update
    336. AltBd.Close
    

    acho q é assim...

  2. na pagina do cadastro:

    crie a conexao...

    suponha q a conexao se chame "oitdbem"

    set rs = oitdbem.execute("select * from suatabelademembros where campousuario = '"&request.form("nomedocampotxt"))
    
    if not rs.eof then
    response.write("usuario existe")
    else
    response.write("usuario disponivel")
    end if
    

  3. aew,

    tah dando erro! tongue.gif

    bem ai vai o codigo:

    conexao.execute("update config set usuarios_online="&tudo.recordcount&",hora_max_online="&time()&",dia_max_online="&date())

    dá o seguinte erro:

    Erro de sintaxe (operador faltando) na expressão de consulta '19:44:46'.

    num deu isso na minha vida... num sei como resolver..

  4. esse script:

    const cntCaminho = "c:\inetpub\wwwroot\livroec\database"

    set conexaodb = server.CreateObject("ADODB.Connection")

    conexaodb.open "driver={Microsoft Access Driver(*.mdb)};dbq=" & cntCaminho

    cade o banco de dados?

    const cntCaminho = "c:\inetpub\wwwroot\livroec\database"

    database.mdb num seria?

  5. na verdade até tinha um q era texto e não coloquei (inda bem q você falo), mas descobri uma coisa... o erro no local dá ao inserir o ip.. (tipo texto no bd)..

    editado---------------------------------------------

    mais uma coisa, ele dá o erro cm qualquer coisa q eu especificar apos a hora...

    olhe o codigo:

    conexao.execute("insert into online (hora_u, ip_u, membro_sn, anonimo_sn, usuario_nome, usuario_id, topico_id) values ('"&Time()&"','"&ip&"',"&mem&","&anon&",'"&session("usuario")&"',"&session("id_usuario")&","&session("tópico")&")")

  6. Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

    Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

    /klanm/forum2/online.asp, line 24

    no local funciona, já no servidor não... ai vai o comando da linha 24...

    21 - set insere = server.CreateObject("ADODB.RecordSet")

    22 - insere.open "online", conexao, 3, 3

    23 - insere.addnew

    24 - insere("hora") = Time()

    25 - insere("ip") = ip

    26 - insere("membro") = mem_

    27 - insere("anonimo") = anon_

    28 - insere("usuario") = session("usrlgn")

    29 - insere("usuario_id") = session("idusr")

    30 - insere("tópico") = session("tópico")

    31 - insere.update

    uq sera?

  7. provavelmente retorna o erro de q o campo é muito pequeno para colocar as noticias, bem o campo texto pode chegar até 255 caracteres... é só configurar o bd, mas se você quiser o campo tipo memorando aceita infinitos caracteres..

  8. aew,

    estou cm um problema.. (novidade tongue.gif )

    tenho a seguinte instrução:

    "select DISTINCT count(ip) as vis_tot from tblon_line where membro = false"

    ai vai o problema: o DISTINCT não funciona junto cm o cont!

    sei q mtos vão me falar:

    use somente o DISTINCT e coloque rs.recordcount, porém já tentei e resulta em -1 mesmo tento 10 usuarios conectados...

    uq fazer?! huh.gif

×
×
  • Criar Novo...