24/01/09 18:24
xone2003
Rieccomi...
nella soluzione che pian piano sto creando ho pensato di creare una form per sfogliare tramite diverse text box e pulsanti previuos, next..ecc.. i dati di un database.
Ovviamente sto seguendo anche le indicazioni di una guida cartacea, che però utilizza query sql e quindi sqlconnection ecc..
magari sto dicendo una fesseria, però mi è più comodo usare linq e quindi non avendo bisogno di impostare nessuna connessione ecco il problema che viene al dunque.
scrivendo il codice sottostante ed eseguendo il debug esce l'errore di cui al topic e non viene caricata la form; dopo alcune prove ho scoperto che la riga che genera l'errore è quella del "dim objdataAdapter = From ..." che contiene in pratica la qry.
Non trovo soluzione al problema e sicuramente per un esperto è una sciocchezza!
nella soluzione che pian piano sto creando ho pensato di creare una form per sfogliare tramite diverse text box e pulsanti previuos, next..ecc.. i dati di un database.
Ovviamente sto seguendo anche le indicazioni di una guida cartacea, che però utilizza query sql e quindi sqlconnection ecc..
magari sto dicendo una fesseria, però mi è più comodo usare linq e quindi non avendo bisogno di impostare nessuna connessione ecco il problema che viene al dunque.
scrivendo il codice sottostante ed eseguendo il debug esce l'errore di cui al topic e non viene caricata la form; dopo alcune prove ho scoperto che la riga che genera l'errore è quella del "dim objdataAdapter = From ..." che contiene in pratica la qry.
Non trovo soluzione al problema e sicuramente per un esperto è una sciocchezza!
Public Class Detail Dim objDataAdapter = From riga As DBDatiBiciDataSet.DatiBiciRow In Me.DbDatiBiciDataSet.DatiBici Select riga Dim objDataSet As DataSet Dim objDataView As DataView Dim objCurrencyManager As CurrencyManager Private Sub FillDataSetAndView() objDataSet = New DataSet() objDataAdapter.fill(objDataSet, "DatiBici") objDataView = New DataView(objDataSet.Tables("DatiBici")) objCurrencyManager = CType(Me.BindingContext(objDataView), CurrencyManager) End Sub Private Sub bindfields() 'cancello ogni precedente collegamento TB_Bike.DataBindings.Clear() TB_Cat.DataBindings.Clear() TB_Anno.DataBindings.Clear() TB_Day.DataBindings.Clear() TB_Data.DataBindings.Clear() TB_Km.DataBindings.Clear() TB_Vmax.DataBindings.Clear() TB_Avg.DataBindings.Clear() TB_TT.DataBindings.Clear() RTB_Partec.DataBindings.Clear() RTB_Note.DataBindings.Clear() RTB_CondMet.DataBindings.Clear() RTB_Descrizione.DataBindings.Clear() 'collego le TextBox ai campi della tabella datibici. TB_Bike.DataBindings.Add("Text", objDataView, "Bicicletta") TB_Cat.DataBindings.Add("Text", objDataView, "Categoria") TB_Anno.DataBindings.Add("Text", objDataView, "Anno") TB_Day.DataBindings.Add("Text", objDataView, "Giorno") TB_Data.DataBindings.Add("Text", objDataView, "Data") TB_Km.DataBindings.Add("Text", objDataView, "Chilometraggio") TB_Vmax.DataBindings.Add("Text", objDataView, "VelocitàMax") TB_Avg.DataBindings.Add("Text", objDataView, "VelocitàMedia") TB_TT.DataBindings.Add("Text", objDataView, "TempoTotale") RTB_Partec.DataBindings.Add("Text", objDataView, "Partecipanti") RTB_Note.DataBindings.Add("Text", objDataView, "Note") RTB_CondMet.DataBindings.Add("Text", objDataView, "CondizioniMeteo") RTB_Descrizione.DataBindings.Add("Text", objDataView, "Descrizione") ToolStripStatusLabel1.Text = "ready" End Sub
Ultima modifica effettuata da xone2003 24/01/09 18:28
aaa