[Risolto] Query dati non corrispondenti

[Golia]

Ciao a tutti
Avrei bisogno di creare una query che mi trovi i dati non corrispondenti tra 2 tabelle.
Mi spiego, le tabelle sono identiche hanno gli stessi campi
devo controllare se su "clienti1" ho qualche cliente in più di "clienti2"

Esempio
Clienti1 = "Rossi" , "Verdi", "Gialli"
Clienti2 = "Rossi" , "Verdi"

Come faccio a sapere che cliente manca in "clienti2" ?

Ciao grazie

[Ceskho]

Ma i clienti sono ordinati o sono messi a casaccio?

Mi spiego meglio...dovresti cercare le differenze anche tra, ad esempio:

clienti1 = "Rossi", "Verdi", "Gialli", "Blu"
clienti2 = "Verdi", "Blu", "Rossi"

?

O sono sempre in ordine?

[Golia]

Possono anche essere messi in disordine, devo confrontare l'id. Ho fatto l'esempio con i nomi per capire meglio

[milio]

prova questa:

SELECT IdCliente FROM Tabella1 WHERE IdCliene NOT IN (SELECT IdCliente FROM Tabella2);

restituisce gli id clienti della tabella1 che non sono presenti nella tabella2.

[Golia]

Grazie Milio, ti faccio sapere stasera
Ciao

[Golia]

Credevo di fare un controllo tra due tabelle, invece mi sono sbagliato di grosso...(scusa milio, la tua query non l'ho provata perchè mi sembra che adesso non va più bene, però me la conservo :-D )
Devo fare si un controllo tra due tabelle, ma due tabelle di due database diversi..
Scusatemi ma al momento pensavo bastasse la query normale tra due tabelle.
Passo dei dati da tabella mysql a tabella sqlite

i dati sqlite li ricavo così:

Codice: [Seleziona]

          sql = "SELECT * FROM clienti"
          MyRS = MODMain.$connsqlite.Exec(sql)

i dati mysql li ricavo così:

Codice: [Seleziona]

          sql = "SELECT * FROM clienti"
          MyRS1 = MODMain.$connmysql.Exec(sql)

Adesso devo trovare i clienti che mancano in MyRS1 da MyRS.

Grazie

[milio]

Codice: [Seleziona]

PUBLIC FUNCTION TrovaDiff() AS Result
DIM IdClienti AS String
DIM sql AS String
DIM MyRS AS Result
DIM Nx AS Integer

  'Tabella dove cerchi i clienti mancanti
  sql = "SELECT Id FROM clienti"
  MyRS = MODMain.$connmysql.Exec(sql)

  IdClienti = "("
  FOR Nx = 0 TO MyRS.Max
    IdClienti &= MyRS["Id"] & ","
  NEXT
  IdClienti = Left(IdClienti, -1) & ")"

  'Tabella completa
  sql = "SELECT Id FROM clienti WHERE Id NOT IN " & IdClienti & ";"
  RETURN = MODMain.$connsqlite.Exec(sql)

END

Comunque secomdo me se vuoi la copia esatta delle due tabelle ti conviene cancellare e ricopiare i dati. Anche perche' tu ti preoccupi solo di inserire nuovi clienti, ma se poi vai a variare qualche dato nell'anagrafica?

[Golia]

Grazie, la copia non posso farla, perchè nel database dove vado a versare i dati viene aggiornato e quindi cancellerei i dati che non sono presenti nella fonte. Così controllo solo di non fare doppioni, certo che devo controllare con nome e cognome più che id. Scusami se non mi sono spiegato chiaramente ma (almeno per me) il discorso è un pò complesso, non connetto neanche da solo figuriamoci spiegarlo :lol: .
Grazie della funzione, ti faccio sapere.
Ciao

[Golia]

Grazie Milio, funziona alla grande :ok:

Codice: [Seleziona]

PUBLIC FUNCTION TrovaDiff() AS Result
DIM IdClienti AS String
DIM sql AS String
DIM MyRS AS Result
DIM Nx AS Integer

  'Tabella dove cerchi i clienti mancanti
  sql = "SELECT Id FROM clienti"
  MyRS = MODMain.$connmysql.Exec(sql)

  IdClienti = "("
  FOR Nx = 0 TO MyRS.Max
    IdClienti &= MyRS["Id"] & ","
    MyRS.movenext ' CI MANCAVA SOLO QUESTO
  NEXT
  IdClienti = Left(IdClienti, -1) & ")"

  'Tabella completa
  sql = "SELECT Id FROM clienti WHERE Id NOT IN " & IdClienti & ";"
  RETURN = MODMain.$connsqlite.Exec(sql)

END 

Ci mancava solo "MyRS.movenext" Grazie mille

[milio]

ok e' vero.... nella fretta di scrivere...  :oops:  

io uso anche il MyRS.MoveTo(Nx)
comunque e' lo stesso...

[Golia]

MyRS.MoveTo(Nx)
Farò tesoro :-D
Ciao grazie