02/12/06 19:29
jamby
Come da oggetto come posso fare?
Ho utilizzato questo codice:
' Apro la connessione
conn1.Open()
' Imposto la Stringa SQL (si potrebbe assegnare una tabella o una query)
Dim dbComm As OleDbCommand = New OleDbCommand("SELECT connessioni.id, connessioni.data, utenti.cognome, utenti.nome, connessioni.inizio, connessioni.durata, connessioni.tot_euro FROM utenti, connessioni WHERE connessioni.id_utente=utenti.id AND connessioni.data='" & appu.Text & "'", conn1)
' Ovviamente comando di tipo testo (in questo caso)
dbComm.CommandType = CommandType.Text
' Assegno il comando al Data Adapter
dbApt.SelectCommand = dbComm
' ***********
ds1 = New DataSet
' ripulisco il dataset
ds1.Clear()
' popolo il dataset
dbApt.Fill(ds1, "connessioni"
'modifico i titoli delle colonne
ds1.Tables("connessioni".Columns("id".ColumnName = "COD."
ds1.Tables("connessioni".Columns("data".ColumnName = "DATA"
ds1.Tables("connessioni".Columns("cognome".ColumnName = "COGNOME"
ds1.Tables("connessioni".Columns("nome".ColumnName = "NOME"
ds1.Tables("connessioni".Columns("inizio".ColumnName = "INIZ. ORA"
ds1.Tables("connessioni".Columns("durata".ColumnName = "DURATA"
ds1.Tables("connessioni".Columns("tot_euro".ColumnName = "TOT. €"
'Assegno la sorgente al Datagrid
DataGrid1.DataSource = ds1
' Assegno la tabella da visualizzare
DataGrid1.DataMember = "connessioni"
DataGrid1.Enabled = True
' chiudo la connessione
conn1.Close()
Nella colonna ds1.Tables("connessioni".Columns("inizio".ColumnName = "INIZ. ORA" invece di scrivere un valore di tipo data come questo 1.43.22 mi scrive 30/12/189
....COME DEVO FARE?
Ho utilizzato questo codice:
' Apro la connessione
conn1.Open()
' Imposto la Stringa SQL (si potrebbe assegnare una tabella o una query)
Dim dbComm As OleDbCommand = New OleDbCommand("SELECT connessioni.id, connessioni.data, utenti.cognome, utenti.nome, connessioni.inizio, connessioni.durata, connessioni.tot_euro FROM utenti, connessioni WHERE connessioni.id_utente=utenti.id AND connessioni.data='" & appu.Text & "'", conn1)
' Ovviamente comando di tipo testo (in questo caso)
dbComm.CommandType = CommandType.Text
' Assegno il comando al Data Adapter
dbApt.SelectCommand = dbComm
' ***********
ds1 = New DataSet
' ripulisco il dataset
ds1.Clear()
' popolo il dataset
dbApt.Fill(ds1, "connessioni"
'modifico i titoli delle colonne
ds1.Tables("connessioni".Columns("id".ColumnName = "COD."
ds1.Tables("connessioni".Columns("data".ColumnName = "DATA"
ds1.Tables("connessioni".Columns("cognome".ColumnName = "COGNOME"
ds1.Tables("connessioni".Columns("nome".ColumnName = "NOME"
ds1.Tables("connessioni".Columns("inizio".ColumnName = "INIZ. ORA"
ds1.Tables("connessioni".Columns("durata".ColumnName = "DURATA"
ds1.Tables("connessioni".Columns("tot_euro".ColumnName = "TOT. €"
'Assegno la sorgente al Datagrid
DataGrid1.DataSource = ds1
' Assegno la tabella da visualizzare
DataGrid1.DataMember = "connessioni"
DataGrid1.Enabled = True
' chiudo la connessione
conn1.Close()
Nella colonna ds1.Tables("connessioni".Columns("inizio".ColumnName = "INIZ. ORA" invece di scrivere un valore di tipo data come questo 1.43.22 mi scrive 30/12/189
....COME DEVO FARE?
aaa