[VB] problemino aiutatemi

[nsalnet]

perchè se scrivo nella sezione codice l'istruzione SELECT oppure l'istruzione ORDER by le considera come errore ??
cosa ho sbagliato??? mi sono scordato di fare qualcosa prima,
vi prego aiutatemi non posso fare nulla senza queste due istruzioni!!

[cisky]

'SELECT' & 'ORDER BY' sono predicati S.Q.L. (Parole chiavi utilizzate per l'estrazione di dati da uno o più database) e non sono delle funzioni di VB.

Per utilizzarle con VB devi usare degli oggetti appositi come x esempio ADO,DAO,RDO ecc...

[nsalnet]

IO UTILIZZO L'OGGETTO DATA MA VA DICHIARATO QUALCHE ISTRUZIONE PERCHè NON FUNZIONA!

[cisky]

Ti scrivo un esempio molto grezzo tanto x farti capire...

1) Inserisci il tuo controllo data 'Data1' in un form.
2) Inserisci anche un textbox (tanto x provare...)
3) Imposta la proprietà datasource del textbox a 'Data1'

 

    Dim db      As Database
    Dim rs      As Recordset
    Dim sPath   As String
    Dim sSql    As String
    
    ' *** Percorso di un database access
    sPath = "W:\VBModel6\MMP\700\Data\MM01DB.mdb"  ' *** tanto x provare
    
    ' *** Apri il database
    Set db = Workspaces(0).OpenDatabase(sPath)
    
    ' *** Imposti la tua s.q.l.
    sSql = "SELECT * FROM tblXXX ORDER BY Campo"
    
    Set rs = db.OpenRecordset(sSql)
    Set Data1.Recordset = rs        ' Assegno il  Recordset al datacontrol
    
    Text1.DataField = "Campo"
    
End Sub

Con questo codice apri un database.
Dopo averlo aperto imposti una SQL che ti serve per estrarre dei dati (In questo caso tutti i record della tabella 'tblXXX' ordinati per 'Campo') [OVVIAMENTE LAI CAMPI IN BASE AL TUO DB], infine assegni il recordset (Set di dati) al tuo controllo data!.

Se il recordset non è vuoto (BOF/EOF) vedrai il testo del tuo campo dentro il textbox ....

CIAO!

[nsalnet]

ti ringrazio per le righe di codice che mi hai dato, ma funzionano solo con gli oggetti data, mentre con gli oggetti adodc non funziona, dato che io sto utilizando proprio degli ogetti adodc per via di certe datagrid, non mi potresti indicare come devo fare per far si che il codice funzioni anche con un adodc
Grazie

[cisky]

1) Assicurati di avere selezionato ADO tra i riferimenti del progetto

->Progetto ->Riferimenti ->Microsoft ActiveX Data Object 2.X Library

2) Inserisci il tuo controllo data 'Data1' in un form.
3) Inserisci anche un textbox (tanto x provare...)
4) Imposta la proprietà datasource del textbox a 'Data1'

Private Sub Form_Load()


    Dim cn      As ADODB.Connection
    Dim rs      As ADODB.Recordset
    Dim sConn   As String
    Dim sPath   As String
    Dim sSql    As String
    
    ' *** Percorso di un database access ... (tanto x provare=
    sPath = App.Path & "\Data\"
    sDBName = "MM01DB.mdb"
    
    ' *** Imposti la stringa di connessione per il provider dei dati
    '     (In questo caso Access ...)
    '
    sConn = "Provider=Microsoft.Jet.oledb.4.0;" & "Data Source=" & sPath & sDBName
    
    ' *** Apri il database ...
    Set cn = New ADODB.Connection
    cn.Open sConn
    
    ' *** Imposti la tua s.q.l.
    sSql = "SELECT * FROM tblXXX ORDER BY Campo"
    
    ' *** Apri un recordset
    '
    '   Ci sono vari modi x aprire un recordset, il + veloce è aprirlo direttamente
    '   dalla connection con il metodo execute ... (in questo caso lo apro con l'oggetto Recordset)
    '
    Set rs = New ADODB.Recordset
    rs.Open sSql, cn, adOpenForwardOnly, adLockReadOnly
    
    Set Data1.Recordset = rs        ' Assegno il  Recordset al datacontrol
    
    Text1.DataField = "Campo"
    
End Sub