bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Trabalhar com vários tipos de dados na consulta INSERT
Trabalhar com vários tipos de dados na consulta INSERT

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).



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: