[VB.net] DataGrid e calcolo Date

[jekisi]

Ascolta, se mi dai il tuo indirizzo e-mail ti faccio un video, mi viene meglio a spiegartelo

[mdnet]

Ho provato anche così

Dim DataSistema As DateTime = DateTime.Now
txtDataSistema.Text = DataSistema.AddDays(10).ToString("dd/MM/yyyy")


("Select * FROM tbStock where scadenza = "(DataSistema.AddDays(10).ToString("dd/MM/yyyy"))

Lancio e mi genera il seguente errore: - Cast non valido dalla stringa "13/11/2014" al tipo 'Integer'. -

Grazie

Qualcuno ha qualche info in merito ? GRAZIE !!!

[jekisi]

Fai così, metti un DateTimePicker e una textbox, nella proprietà text della textbox scrivi 10, che sono i giorni che devi aggiungere.
Metti un' altra textbox dove ti risulta la data odierna più 10.

Codice, scritto sul button o evento Load o vedi tu:

Dim data1 As DateTime = DateTime.Now
DateTimePicker1.Text = data1.ToString("dd/MM/yyyy")
TextBox2.Text = data1.AddDays(TextBox1.Text).ToString("dd/MM/yyyy")



Poi dimmi la query che devi eseguire............

[mdnet]

Ciao jekisi, io ho già provato con questo codice:

txtDataSistema.Text = DataSistema.AddDays(10).ToString("dd/MM/yyyy") ed effettivamente funziona perchè nel text txtDataSistema appare la data odierna + i 10 giorni.

Il problema sta nella query che è la seguente:

Dim cmd As OleDbCommand = New OleDbCommand("Select * FROM tbStock where scadenza="(txtDataSistema.Text), con) quindi selezionami tutti i record dalla tabella tbstock che abbiano la data uguale al textbox e a questo punto mi restituisce l'errore: Cast non valido dalla stringa "6/11/2014" al tipo 'Integer'.

[mdnet]

Secondo me a questo punto il problema è la formattazione della data (dd/MM/yyyy), bhaaaa forse sbaglierò ma mi sono fatto questa idea.

[oregon]

Secondo me a questo punto il problema è la formattazione della data (dd/MM/yyyy), bhaaaa forse sbaglierò ma mi sono fatto questa idea.

Utilizza i parametri come ti consigliano anche qui

http://www.visual-basic.it/Forum/tab...x#.VE-JyfmG9zs

[jekisi]

Prima di rispondere e risolverti il problema, 2 domande:

Usi un db Access?

Il campo DATA è un campo Data/ora o un campo testo.

[mdnet]

Ringrazio infinitamente l'utente che mi ha fornito questo es. per me risolutivo.

Dim dataOggi As DateTime = DateTime.Today

Dim aVenti As DateTime = dataOggi.AddDays(20)

Dim query As String = "Select * from tabella where scadenza = @venti"



Dim con As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;" & _

"data source=c:\test\data\test.mdb")

Dim cmd As New OleDbCommand(query, con)

cmd.Parameters.Add(New OleDbParameter("@venti", _

OleDbType.Date)).Value = aVenti