ladyBlu
09-09-2002, 18:09
Ciao a tutti.
ho un problemuccio con una insert.
I campi da inserire sono tutte stringhe, fatta eccezione per Cartaceo,Elettronico e CD che sono booleani.
Vi posto il codice... se trovate il problema mi fate un grosso favore:
Public Sub Add()
Dim IntCartaceo As Integer, IntCD As Integer
Dim IntElettronico As Integer
If Cartaceo = True Then IntCartaceo = -1 Else IntCartaceo = 0
If Elettronico = True Then
IntElettronico = -1 & _
Else
IntElettronico = 0
End If
If CdAllegato = True Then IntCD = -1 Else IntCD = 0
miasql = "Insert into tbCataloghi " & _
"(Società,Testata,AnnoPubblicazione," & _
"MesePubblicazione,Revisione,Cartaceo," & _
"Elettronico,Categoria," & _
"Note,Tipologia,Lingua1,Lingua2," & _
"CdAllegato,DescrizioneCD,Piano,Armadio,Scaffale) "
miasql = miasql & "values (""" & Società & """,""" & Testata & _
""","""" & AnnoPubblicazione & """,""" & _
""""MesePubblicazione & """," & _
"""" & Revisione & ""","
miasql = miasql & IntCartaceo
miasql = miasql & IntElettronico
miasql = miasql & ",""" & Categoria & """," & _
"""" & Note & """,""" & _
& Tipologia & """," & _
"""" & Lingua1 & """,""" & _
& Lingua2 & ""","
miasql = miasql & IntCD
miasql = miasql & ",""" & DescrizioneCD & """," & _
"""" & Piano & """,""" & Armadio & """," & _
"""" & Scaffale & """)"
MiaConn.Execute (miasql)
End Sub
grazie a tutti.
:ciauz:
ho un problemuccio con una insert.
I campi da inserire sono tutte stringhe, fatta eccezione per Cartaceo,Elettronico e CD che sono booleani.
Vi posto il codice... se trovate il problema mi fate un grosso favore:
Public Sub Add()
Dim IntCartaceo As Integer, IntCD As Integer
Dim IntElettronico As Integer
If Cartaceo = True Then IntCartaceo = -1 Else IntCartaceo = 0
If Elettronico = True Then
IntElettronico = -1 & _
Else
IntElettronico = 0
End If
If CdAllegato = True Then IntCD = -1 Else IntCD = 0
miasql = "Insert into tbCataloghi " & _
"(Società,Testata,AnnoPubblicazione," & _
"MesePubblicazione,Revisione,Cartaceo," & _
"Elettronico,Categoria," & _
"Note,Tipologia,Lingua1,Lingua2," & _
"CdAllegato,DescrizioneCD,Piano,Armadio,Scaffale) "
miasql = miasql & "values (""" & Società & """,""" & Testata & _
""","""" & AnnoPubblicazione & """,""" & _
""""MesePubblicazione & """," & _
"""" & Revisione & ""","
miasql = miasql & IntCartaceo
miasql = miasql & IntElettronico
miasql = miasql & ",""" & Categoria & """," & _
"""" & Note & """,""" & _
& Tipologia & """," & _
"""" & Lingua1 & """,""" & _
& Lingua2 & ""","
miasql = miasql & IntCD
miasql = miasql & ",""" & DescrizioneCD & """," & _
"""" & Piano & """,""" & Armadio & """," & _
"""" & Scaffale & """)"
MiaConn.Execute (miasql)
End Sub
grazie a tutti.
:ciauz: