Buona domenica a tutti, anche se il tempo è quello che è
Il mio problema è questa querry con l'inner join
ho due tabelle con dei campi uguali e chiaramente mi da l'errore " err. via "
come posso fare per risolvere l'inghippo ? cambio nome del campo a una tabella
o c'è qualche altra soluzione, che io purtroppo non cò
allego querry
grazie del vostro aiuto
Cerca = Val(Me.ComboClienti0.SelectedValue.ToString())
Dim Cn As New OleDb.OleDbConnection(Percorso)
Dim Trova As String = ""
Trova = "SELECT archivio_Clienti.idgruppo,archivio_Clienti.id_Cliente,archivio_Clienti.nome,archivio_Clienti.cognome" _
& ",archivio_Clienti.via,archivio_Clienti.codicefiscale,archivio_Clienti.cap," _
& ",archivio_Clienti.N_documento,archivio_Clienti.idgruppo,archivio_gruppi.ragione_sociale,archivio_gruppi.nome_cognome," _
& "archivio_gruppi.via,archivio_gruppi.citta,archivio_gruppi.cap,archivio_gruppi.provincia,archivio_gruppi.stato,archivio_gruppi.partitaiva1" _
& " FROM archivio_Clienti INNER Join archivio_gruppi On archivio_Clienti.idgruppo = archivio_gruppi.id_gruppo" _
& " Where archivio_Clienti.id_Cliente = "& Cerca & ""
Cn.Open()
Dim cmd As New OleDb.OleDbCommand(Trova, Cn)
Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
dr.Read()
Dim nome As String = dr.Item("nome").ToString
Dim cognom As String = dr.Item("cognome").ToString
TxtClienti0.Text = nome & " "& cognom
TxtClienti1.Text = dr.Item("via").ToString
TxtClienti2.Text = dr.Item("cap").ToString
TxtClienti3.Text = dr.Item("citta").ToString
TxtClienti4.Text = dr.Item("provincia").ToString
TxtClienti5.Text = dr.Item("stato").ToString
TxtClienti6.Text = dr.Item("codicefiscale").ToString
TxtClienti8.Text = dr.Item("N_documento").ToString
LabGruppi0.Text = dr.Item("ragione_sociale").ToString
LabGruppi1.Text = dr.Item("nome_cognome").ToString
LabGruppi2.Text = dr.Item("via").ToString
LabGruppi3.Text = dr.Item("citta").ToString
LabGruppi4.Text = dr.Item("cap").ToString
LabGruppi5.Text = dr.Item("provincia").ToString
LabGruppi6.Text = dr.Item("stato").ToString
LabGruppi7.Text = dr.Item("partitaiva1").ToString
dr.Close()
Cn.Close()