[VB6] Inserimento data all'interno di un DB Access (con SQL)

[agostinomiranda]

Raga!!! Non riesco ad inserire la data nel database.

la data nel programma viene inserita in una textbox in formato gg/mm/aaaa, questa data dovrebbe andare a finire in un database creato con access in un campo di tipo date.

Il mio risultato migliore (per modo di dire) è stato questo :
inserisco la data 15/01/2006 e nel database, con la istruzione insert di sql, mi ritrovo questo: 0.10.46.

Come faccio ad inserirla correttamente?

[Boolean]

nel tuo programma hai i campi collegati al DB?
oppure l'inserimento dei dati è fatto "manualmente"?

generalmente le date è bene inserirle secondo il formato #mm/dd/yyyy#

Boolean

[agostinomiranda]

l'inserimento è in modo manuale tramite codice.

[Boolean]

se mostrassi il codice che usi per inserire la data, magari si scoprirebbe l'errore...

Boolean

[oregon]

La data con un db Access va inserita sempre nel formato mm/dd/yyyy.

Comunque, come ti ha detto boolean, se non mostri il codice, non ci saranno molte risposte alla tua richiesta ...

[agostinomiranda]

questa e l'istruzione che uso :


.....
SQLAGGIUNGI = SQLAGGIUNGI & txt_data.Text & .....
.....

in txt_data inserisco la data con un bottone che esegue questo:

txt_data.Text = Now
con questa istruzione inserisco la data corrente del sistema

in sqlaggiungi c'e la stringa insert into che funziona bene, solamente la data me la inserisce in modo errato

[oregon]

Scusa ... ma cosa c'e' in SQLAGGIUNGI quando lo concateni con la data?

[agostinomiranda]

ecco il codice dell'aggiunta nel database

connessione.ConnectionString = ADOORDINI.ConnectionString
connessione.Open

SQLAGGIUNGI = "insert into ordine (codice_cli,data,quantita,importo_pezzo,saldo,nota _ordine) values ("
SQLAGGIUNGI = SQLAGGIUNGI & Val(txt_codice_cli.Text) & ","
SQLAGGIUNGI = SQLAGGIUNGI & txt_data.Text & ","
SQLAGGIUNGI = SQLAGGIUNGI & Val(txt_QUANTITA.Text) & ","
SQLAGGIUNGI = SQLAGGIUNGI & Val(txt_importo_pezzo.Text) & ","
SQLAGGIUNGI = SQLAGGIUNGI & Val(txt_saldo.Text) & ",'"
SQLAGGIUNGI = SQLAGGIUNGI & Txt_note.Text & "')"
comando.CommandText = SQLAGGIUNGI
comando.ActiveConnection = connessione
comando.Execute

[Boolean]

come ti dicevo prima, e come ribadiva anche Oregon, la data ad Access va passata come #mm/dd/yyyy#

io generalmente uso una funzione che mi fa il lavoro di conversione, eccola :

Function DateConv (sDate As String) As String
DateConv = "#" & month(sDate) & "/" & Day(sDate) & "/" & year(sDate) & "#"
End Function

il tuo codice diventerebbe quindi:

SQLAGGIUNGI = "insert into ordine (codice_cli,data,quantita,importo_pezzo,
saldo,nota_ordine) values (" 
SQLAGGIUNGI = SQLAGGIUNGI & Val(txt_codice_cli.Text) & "," 
SQLAGGIUNGI = SQLAGGIUNGI & DateConv(txt_data.Text)   & "," 
SQLAGGIUNGI = SQLAGGIUNGI & Val(txt_QUANTITA.Text) & "," 
SQLAGGIUNGI = SQLAGGIUNGI & Val(txt_importo_pezzo.Text) & "," 
SQLAGGIUNGI = SQLAGGIUNGI & Val(txt_saldo.Text) & ",'" 
SQLAGGIUNGI = SQLAGGIUNGI & Txt_note.Text & "')"

Boolean

[agostinomiranda]

GRAZIE MILLE!!! per la collaborazione