Ir para conteúdo
Fórum Script Brasil

cassitos

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    43

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por cassitos

  3. Porta Com1

    em Visual Basic

    Postado · Editado por cassitos

    tipo entrei em contato com o fabricante e ofereceram um cabo p/ conectar ao teclado em vez da com1... happy.gif

    estive fazendo uns testes e acredito estar bem perto de resolver...

    não sei os comandos equivalentes ao ETX (fim de transmissão) e STX (início de transmissão), tipo qual comando passar assim:

    MSComm1.Output = [comando equivalente ao STX], já tentei VbCr

    MSComm1.Output = [comando equivalente ao ETX]

    mas na verdade sei absolutamente nada destes comandos tongue.gif

    alguém conhece alguma referência? to pesquisando na net mas nada ainda...

    vlw wink.gif

  4. Porta Com1

    em Visual Basic

    Postado

    vlw pessoal, imaginei mesmo isso... o cliente possui este leitor que funciona num programa em DOS, mas não existe nenhuma documentação/manual ou qualquer outra informação que possa ajudar na configuração.

    vou tentar entrar em contato com o fabricante.

    vlws! wink.gif

  5. Porta Com1

    em Visual Basic

    Postado

    Bom dia,

    galera estou precisando fazer um sistema para receber informações da porta COM1 (RS232).

    O leitor de cheques é do modelo L50 da DataCheck. Acessei o site da fabricante mas não há uma documentação do produto, e não sei q comando enviar a string de inicialização para o leitor, ou até mesmo receber informações da COM1.

    alguém sabe algum site ou como fazer esta comunicação?

    Já tentei várias funções do objeto MSComm, mas não obtêm resposta...

    entre os testes já fiz:

    http://www.macoratti.net/vb_comm.htm, http://www.macoratti.net/vbserial.htm. Entre outros... mellow.gif

    vlw

  7. Econverterror

    em Delphi, Kylix

    Postado

    E ae!!

    Criei uma função para montar data de acordo com parâmetros Dias, Mes e Ano:

    function PreparaData(Dia,Mes,Ano: Integer):TDateTime;

    var

      textoData: String;

    begin

      if ((Mes = 2) Or (Mes = 4) Or (Mes = 6) Or (Mes = 9) Or (Mes = 11)) Then

      begin

        If (Dia = 31) Then Dia := 30;

      end;

      if (Mes = 2) Then

      begin

        if (Dia >= 30) then Dia := 29;

      end;

      textoData:=IntToStr(Dia) + '/' + IntToStr(Mes) + '/' + IntToStr(Ano);

      //verificar se é data válida

      try

        begin

          StrToDate(textoData);

        end;

      except on EConvertError do

        begin

          Dia:=Dia-1;

          textoData:=IntToStr(Dia) + '/' + IntToStr(Mes) + '/' + IntToStr(Ano);

        end;

      end; 

      PreparaData:=StrToDate(textoData);

    end;

    Mas se tentar montar uma data inválida, dá uma mensagem de erro e só depois passa pelo except. mellow.gif

    Sou novato em delphi... como faço p/ que não apareça tal mensagem?

    Project Project1.exe raised exception class EConvertError with

    message "29/2/2005" is not a valid date1.

    Process stopped. Use Step or Run to continue.

    A data foi informada errada de propósito, aí dá este erro, vou fazendo passo-a-passo e passa pelo exception.

    Preciso fazer com que esta mensagem não apareça.

    Tem como?? sad.gif

  9. Quick Report + Interbase (Resolvido)

    em Delphi, Kylix

    Postado

    lol

    Vlw cara.

    Eu já tinha feito isso, o subcliente tá linkado ao dataset e este data está ligado ao cliente.

    ueh... sad.gif

    putz é um relatório tão simples ehehe

    bom, agora só falta aparecer os dados do subcliente... tongue.gif

    um resumo das propriedades:

    QryCliente:

    Database = Banco

    DataSource = "vazio"

    SQL = "SELECT CODCLIENTE, NOMECLIENTE FROM CLIENTE"

    Fields = CODCLIENTE, NOMECLIENTE

    DSCliente:

    AutoEdit = True

    DataSet = QryCliente

    Enabled = True

    QrySubCliente:

    Database = Banco

    DataSource = DSCliente

    SQL = "SELECT NOMESUBCLIENTE FROM CLIENTE WHERE CODCLIENTE = :CODCLIENTE"

    Fields = NOMESUBCLIENTE

    Params = CODCLIENTE

    tem mais alguma configuração? o.O

    vlw

  10. Quick Report + Interbase (Resolvido)

    em Delphi, Kylix

    Postado

    E galera, beleza!!??

    Preciso montar um relatório que terão duas Queries:

    1 - Select da tabela de Clientes (SELECT * FROM CLIENTES)

    2 - De acordo com cada cliente, deve exibir os subclientes: (SELECT * FROM SUBCLIENTES WHERE CODCLIENTE =:CODCLIENTE).

    beleza. O relatório está pronto até a parte dos clientes, mas não estou conseguindo fazer com que a segunda query receba o parâmetro p/ utilizar o CODCLIENTE.

    Já adicionei um Parametro na segunda query, mas é como se não estivesse recebendo o valor.

    O que pode estar faltando? mellow.gif

    plz

  11. Vb.net

    em .NET

    Postado · Editado por cassitos

    ae galera!!!

    sou novato no VB.Net, eu tava muito preso só a VB6 ehehehe

    tipo... alguém conhece um site q eu possa baixar uma boa apostila sobre O.O. e alguns conceitos do VB.Net, dava fazendo uns testes aki e nem consegui mostrar uma mensagem (msgbox) ehehe

    baixei o SharpDevelop como o pessoa indicou: muito bom!!!

    vlw!

  14. Phpmyadmin - Login

    em PHP

    Postado

    fala ae galera, beleza?

    tipo, instalei recentemente o phpmyadmin, segui todo o procedimento básico: IIS+PHP+PhpMyAdmin, tá funfando beleza

    só que agora preciso deixar o acesso via login, porque o padrão é o usuário root... qualquer um que digitar o endereço irá acessar todo o mysql... ehehe

    então eu vi o seguinte trecho na página config.inc.php :

    /**

    * Server(s) configuration

    */

    $i = 0;

    // The $cfg['Servers'] array starts with $cfg['Servers'][1].  Do not use $cfg['Servers'][0].

    // You can disable a server config entry by setting host to ''.

    $i++;

    $cfg['Servers'][$i]['host']          = 'localhost'; // MySQL hostname or IP address

    $cfg['Servers'][$i]['port']          = '3306';      // MySQL port - leave blank for default port

    $cfg['Servers'][$i]['socket']        = '';          // Path to the socket - leave blank for default socket

    $cfg['Servers'][$i]['connect_type']  = 'tcp';      // How to connect to MySQL server ('tcp' or 'socket')

    $cfg['Servers'][$i]['extension']    = 'mysql';    // The php MySQL extension to use ('mysql' or 'mysqli')

    $cfg['Servers'][$i]['compress']      = FALSE;      // Use compressed protocol for the MySQL connection

                                                        // (requires PHP >= 4.3.0)

    $cfg['Servers'][$i]['controluser']  = '';          // MySQL control user settings

                                                        // (this user must have read-only

    $cfg['Servers'][$i]['controlpass']  = '';        // access to the "mysql/user"

                                                        // and "mysql/db" tables).

                                                        // The controluser is also

                                                        // used for all relational

                                                        // features (pmadb)

    $cfg['Servers'][$i]['auth_type']    = 'http';    // Authentication method (config, http or cookie based)?

    $cfg['Servers'][$i]['user']          = 'root';      // MySQL user

    a variavel: $cfg['Servers'][$i]['auth_type'] está como http. beleza!

    só que qualquer usuário com sua respectiva senha não está sendo validada corretamente, como se não existisse, dá esta mensagem:

    HTTP 401.3 - Acesso negado devido à ACL no recurso

    Internet Information Services

    o que pode está faltando???

    huh.gif

  17. Shellexecute

    em Visual Basic

    Postado

    fala galera!

    seguinte pesquisei ae pela net sobre o ShellExecute

    tá acontecendo algo que não entendi ainda o por que, declarei num módulo:

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

    Const SW_NORMAL = 1        ' normal

    Const SW_SHOWMAXIMIZED = 3  ' maximizado

    e chamo a função assim:

    NomeDest = "C:\Pasta do HSA\MR Informática\Transvip\Tesouraria\Processamento.xls"

    ShellExecute Me.hwnd, "Open", Chr(34) & NomeDest & Chr(34), vbNullString, vbNullString, SW_SHOWMAXIMIZED

    ele abre rapidamente o Excel e fecha!?!?!?! huh.gif

    to precisando urgente utilizar esta rotina... sad.gif

    any help?

  22. Não Consigo Criar Db No Mysql ?

    em MySQL

    Postado · Editado por cassitos

    bem, isso pode ser permissão, o mysql por padrão já libera acesso completo ao usuário root (tanto local quanto %)

    agora quando não é root, não lembro, mas se o padrão para host % (não local) é apenas SELECT liberado.

    você pode obter mais informações na base de dados mysql, tabela user. lá que é registrado todos os acessos.

×
×
  • Criar Novo...