contedisantabarbara (Normal User)
Newbie
Messaggi: 16
Iscritto: 03/02/2009
|
amici, chiediamo venia fin dal principio che ci scoccia a morte dovervi tediare con tali futilità, tuttavia non sappiamo proprio dove sbattere la nostra nobile quanto poco capiente capoccia. :-(
andiamo al sodo: avendo un database contenente, per far giusto un esempio, nomi e cognomi, come facciamo per ottenere una lista contenente tutte le possibili combinazioni degli stessi, utilizzando vb6?
del tipo: bianchi e rossi per i cognomi e mario e maria per i nomi, vorremmo ottenere una text contenente rossi mario, rossi maria, bianchi mario e bianchi maria.
abbiamo provato fin'ora con alchimie inenarrabili ma niente. :-(
possiamo confidare nella vostra saggezza e soprattutto nella vostra comprensione?
il vostro conte di santa barbara, imbarazzato come un cercopiteco per la propria ignoranza in materia.
|
|
|
TheDarkJuster (Member)
Guru^2
Messaggi: 1620
Iscritto: 27/09/2013
|
Originale come richiesta di aiuto.
Prima di tutto devo sapere che database è.
In secondo luogo cosa hai provato finora, non il codice... che metodi hai utilizzato.
|
|
|
contedisantabarbara (Normal User)
Newbie
Messaggi: 16
Iscritto: 03/02/2009
|
signor darkjuster lei ci onora con il suo interessamento.
con estremo imbarazzo ecco le soluzioni tentate:
realizzazione di tante caselle di testo quanti i nomi e quanti i cognomi; realizzazione delle combinazioni tramite codice del tipo:
riga1 = cognome1.text & nome1.text
....
textcomplessiva.text = riga1...
quando ci siamo accorti che dovevamo manualmente predisporre quaranta caselle di testo per 400 combinazioni da scrivere tutte in codice ci e' venuto da star male. :-(
poi abbiamo provato a fare tutto via codice, inserendo nomi e cognomi direttamente in codice anzichè nelle caselle di testo, tipo
cognome1 = "rossi"
....
nome1 = "mario"
....
riga1 = cognome1 & nome1
textcomplessiva.text = riga1...
e ci è venuto da star peggio.
encomiabile fantasia la nostra, ma ormai l'emicrania non ce la fa apprezzare... :-(
|
|
|
contedisantabarbara (Normal User)
Newbie
Messaggi: 16
Iscritto: 03/02/2009
|
ah, giusto: per il database un banale mdb... senza offesa per la ms, per carità ;-)
|
|
|
TheDarkJuster (Member)
Guru^2
Messaggi: 1620
Iscritto: 27/09/2013
|
Ho capito. I passaggi da effettuare sono:
- connessione al database
- esecuzione della query "SELECT * FROM "persone";" dove "persone" è il nome della tabella del database
- L'esecuzione di questa query restituirà una collezione di risultati
- per ognuno di questi è necessario leggere il campo nome e cognome in un ciclo while, foreach o altro
- per ogni lettura basta fare: textcomplessiva.text &= nome & cognome, dove nome e cognome sono i valori del campo nome e cognome della "riga" attuale
|
|
|
contedisantabarbara (Normal User)
Newbie
Messaggi: 16
Iscritto: 03/02/2009
|
signor darkjuster, per prima cosa: grazie infinite! la sua risposta ci fa sentire anzitutto meno soli nella nostra afflizione.
ci fa sentire anche molto ignoranti in materia ma non per questo meno intenzionati a mettere a profitto le sue indicazioni.
una prima cassa di veuve clicquot, purtroppo solo virtuale, per la sua disponibilita' ed una seconda, altrettanto virtuale, quando saro' riuscito a portare a termini i suoi consigli. :-)
a presto, temo,
suo devoto conte di santa barbara
|
|
|
gibra (Normal User)
Pro
Messaggi: 155
Iscritto: 16/04/2009
|
Supponiamo che la tua tabella si chiami CLIENTI, e che contenga i seguenti nominativi:
Codice sorgente - presumibilmente Plain Text |
Cognome Nome
bianchi mario
rossi maria
|
puoi anche risolvere con questa query:
Codice sorgente - presumibilmente Visual Basic 6 |
SELECT a.cognome, b.nome FROM clienti a , clienti b
|
ottenendo questo risultato:
Codice sorgente - presumibilmente Plain Text |
cognome nome
bianchi mario
rossi mario
bianchi maria
rossi maria
|
In questo modo hai l'elenco già pronto, ti resta solo metterlo... 'dove ti serve'. 
Ultima modifica effettuata da gibra il 17/09/2014 alle 22:15 |
|
|
TheDarkJuster (Member)
Guru^2
Messaggi: 1620
Iscritto: 27/09/2013
|
Ho preferito consigliare una query molto semplice perchè è più facile trovare trovare esempi, comunque anche la tua query è semplice
|
|
|
contedisantabarbara (Normal User)
Newbie
Messaggi: 16
Iscritto: 03/02/2009
|
carissimi, ce l'abbiamo fatta! :-)))
grazie infinite al signor dark e al signor gibra, che già in passato ebbe modo di aiutarci e che temiamo non apprezzi molto i nostri progressi. :-(
riportiamo a seguire il bizzarro codice che abbiamo realizzato, del quale speriamo apprezziate lo sforzo in termini di bricolage: poco ortodosso ma funzionale. :-)
un'ultima cortesia: esiste un modo per inserire in un normalissimo database.mdb dati che devono successivamente comparire su due righe?
grazie nuovamente per l'interessamento alla nostra causa ed estendiamo al signor gibra l'invio virtuale di due casse di nettare dell'intraprendente (quanto avvenente, a detta del nonno) madame Barbe-Nicole Ponsardin, vedova del (meno avvenente, sempre a detta del nostro avo) monsieur François Clicquot.
à bientôt
un riconoscente conte di santa barbara
Private Sub Form_Load()
Dim myquery1Blocco As String
myquery1Blocco = "SELECT a.UnmbC, b.UnmbPG FROM UnBlocco a , UnBlocco b"
DataREC1Blocco.DatabaseName = App.Path & "\miniblocchi.mdb"
DataREC1Blocco.RecordSource = myquery1Blocco
DataREC1Blocco.Refresh
DataREC1Blocco.Recordset.FindFirst "[Unmbc] = '" & list1Blocco & "'"
End Sub
Private Sub Form_Activate()
If controllo = False Then
Do Until DataREC1Blocco.Recordset.EOF
list1Blocco.AddItem DataREC1Blocco.Recordset.Fields!Unmbc
DataREC1Blocco.Recordset.MoveNext
Loop
controllo = True
End If
DataREC1Blocco.Refresh
End Sub
Private Sub DataREC1Blocco_Validate(Action As Integer, Save As Integer)
On Error Resume Next
Text1Blocco.Text = Text1Blocco.Text & vbCrLf & "------------" & vbCrLf & Text1mbC.Text & vbCrLf & Text1mbPG.Text & vbCrLf
End Sub
Ultima modifica effettuata da contedisantabarbara il 18/09/2014 alle 15:28 |
|
|
| 
