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

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

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: