Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Griglia semplice?

Ciao,
come sempre sono la mazza di turno e alle prime armi con i database...
C'e' qualche semplice esempio in giro... ma semplice semplice per capire
come fare:
Devo poter visionare alcune query in una tabella per poi magari poterla
stampare... (e qui Lupo ok che è complicatino vedrò in seguito...). La
griglia potrebbe contenere da 0 a xxxxxx record.
E se usassi un REPORTING che vedendo su una descrizione che ho trovato, mi
farebbe già la pagina completa da visionare o stampare o html ecc...? (un
esempino ci sarebbe in circolazione?)
Ho trovatom qualche cosa ma tutti i link sono sulle proprietà e quindi non
saprei come metterli in variabili modificabili...
Vorrei in modo semplice poter sia selezionare quali campi visionare sia
mandare in esecuzione alcune query SELECT... e vederne il risultato sulla
tabella da poi farne un uso ulteriore... un passo alla volta...
GRAZIE per qualsiasi aiuto anche il pìù semplice.... quello del COUNT l'ho
finito!!! URKA!
non credo d'esserci riuscito... ancora GRAZIE a chi mi ha aiutato!!!
Anto.
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

Una Griglia semplice che puoi usare è MSFlexGrid, per l'esempio ti posto un
pò di codice, è un estratto, spero che sia sufficientemente chiaro, ciao.
If lstArticoli_Ordini.ListCount > 0 Then
                str = txtArticolo_Ordini.Text & Chr(9) & txtQuantità.Text
                str = str & Chr(9) & lblPrezzo.Caption
                str = str & Chr(9) & Sconto
                str = str & Chr(9) & prezzo
                str = str & Chr(9) & omaggio
                h_Ordini = h_Ordini + 1
                MSFlexGrid1.AddItem str


Grazie mille per l'invio, sicuramente sei stato chiarissimo ma la colpa è
mia...sono na mazza appunto... soprattutto alle prime armi... con l'invio di
dati alla Flex
Io avrei un SELECT * da buttar dentro na griglia che prelevo con
Set RS = DB.OpenRecordset("SELECT * AS Quanti
FROM ARCHIVIO WHERE NOME LIKE 'PIPPO'", dbOpenDynaset)
E mo cosa faccio con la mia MShFlex o con un dove magari potrei
intervenirci...


 intervenirci...
La flexgrid č abbastanza documentata nella guida.
Prova cosě (poi studi un po', neh?!):
Crea sul form una MSFlexGrid (lascia stare la MSHFlexGrid), con nome
"griglia", poi, anche in Form_Load (o comunque dopo aver creato le
condizioni per aprire il recordset), metti questo codice.
    griglia.Rows = 1
    griglia.Cols = 3
    griglia.Row = 0
    griglia.Col = 0
    griglia.Text = "N."
    griglia.Col = 1
    griglia.Text = "Cognomi"
    griglia.Col = 2
    griglia.Text = "Nomi"
Set RS = DB.OpenRecordset("SELECT NOME, COGNOME FROM ARCHIVIO ORDER BY
COGNOME, NOME", dbOpenDynaset)
if RS.BOF=0 Or RS.EOF=0 then
    RS.MoveFirst
    n=0
    do
        if RS.EOF then exit do
        n=n+1
        riga=n & vbTab & RS!COGNOME & vbTab & RS!NOME
        griglia.AddItem riga
        RS.MoveNext
    loop
end if

 FROM ARCHIVIO WHERE NOME LIKE 'PIPPO'", dbOpenDynaset)
ops...
Set RS = DB.OpenRecordset("SELECT * FROM ARCHIVIO
WHERE NOME LIKE 'PIPPO'", dbOpenDynaset)
che dovrei buttare nella griglia ms msh o datagrid... non so cosa sia
meglio...
ciao e scusa l'errore!


 che dovrei buttare nella griglia ms msh o datagrid... non so cosa sia
meglio...
Per ora usa la MSFlexGrid

> Prova così (poi studi un po', neh?!):
he he he... :-)))
Ho studiato bene... stavolta, anzi.. forse meglio... :-)))
e mi sono impegnato fino alle ore piccole...
Ti sparo qui un codice semplicissimo... che anche mi ha funzionato al primo
colpo....strano per me...
Ho usato sto sistema così mi aggiorno automaticamente tutte le caselle se
queste vogliono essere modificate opure le blocco col locked o le "buttono"
con button in modo semplicissimo
Me le ordina automaticamente con un semplice click sulla "testata" me le
ordino (ORDER BY.. col click... )
Mi sembra molto più semplice e veloce... del MSflex o MSHflex... almeno
sembra e sicuramente può servire a chi è alle prime armi come me...
Dato che ho usato (trovato come fare), leggendo un tuo ultimo... elenco
esattamente la procedura che potrà servire qualche d'uno che è alle prime
armi come me con una soluzione da 10 linee ma profi!!!:
LETTURA / SCRITTURA TABELLA GRIGLA DA DATABASE ACCESS MDB > 2000
Dato che sono proprio una mazza elenco passo passo:
- RIFERIMENTI che ho aggiunto se servono o meno avevo bisogno altro:
  MS ACTIVE DATA OBJ ora 2.7
  MS ADO EXT 2.7 DLL....
Form semplicissimo, creare un singolo DATAGrid chiamato originale DATAGRID1
set da default
Le varie aggiunte... sono andato a naso... quindi... da non prendere come
"sicuri"...
=====
    Criterio = "SELECT * FROM LOG order by NAME...." secondo necessità
    Set DB = New ADODB.Connection
    DB.CursorLocation = adUseClient
    DB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= archivio.mdb;"
    DataGrid1.ClearFields
    Set adoPrimaryRS = New ADODB.Recordset
    adoPrimaryRS.Open Criterio, DB, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = adoPrimaryRS
    DataGrid1.Visible = True
    DataGrid1.Refresh
    me.caption = "TROVATI: " & adoPrimaryRS.RecordCount
=====
Et voilà ecco la tabella che mi modifico come desidero...  beh...
sicuramente ci saranno dentro diecimila cannate... ma è la la mia prima...
quindi correzioni benvengano.
Dopo due o tre comandi mi permettono di visualizzare solo alcuni campi e non
tutti... ma così fa tutto lui.
LUPO:---> il mio F1 ora non va più!!!!
Spero possa servire qualche d'uno d'altro vista la SEMPLICITÀ, ora vedo cosa
succede se lo uso in multiutenza con l'altro soft cjhe apre lo stesso
database....  switch di miglioria benvengano!
Cerco TASTO F1,.,..per sostituzione...
passo al prossimo problema... della stampante e girata di foglio...
:-))
CIAO
Anto


 database....  switch di miglioria benvengano!
Ecco, se lasci adOpenDynamic, tutti i miei auguri...

 Ecco, se lasci adOpenDynamic, tutti i miei auguri...
Non lo trovo sotto F1 solo qualche cosa in inglese
---> mi potresti spiegare maggiormente cosa intendi??
Come detto li ho messi a naso... cosa succede lasciando o cambiando?
tnx per info!

 Come detto li ho messi a naso... cosa succede lasciando o cambiando?
In programmazione non bisognerebbe mai (!!!) andare a naso, nemmeno con un
olfatto ... da lupo.