Italian Query impossibile

LordZenzo

Well-Known Member
Licensed User
Longtime User
Dim objSpesa As clsSpesa
objSpesa.Initialize

objSpesa.ReadByData(Data As Long) [oppure objSpesa.FillByData]

objSpesa.Insert

objSpesa.Update

...

Non male, no?
ma dovrebbe comunque creare la query dentro la classe, riutilizzabile, e se sbaglia a fare la query non importa dove, sbaglia comunque...
 

tactic1960

Member
Licensed User
Longtime User
Ciao, nella mia app ( da relax ) ho una tabella spese, guarda caso, che ha più o meno i campi della tua e l'ho gestita così :

Dim la_CampiSpese( 5 ) As Object

la_CampiSpese( 0 ) = Null
la_CampiSpese( 1 ) = ar_spese.cconto
la_CampiSpese( 2 ) = ar_spese.nrotel
la_CampiSpese( 3 ) = ar_spese.dd
la_CampiSpese( 4 ) = ar_spese.mm

Starter.g_SQL.BeginTransaction()

Starter.g_SQL.ExecNonQuery2( "INSERT INTO spese VALUES( ?, ?, ?, ?, ? )", la_CampiSpese )

Starter.g_SQL.TransactionSuccessful()
Starter.g_SQL.EndTransaction()

Praticamente :
1) definisci un array di OBJECT con tanti elementi quante sono le colonne della tabella
2) Il primo elemento, é un campo autoincrement lo valorizzi a NULL
3) Chiami la ExecNonQuery2 come suggerito da LucaMs

Deve andare

Ciao, Massimo
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…