RES: [firebase-br] Adicionar dados

[Marcos Alexandre de Souza]

Carlos...
Está não é a melhor forma. Use isso é mais rápido e seguro :
Obs.: Utilizo o Interbase Server 6
Se precisar de mais detalhes entre em contato.

SQL = ""
SQL = "INSERT INTO VendaInterna (cdVendaInterna,"
      SQL = SQL & "cdEmpresa,"
      SQL = SQL & "cdFuncionario,"
      SQL = SQL & "dtEntrada,"
      SQL = SQL & "cdRecepcionista,"
      SQL = SQL & "cdCamarera,"
      SQL = SQL & "nuNota,"
      SQL = SQL & "moDescAcrecimo,"
      SQL = SQL & "moVlTotal,"
      SQL = SQL & "hrVenda,"
      SQL = SQL & "tpAcrescimo,"
      SQL = SQL & "tpDesconto,"
      SQL = SQL & "nuPercentual,"
      SQL = SQL & "dsAnotacao,"
      SQL = SQL & "cdSuite,"
      SQL = SQL & "nuPlaca,"
      SQL = SQL & "hrEntrada,"
      SQL = SQL & "hrSaida,"
      SQL = SQL & "nmHostAud,"
      SQL = SQL & "dtRegAud,"
      SQL = SQL & "cdProfSist) VALUES ( "

      SQL = SQL & TxtcdVendaInterna.Text & ","
      SQL = SQL & IntCdEmpresa & ","
      SQL = SQL & DblCdFuncionarioLogado & ","
      SQL = SQL & "'" & Format(MskDtEntrada.Text, "m/d/yyyy") & "',"
      SQL = SQL & TxtcdRecepcionista.Text & ","
      SQL = SQL & TxtcdCamarera.Text & ","
      SQL = SQL & "'" & TxtnuNota.Text & "',"
      SQL = SQL & "'" & TxtmoDescAcrescimo.Text & "',"
      SQL = SQL & "'" & CCur(TxtmoVlTotal.Text) & "',"
      SQL = SQL & "'" & Format(Time, "hh:mm") & "',"
      If OpttpAcrescimo.value = True Then SQL = SQL & "1," Else SQL = SQL &
"0,"
      If OpttpDesconto.value = True Then SQL = SQL & "1," Else SQL = SQL &
"0,"
      SQL = SQL & "'" & TxtnuPercentual.Text & "',"
      SQL = SQL & "'" & TxtdsAnotacao.Text & "',"
      SQL = SQL & TxtcdSuite.Text & ","
      SQL = SQL & "'" & TxtnuPlaca.Text & "',"
      SQL = SQL & "'" & MskhrEntrada.Text & "',"
      SQL = SQL & "'" & MskhrSaida.Text & "',"
      SQL = SQL & "'" & StrMaquina & "',"
      SQL = SQL & "'" & Format(Date, "m/d/yyyy") & "',"
      SQL = SQL & DblcdUsuario & ")"

      objCon.BeginTrans
      objCon.Execute SQL
      objCon.CommitTrans

Atenciosamente,
Marcos Alexandre de Souza
Diretor de Desenvolvimento
Vbma Solutions
+ 55 (31) 9625-5030
+ 55 (31) 3826-6777
MSN:marcos em vbmasolutions.com
http://www.vbmasolutions.com

-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br]Em
nome de Carlos H. Cantu
Enviada em: quinta-feira, 5 de maio de 2005 17:11
Para: FireBase
Assunto: Re: [firebase-br] Adicionar dados

Eu não conheço VB, mas muito provavelmente os comandos que vc listou
estão sendo convertidos em insert por baixo dos panos.

[]s
Cantu
http://www.warmboot.com.br
FireBase - http://www.FireBase.com.br

dtcb> Galera, comprei o livro do Cantu, bom o livro, mas uma duvida ainda me
persegue.
dtcb> Uso o VB, e sempre inseri dados no banco assim
dtcb> rs.addnew
dtcb> rs!nome = "Meu Nome"
dtcb> rs.update

dtcb> Quero saber se assim é melhor de trabalhar ou utilizando
dtcb> Insert Into??
dtcb> Obrigado



______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas:
http://search.gmane.org/search.php?group=firebase