Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. WinForms / WPF .NET
Impossibile trovare la proprietà DataMember "tbAnagraficoAziende" in D...
sabato 08 novembre 2008 - 07.11
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
andyv1957
Profilo
| Newbie
18
messaggi | Data Invio:
sab 8 nov 2008 - 07:11
Ho una query basata su due tabelle, una delle due è usata due volte perchè contiene la decodifica dei valori di due campi della prima tabella.
In ACCESS (è questo il database che utilizzo), mi appare una vista che contiene tutte le colonne delle tabelle inserite nella Query, quando la inserisco nel codice del mio programma, invece, mi appare il messaggio di errore:
- ArgumentException non è stata gestita
Impossibile trovare la proprietà DataMember 'tbAnagraficoAziende' in DataSource.
Se tolgo le textbox che puntano a tbAnagraficoAziende.Proprietario e tbAnagraficoAziende.Locatario le textbox rimaste, che puntano ai campi di tbPBGenerale, vengono popolate correttamente.
Se modifico la riga Me.txbMatricola.DataBindings.Add("text", bs, "Matricola") in Me.txbMatricola.DataBindings.Add("text", bs, "tbGenerale.Matricola") mi genera lo stesso errore con scritto: Impossibile trovare la proprietà DataMember 'tbGenerale' in DataSource.
Se provo ad interrogare la Table da Finestra di controllo immediata con ?ds.Tables("tblVistaVeicoli").Columns(92).ToString mi restituisce tbAnagraficoAziende.Azienda
Il codice è questo che riporto qui di sotto e nonostante lo stia ripetutamente analizzando, non riesco a trovare dov'è l'errore, che c'è sicuramente.
Dov'è che sbaglio ?????
Imports System.Drawing.Printing
Imports System.Data
Public Class FormVistaVeicolo
Dim StrSQL As String
StrSQL = "SELECT " & _
"tbGenerale.*, tbAnagraficoAziende.*, tbAnagraficoAziende_1.* " & _
"FROM (tbGenerale " & _
"LEFT JOIN tbAnagraficoAziende ON tbGenerale.Proprietario = tbAnagraficoAziende.ID) " & _
"LEFT JOIN tbAnagraficoAziende AS tbAnagraficoAziende_1 ON tbGenerale.Locatario = tbAnagraficoAziende_1.ID"
' DataSet
Dim ds As New DataSet("TblVistaVeicoli")
' DataAdapter
Dim da As New OleDb.OleDbDataAdapter(StrSQL, cnDBParcoBus)
' BindingSource
Dim bs As New BindingSource()
Private Sub FormVistaVeicolo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
da.Fill(ds, "TblVistaVeicoli")
bs.DataSource = ds
bs.DataMember = "TblVistaVeicoli"
'Popola le textbox
Me.txbMatricola.DataBindings.Add("text", bs, "Matricola")
Me.txbTarga.DataBindings.Add("text", bs, "Targa")
Me. ......
Me.txbProprietario.DataBindings.Add("text", bs, "tbAnagraficoAziende.Azienda")
Me.TxbIndirizzoProprietario.DataBindings.Add("Text ", bs, "tbAnagraficoAziende.Indirizzo")
Me. ......
Me.TxbLocatario.DataBindings.Add("text", bs, "tbAnagraficoAziende_1.Azienda")
Me.TxbIndirizzoLocatario.DataBindings.Add("Text", bs, "tbAnagraficoAziende_1.Indirizzo")
Me. ......
Me.txbFabbrica.DataBindings.Add("text", bs, "Fabbrica")
Me.txbModello.DataBindings.Add("text", bs, "Modello")
Me. ......
'Visualizza la scritta VEICOLO RADIATO, in rosso, se la condizione è vera, non visualizza niente se è falsa
TxbVeicoloAlienato.Text = CStr(IIf(Me.MtbDataDiAlienazione.Text = " / /", "", "VEICOLO ALIENATO"))
'mostra la posizione del cursore rispetto al numero totale delle righe
Me.lblRecord.Text = bs.Position + 1 & " di " & bs.Count
End Sub
End Class
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !