... Pague apenas R$47,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Trabalhar com vários tipos de dados na consulta INSERT

Tenho certeza que você já teve algum grau de dificuldade para fazer funcionar corretamente uma consulta de ação INSERT. Geralmente, a razão principal desta dificuldade está associada aos tipos de dados (string, data, números, ...) envolvidos no processo. 

Tenho uma regra para você: utilize apóstrofe ou aspas duplas, independentemente do tipo de dado. Observe com atenção, no código abaixo, os diversos tipos de dados:

Private Sub btInsert_Click()
Dim strSql$

strSql = "INSERT INTO tblTeste (NomeCliente,DataNascimento,Operadora,"
strSql = strSql & "ValorCobrado,Nota,Renovar,Desconto,Pontuação) VALUES "
strSql = strSql & "(""Pontocom Informática""," 'Tipo String
strSql = strSql & "'15/05/2005'," 'Tipo data
strSql = strSql & "'Vivo'," 'Tipo String
strSql = strSql & "'50,00'," 'Tipo Duplo
strSql = strSql & "'1267'," ' Tipo Longo
strSql = strSql & "'-1'," 'Tipo Booleano
strSql = strSql & "'6,50'," 'Tipo Moeda
strSql = strSql & "'4'" 'Tipo Byte
strSql = strSql & ");"

CurrentDb.Execute strSql

End Sub

Para o campo NomeCliente utilizei aspas duplas pelo fato de poder surgir nomes no cadastro com apóstrofe.  Exemplo: Alexandre D'avila

Segue o arquivo exemplo para você praticar:

Veja como fica o código utilizando campos de um formulário:

Private Sub btInsert_Click()
Dim strSql$

strSql = "INSERT INTO tblTeste (NomeCliente,DataNascimento,Operadora,"
strSql = strSql & "ValorCobrado,Nota,Renovar,Desconto,Pontuação) VALUES "
strSql = strSql & "('" & me!NomeCliente & "','" 'Tipo String
strSql = strSql & me!DataNascimento & "','" 'Tipo data
strSql = strSql & me!operadora & "','" 'Tipo String
strSql = strSql & me!ValorCobrado & "','" 'Tipo Duplo
strSql = strSql & me!Nota & "','" ' Tipo LOng
strSql = strSql & me!Renovar & "','" 'Tipo Boolean
strSql = strSql & me!Desconto & "','" 'Tipo Currency
strSql = strSql & me!Pontuação & "'" 'Tipo Byte
strSql = strSql & ");"

CurrentDb.Execute strSql

End Sub

Nota: para os campos do tipo Múltiplos Valores e Anexo, a técnica utilizada está neste meu artigo.

Bom estudo!


 

 


Não há comentário

Envie seu comentário: