Newsgroup: it.comp.lang.visual-basic
Titolo: [vb2005+db] richiesta piccola spinta...

ciao a tutti, purtroppo non ho tanto tempo
per risolvere un piccccccccolo intoppo...
devo aggiungere ad un programma già
cominciato e quasi a buon punto, la gestione
di un db contenente una  sola tabella, con
una decina di campi tra testo, numerici e
due date, il tutto per circa 2000 record...
massimo 3000 ma è proprio un'esagerazione...
inizialmente credevo di dover gestire meno
dati ed usavo un semplice semplice file ini (non
criticate please...)
comunque con vb2005 sono alle prime armi
e al primo programma... ma mi sembra di
capire che ci sono più 'modi' di affrontare i db.
la mia unica necessità è applicare dei filtri e
degli ordinamenti per 2/3 campi insieme e scorrere
in modo sequenziale il risultato. stop.
mi date solo qualke spunto, non mi serve la
soluzione, solo qualke spunto per capire
da cosa partire: ado, 
ado.net
, oledb... e chi
sa che altro.
userei un db fatto con access 2000.
grazie 1000
pusky.

anche io sono alle prime armi, (attenzione io iso vb6)ma credo che il 
problema potresti risolverlo cosi:
------------------------------------------------------------------------------------------------------------
        Public Type StatusDB
            Existing As Boolean
        End Type
        Global Database As StatusDB
        Global DB As Database
        Global RS As Recordset
        Global PathDB As String
        Public Declare Function ShellExecute Lib "shell32.dll" Alias 
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal 
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, 
ByVal nShowCmd As Long) As Long
==============================================================
        Public Sub CreateDB(PercorsoDatabase)
            Const DBBody = ";LANGID=0x0809;CP=1252;COUNTRY=0"
            On Local Error GoTo EH
                Set DB = CreateDatabase(PercorsoDatabase, DBBody)
                    DB.Execute "CREATE TABLE "
                    DB.Execute "ALTER TABLE "
                    DB.Close
                    Set DB = Nothing
EH:
        Set DB = OpenDatabase(PercorsoDatabase)
        End Sub 'CREA DATABASE
=======================================================
 "\Tabelle.mdb" è il nome del da access
"TABOPEN " è il nome della tabella specifica
----------------------------------------------------------------------------------
        Public Sub LoadDB()
            PathDB = App.Path & "\Tabelle.mdb"
            Call CreateDB(PathDB)
            Set DB = OpenDatabase(PathDB)
            Database.Existing = True
            If Database.Existing = True Then
                Set RS = DB.OpenRecordset("TABOPEN", dbOpenDynaset)
            Else
                MsgBox "Impossibile caricare il recordset poichè il db 
risulta non caricato.", vbExclamation, "Attenzione"
            End If
        End Sub ' CARICA TABELLA SPECIFICA
========================================================
con questo sistema carico i dati in un recorset
poi con un sistema simile puoi filtrare i record
        Do While Not RS.EOF
        If Val(RS.Fields("ID")) = Val(Text19(6)) Then
        Text19(12) = RS.Fields("cap")
        Text19(13) = RS.Fields("provincia")
                End If
        RS.MoveNext
        Loop
spero di esserti stato utile 


CUT
Comincio con il ringraziarti per la risposta :-)
problemi simili in passato con vb5 e dao erano
all'ordine del giorno e non avevo problemi,
dichiaravo il mio oggetto di tipo database, il
mio oggetto di tipo recordset a cui passavo
come parametro la mia query fatta a mano o
creata in access e poi copiata... aprivo
il recordset, ciclo do until .eof  - loop con
il mio bel movenext...
ora però con vb2005 cosa uso?
grazie ancora.
pusky 

CUT
sviluppo:
ho trovato quello che cercavo, prendento spunto da un post
del 5.12.2006 di Cteniza, ho la mia gestione della lettura dei
dati in modo sequenziale usando Oledb.OleDbDataReader
Volevo aggiungeer anche gestione base di aggiunta, modifica e
cancellazione record, ma sarà la fame che si affaccia in me alle ore
12:55 ma non ci capisco niente...
Saluti.
pusky