Pular para o conteúdo principal

Salvando data, em base de dados mysql, pelo gambas2

tPessoal quando se precisa de um campo mascara para datas, o gambas2 tem um componente e se chama ValueBox.

Quando for atribuir o valor na coluna do Mysql, que seja do tipo DATA, use assim.
rs!data_nasc = Valuebox1.value
Na hora de preencher o caixa de texto, ele vai utilizar o "-"como caractere separador.
Então nunca use algo do tipo.
rs!data_nasc = Valuebox1.text
Pois o Mysql usa como caractere separador o "/" por padrão pelo menos.
E se por usar .text teria que usar um função de conversão, isso só faria perder tempo.
Não se esqueça em mudar a opção Type, da ValueBox para DATE.
Marcadores:

Postagens mais visitadas deste blog

Criando um sistema de login em Java.

Login Pessoal, nesse exemplo vou demonstrar como criar um sistema de login em Java, usando servlet , jsp , e html. A IDE usada será o Netbeans , Bom a primeira coisa a ser feita é criar um projeto web pelo NetBeans . Para isso, siga os seguintes passos. Menu     File → New Project Agora clique em Java Web, depois aplicação WEB. Agora clique em Next . Coloque um nome para sua aplicação WEB, e clique em finish . Novamente clique em Next . Feito isso, agora vamos criar o formulário para que o usuário entre com o Login e a senha. Formário HTML <%@page contentType="text/html" pageEncoding="UTF-8"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"    "http://www.w3.org/TR/html4/loose.dtd"> <html>     <head>         <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">         <titl...
Leia mais

Script para deletar e-mail de determinado remetente na fila do Postfix

#!/usr/bin/perl -w # # pfdel - deletes message containing specified address from # Postfix queue. Matches either sender or recipient address. # # Usage: pfdel <email_address> # use strict; # Change these paths if necessary. my $LISTQ = "/usr/sbin/postqueue -p"; my $POSTSUPER = "/usr/sbin/postsuper"; my $email_addr = ""; my $qid = ""; my $euid = $>; if ( @ARGV !=  1 ) {         die "Usage: pfdel <email_address>\n"; } else {         $email_addr = $ARGV[0]; } if ( $euid != 0 ) {         die "You must be root to delete queue files.\n"; } open(QUEUE, "$LISTQ |") ||   die "Can't get pipe to $LISTQ: $!\n"; my $entry = <QUEUE>;    # skip single header line $/ = "";                # Rest of queue entries print on                         # multiple lines. while ( $...
Leia mais