Private Sub Combo1_Change()
If Combo1.Index = 1 Then
Adodc1.RecordSource = "cap"
ElseIf Combo1.Index = 2 Then
Adodc1.RecordSource = "località"
ElseIf Combo1.Index = 3 Then
Set tabella.ActiveConnection = connessione
query = "select nome, cognome, località.località as località, cap.cap as cap into generale from cliente, località, cap " _
& " where cliente.località = località.id and località.cap = cap.id"
tabella.Open query
connessione.Close
connessione.Open
Adodc1.RecordSource = "generale"
End If
Rispondi quotando