Newsgroup: it.comp.lang.visual-basic
Titolo: ancora ADO DBGRID & C.

scusate....probabilmente sono un po indietro ma non riesco a venircene
fuori.
seguo da molto il ng (complimenti a tutti!!) e in particolare i thread
sull'argomento
però non riesco ancora a risolvere il problema.
mi spiego:
in generale.bas definisco le variabili
Global Connessione As ADODB.Connection
Global RsAnagrafica As ADODB.Recordset
in main() apro una connessione , per averla in tutta la sessione di lavoro.
    Set Connessione = New ADODB.Connection
    Connessione.CursorLocation = adUseClient
    Connessione.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=Archivio.mdb"
in una Form_Activate() apro il recordset
    Set RsAnagrafica = New ADODB.Recordset
    RsAnagrafica.Open "SELECT * FROM Anagrafica ORDER BY Cognome,Nome",
Connessione, adOpenDynamic, adLockOptimistic, adCmdText
 mi da errore: metodo open dell'oggetto recordset non riuscito ?????
se apro la connessione nel form questo errore non mi accade, perchè??? (non
vorrei aprire e chiudere la connessione a ogni passaggio da un form
all'altro)
popolo i text
    TextCognome.Text = RsAnagrafica!Cognome & ""
    TextNome.Text = RsAnagrafica!Nome & ""
    TextSesso.Text = RsAnagrafica!Sesso & ""
    ecc.ecc.
nella Form ho una MSHFlexGrid che vorrei contenesse le colonne Cognome e
Nome
ho messo nella proprietà del controllo datasource=rsanagrafica (in fase di
esecuzione non posso usare set MSHFlexGrid.datasource = RsAnagrafica, o
qualcosa del genere,perchè???) e settato le colonne Cognome e Nome
eseguo il programma ma la grid è vuota
vorrei poi cliccando sulle varie righe della grid posizionarmi sui vari
record (evento rowcolchange e ripopolare i text come sopra)
VB6.0pro SP3 WIN98 OFFICE2000pro
grazie per ogni correzione e suggerimento.
--
Ing. Venturelli Aldo
Via Vittorio Emanuele, 12
25042 Borno - Bs-
e-mail: 
aldo...@coopcsc.it

>record (evento rowcolchange e ripopolare i text come sopra)
Questo lo fai come hai detto tu sull'evento rowcolchange.
Antonio

logico,
Option Explicit
Global Archivio As String
Global DatiCambiati As Boolean
Global UtenteCorrente As Long
Global Connessione As ADODB.Connection
Global RsCooperativa As ADODB.Recordset
Global RsAnagrafica As ADODB.Recordset
Sub main()
    Archivio = App.Path & "\archivio\ppil.mdb"
    Load FormCooperativa
    Load FormAnagrafica
    Load FormProgetto
    Load FormStato
    Load FormTabelle
    FormPrincipale.Show
End Sub
se eseguo la connessione.open nell'activate dei form, e quindi il close in
deactivate, mi apre il recordset altrimenti se la metto in main mi da errore
aldo
Antonio Donatiello <ant...@REMOVETHISgeminisoft.com> wrote in message
89ikm2$2ee4g$1...@fu-berlin.de...


forse ho risolto il mio problema!!!!
ho cambiato tutto!!!!!
ho tolto le varie
Global Connessione As ADODB.Connection, ecc
ho inserito i controlli adodc nei form e li ho settati nelle proprietà per
poi
collegare la grid e in fase di progettazione settare campi, ecc.ecc.
poi ho tolto le proprietà connectionstring e recordsource e li imposto in
form_activate
AdodcIdentità.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & Archivio & ";Persist Security Info=False"
AdodcIdentità.RecordSource = "ElencoIdentità"
AdodcIdentità.Refresh
Set DataGridIdentità.DataSource = AdodcIdentità
TextIdentitàCognome.Text = AdodcIdentità.Recordset!Cognome & ""
TextIdentitàNome.Text = AdodcIdentità.Recordset!Nome & ""
sembra che funzioni!!!!!!
grazie a tutti
