SABER TIPO DE CAMPO

JOAOBENEVIDES 02/08/2011 11:12:38
#380585
Ola Pessoal é possivel eu saber qual tipo de campo quando eu uso o banco de dados eu uso esta
[ô]Select Case ValorCampo.Type
[ô] Case adChar, adVarChar, adLongVarChar, adVarWChar, adLongVarWChar
[ô]MsgBox [Ô]ola[Ô]
[ô] Case adUnsignedTinyInt, adSmallInt, adBigInt, adBoolean, adCurrency, adDecimal, adDouble, adInteger, adNumeric, adSingle
[ô]MsgBox [Ô]ola2[Ô]
[ô] Case adDate, adDBDate, adDBTimeStamp
[ô]MsgBox [Ô]data[Ô]
[ô] End Select
mais queria saber quando é uma variavel e possivel saber quam campo
ROBIU 02/08/2011 11:33:51
#380588 Resposta escolhida
O que é esse ValorCampo.Type e como você faz para carrega-lo? Está usando ADOX? Posta o código.
JOAOBENEVIDES 02/08/2011 11:43:00
#380590
Sub UpdateNotasProd(tipo As String, Campo As String, ValorCampo As String, CampoValor As Boolean, Numero As Integer)
Dim texto As String

[ô]Select Case ValorCampo.Type
[ô] Case adChar, adVarChar, adLongVarChar, adVarWChar, adLongVarWChar
[ô]MsgBox [Ô]ola[Ô]
[ô] Case adUnsignedTinyInt, adSmallInt, adBigInt, adBoolean, adCurrency, adDecimal, adDouble, adInteger, adNumeric, adSingle
[ô]MsgBox [Ô]ola2[Ô]
[ô] Case adDate, adDBDate, adDBTimeStamp
[ô]MsgBox [Ô]data[Ô]
[ô] End Select



If CampoValor = True Then
texto = [Ô]update nfe_entrada_prod set [Ô] & tipo & Campo & [Ô]=[Ô] & PreparaValorSQL(ValorCampo) & [Ô] where prod_nritem=[Ô] & Aspas(Numero)
de.DB.Execute texto
Else
texto = [Ô]update nfe_entrada_prod set [Ô] & tipo & Campo & [Ô]=[Ô] & Aspas(ValorCampo) & [Ô] where prod_nritem=[Ô] & Aspas(Numero)
de.DB.Execute texto
End If
End Sub

mais lembrando ate onde eu sei so pode fazer via ado e eu estou carregando uma variaves
ROBIU 02/08/2011 12:58:51
#380599
de onde ValorCampo.Type recebe valor?
Como é isso: PreparaValorSQL(ValorCampo)?
e isso aqui? & tipo & Campo & [Ô]=[Ô]
Como é sua conexão e qual banco de Dados
seu select funciona? Se funciona, faz assim:

[ô]Select Case ValorCampo.Type
[ô]    Case adChar, adVarChar, adLongVarChar, adVarWChar, adLongVarWChar
texto= [Ô]Select ... From ... Where Campo=[ô][Ô] & valor & [Ô][ô][Ô] 
[ô]    Case adUnsignedTinyInt, adSmallInt, adBigInt, adBoolean, adCurrency, adDecimal, adDouble, adInteger, adNumeric, adSingle
texto= [Ô]Select ... From ... Where Campo=[Ô] & valor
[ô]    Case adDate, adDBDate, adDBTimeStamp
texto = sua sql com tratamento para campo data
end select
Tópico encerrado , respostas não são mais permitidas
Voltar