Trabalhar com vários tipos de dados na consulta INSERT
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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 SubPara 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 SubNota: para os campos do tipo Múltiplos Valores e Anexo, a técnica utilizada está neste meu artigo.
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Aprenda sobre filtragens
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Programação de relatórios - Parte 1
Como carregar o seu menu sem que ele vá para lista de suplementos
Vídeo - Criando Ribbons parte 1 - Conhecendo a estrutura Xml
| Não há comentário |