Jump to content

marvazoler

Members
  • Content count

    648
  • Joined

  • Last visited

Posts posted by marvazoler

  1. Sms


    Boa tarde

    Seguinte, nem todos tem net para usar no whatsApp, pensando nisso!

    Tem como criar grupos de sms e em cada grupo ter os contatos:

    Pois quero marcar reuniões familiares e reuniões so com amigos!

    Sistema de envio de sms no delphi.

     

    - Familia

    Mae

    Pai

    Irmão

    Tios

    Tias

     

    - Amigos

    Claudio

    Ana

    Marcia

    Pedro

     

    Tem?

     

    Desde ja agradeço


  2. Achei a solução!

     

    Assim, não funciona

    vardatai = formataData( Request.Form("txtdatai") )
    vardataf = formataData( Request.Form("txtdataf") )
    Assim, funciona
    vardatai = (formataData( Request.Form("txtdatai") ))
    vardataf = (formataData( Request.Form("txtdataf") ) )

     

     

    Ou seja, tive que amarrar a função tambem!

     

    Obrigado pela atenção!


  3. Bom dia, fiz o teste de recuperação da variavel de dada, e esta certa, ela me mostra o resultado correto!

    ai, quando aplico novamente a função , continua a dar erro de conversão!, eita que coisa!

    Se alguem tiver ideia!

     

    Obs, estou usando banco local, ou seja, estou usando o 127.0.0.1, para realizar testes!


  4. Boa tarde!

     

     

    Dim com
    Dim a
    Dim d
    Dim m
    function formataData( parametro )
    com = cDate(parametro)
    d = Day(com)
    m = Month(com)
    a = Year(com)
    if d < 10 then d = "0"& d
    if m < 10 then m = "0"& m
    formataData = a &"/"& m &"/"& d
    end function
    dim strConexao
    dim oRs
    dim varpro
    dim varper
    dim vardatai
    dim vardataf
    set strConexao = CreateObject("ADODB.Connection")
    strConexao.Open("DRIVER=Firebird/InterBase® driver; UID=;PWD=; DBNAME=")
    Set oRs = Server.CreateObject("ADODB.Recordset")
    varpro = request.form("txtpro")
    varper = request.form("txtper")
    vardatai = formataData( Request.Form("txtdatai") )
    vardataf = formataData( Request.Form("txtdataf") )
    Linha 35 do select
    Set oRs = strConexao.Execute("insert into pro (produto,PER,DATA_INI,DATA_FIN)values('"&varpro&"','"&varper&"','"&vardatai&"','"&vardataf&"')")
    Erro

    Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

    [ODBC Firebird Driver][Firebird]conversion error from string ""

    /promo.asp, linha 35

     

     

    O é esse erro?

     

    Desde ja agradeço


  5. Deve ter algo estranho:

     

    set strConexao = CreateObject("ADODB.Connection")
    strConexao.Open("DRIVER=Firebird/InterBase® driver; UID=;PWD=; DBNAME=")
    Set oRs = Server.CreateObject("ADODB.Recordset")
    varempresa = request.form("txtempresa")
    varcnpj = request.form("txtcnpj")
    Set oRs = bd.Execute("insert into EMPRESA (NOME_FANTASIA,CNPJ)values('"&varempresa&"','"&cnpj&"')")
    Ainda da o erro:

    Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

    Objeto necessário: ''

    /cadastrar.asp, linha 26

    Desde ja agradeço

  6. Bom dia, preciso resolver uma coisa que me da tregua, sempre fiz asp x com mysql, mas agora!

     

     

    set strConexao = CreateObject("ADODB.Connection")
    strConexao.Open("DRIVER=Firebird/InterBase® driver; UID=;PWD=; DBNAME=")

     

    Set oRs = Server.CreateObject("ADODB.Recordset")
    varempresa = request.Form("txtempresa")
    varcnpj = request.Form("txtcnpj")
    'varcodigo = request.Form("txtsenha")
    'varseguimento = request.Form("txtseguimento")
    varemail = request.Form("txtemail")
    varcidade = request.Form("txtcidade")
    Set oRs = bd.Execute("INSERT INTO EMPRESA (NOME_FANTASIA,CNPJ,EMAIL,CIDADE)VALUES('"&varempresa&"','"&varcnpj&"','"&varemail&"','"&varcidade&"'")
    Olha o erro!

    Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

    Objeto necessário: ''

    /cadastrar.asp, linha 29

     

     

    Ja revisei , desde ja agradeço!


  7. Quando vou fazer um select, da esse erro:

    Microsoft OLE DB Provider for ODBC Drivers erro '80040e21'

    O driver ODBC não oferece suporte para as propriedades solicitadas.

    /, linha 356

    Obs: quando o driver era 3.5, funcionava.

    Set oocom = Server.CreateObject("ADODB.Connection")
    oocom.ConnectionString = "UID=; PWD=; DRIVER={MySQL ODBC 5.2 ANSI Driver}; SERVER=; DATABASE="
    oocom.Open()
    Set oRs2 = Server.CreateObject("ADODB.Recordset")
    if vardia_ = 0 then
    SQL = "select * " & chr(13) & _
    "from dia " & chr(13) & _
    "order by dia Desc " & chr(13)
    else
    SQL = "select * " & chr(13) & _
    "from dia " & chr(13) & _
    "where CODIGO = " & vardia_ & " " & chr(13) & _
    "order by dia Desc " & chr(13)
    end if
    oRs2.open SQL, Conn, 1
    while not oRs2.EOF
    Set oRs3 = Server.CreateObject("ADODB.Recordset")
    SQL = "select distinct rferencia.Codigo , referencia.Descr " & chr(13)& _
    "from referencia, horario " & chr(13) & _
    "where referencia.Codigo = horario.Referencia " & chr(13) & _
    "and horario.COD_DIA = " & oRs2("CODIGO") & " " & chr(13) & _
    "and horario.COD_LINHA = " & oRs("CODIGO") & " " & chr(13) & _
    "order by referencia.Descr " & chr(13)
    'response.write "<pre>" & SQL & "</pre>"
    'response.end
    oRs3.open SQL, Conn, 1

    O que pode ser?

    Desde ja agradeço!

     


  8. Boa tarde, galera, nunca fiz teste de inserção de dados pelo asp x firebird local.

     

    e esta me dando erro,

     

    [ODBC Firebird Driver]Unable to connect to data source: library 'gds32.dll' failed to load

     

     

    o que esta errado?

     

    Desde ja agradeço


  9. Bom dia galera, seguinte, sempre fiz teste em banco online, o seja, o serviço de hospedagem de pagina e banco ja contratado.

    Mas surgiu um projeto que precisa de testes locais antes de colocar no ar.

    Instalei o firebird e ibexpert na minha maquina, e estou trabalhando com asp. a minha pergunta é:

     

    Como simular um navegador para que funcione o insert localmente?

    Pois do jeito que está, quando clico no botão para cadastrar, o navegador pedi para salvar o arquivo inserirdados.asp!

     

    E agora?

    O que falta instalar?

     

    Desde ja agradeço

     


  10. Amigo

    Ilano

     

     

    Seguinte, usei seu script e deu erro, eu estou gravando no ibexpert o caminho da imagem, mas quando chamo o relatório da a seguinte mensagem:

     

    Unknown picture file extension(.jpg)

     

    O que pode ser?

     

    Estou usando quirckreport do delphi7

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.