URGENTE - ERRO NO INSERT INTO

GUTO 07/06/2005 16:04:47
#87501

bom no meu exemplo , eu naun entrava campos autonumercao , em campo numericos naun usava aspas simpes e aspas duplas, e o os campos datas , sempre deram erros e so aceitavam sefose no formato texto, e numericos como campo memorando, mas vai fazendo na unha irmao tipo , um campo por campo ,ate ver que campo esta dano problema testa com o Msgbox
o meu insert into esta assim


rsApartamentos.Delete adAffectCurrent
cnBd.Execute "insert into Tbl_Apartamentos (Codigo, CodigoImo, NumChave, Data_Aluguel, Data_Saida, Data_Entrada, nomeEd, Descricao, Rua, Bairro, numero, Dormitorios, Sala, Cozinha, Numero_Ap, Garagem, AreaConstruida, Cidade, AreaUtil, Valor, observacao, Parcela, Banco, Agencia, Conta, Cep ) Values (" & txtcod.Text & "," & txtcodimo.Text & ",'" & txtNumChave.Text & "','" & txtdata.Text & "','" & txtdatasaida.Text & "','" & txtdataEnt.Text & "','" & txtname.Text & "','" & txtdescricao.Text & "','" & txtrua.Text & "','" & txtbairro.Text & "','" & txtnum.Text & "','" & txtdormitorio.Text & "','" & txtsala & "','" & txtcozi & "','" & txtn & "','" & txtgaragem & "','" & txtmetra & "','" & txtcidade & "','" & txtutil & "','" & txtvalor & "','" & txtobsdorm & "','" & txtnumparcela & "','" & txtbanco & "','" & txtagencia & "','" & txtconta & "','" & txtcep & "')"
rsApartamentos.Requery

e no form load do form esta assim

rsApartamentos.CursorLocation = adUseClient

GUTO 07/06/2005 16:08:28
#87503

dtsaida.Text & "','" & hrsaida.Text & "' '" & unidade.Text & "'

perceba q vc esta usando como se todos os seus campos no banco fossem Texto

USUARIO.EXCLUIDOS 07/06/2005 17:49:46
#87547 Resposta escolhida

Option Explicit
Public Enum TipoCampos
texto = 0
numero = 1
Data = 2
SimNao = 3
Memo = 4
Hora = 5
DtAccess = 6
End Enum

'***********************************************************************
'* esta funcao tem por objetivo retornar instrucao formatada para SQL *
'* Parametros: Valor = valor passado para a funcao formatar *
'* Formato = é o tipo de formato a ser formatado este pode*
'* ser numero,texto,data,hora,true e false *
'***********************************************************************
Public Function SqlFormata(Valor As Variant, Formato As TipoCampos) As String
Dim X As Integer
If Formato = numero Then 'Se O Valor Escolhido for Numero
If IsNull(Valor) Then
SqlFormata = 0
End If
If Valor = Null Then
SqlFormata = 0
End If
If IsEmpty(Valor) Then
SqlFormata = 0
End If
If Valor = "" Then
SqlFormata = 0
End If
For X = 1 To Len(Valor)
If Mid(Valor, X, 1) = "," Then
SqlFormata = SqlFormata & "."
ElseIf Mid(Valor, X, 1) <> "." Then
SqlFormata = SqlFormata & Mid(Valor, X, 1)
End If
Next X
ElseIf Formato = Data Then 'O Valor Escolhido e uma Data
If IsDate(Valor) Then
SqlFormata = "#" & Format(Valor, "MM/DD/YYYY") & "#"
Else
SqlFormata = "NULL"
End If
ElseIf Formato = texto Then 'O Valor Escolhido e um Texto
SqlFormata = IIf(IsNull(Valor), "NULL", "'" & Valor & "'")
ElseIf Formato = Hora Then
SqlFormata = IIf(IsNull(Valor), "NULL", "#" & Format(Valor, "hh:mm:ss") & "#")
ElseIf Formato = SimNao Then
SqlFormata = IIf(Valor, True, False)
ElseIf Formato = DtAccess Then 'O Valor Escolhido e uma Data em Access
If IsDate(Valor) Then
SqlFormata = "#" & Format(Valor, "MM/DD/YYYY") & "#"
Else
SqlFormata = "NULL"
End If
End If
End Function

'
'utilize esta funcao da seguinte maneira
Dim strSQL as string

strSQL = "Insert into tabela (campo_N,campo_T,Campo_D) values ("
strSQL = strSQL & sqlformata(10.00,Numero) & ","
strSQL = strSQL & sqlformata("Testes",texto) & ","
strSQL = strSQL & sqlformata("07/06/2005",dtaccess) & ");"

'Pronto voce tera uma SQL pronta pra uso.