PDA

Visualizza la versione completa : VB6 - mdb di access


icosimo
29-06-2002, 18:16
Ciao "FORUM",

ho bisogno di aiuto, mi succede questo:

In VB6 imposto un database in access.
In access ho inserito il criterio di ordinamento di un campo "MIO".
In access lo vedo ordinato ma quando voglio visualizzarlo in VB6, con il codice sottostante, non lo trovo in ordine del campo "MIO" ma in ordine di inserimento.

Questo il codice:

Dim MyDb as Database, MyTable as Recordset
Set MyDb = Workspaces(0).OpenDatabase("Prova.mdb")
Set mytable = MyDb.OpenRecordset("Tabella", dbOpentable)

MyTable.edit
ecc. ecc

Chi mi puo indicare l'istruzione che manca o come poter fare diversamente ??

Non voglio usare il DBgrid in quanto non riesco agestirlo in un ciclo "For - Next"

Vi ringrazio in anticipo

zampa28
29-06-2002, 18:26
Dim MyDb As Database, MyTable As Recordset
Dim sSql As String
Set MyDb = Workspaces(0).OpenDatabase("Prova.mdb")
sSql = "select * from Tabella order by MIO"
Set MyTable = MyDb.OpenRecordset(sSql, dbOpentable)

icosimo
30-06-2002, 16:58
Grazie Zampa28,


sei di poche parole ma molto efficace.

Tu mi hai inviato questo codice:

Dim MyDb As Database, MyTable As Recordset
Dim sSql As String
Set MyDb = Workspaces(0).OpenDatabase("Prova.mdb")
sSql = "select * from Tabella order by MIO"
Set MyTable = MyDb.OpenRecordset(sSql, dbOpentable)*

a me funzione se apporto questa modifica:

Set MyTable = MyDb.OpenRecordset(sSql)*


Questo pu servire anche ad altri utenti.


C' qualcosa che mi sfugge o cambiato il sistema, quando proponevo un quesito se c'era una risposta mi arrivava una e_mail, questa volta, da parecchio che non pongo quesiti, non mi arrivato alcun avviso ho trovato la risposta solo perch sono andato a curiosare.

Il fatto che non arrivi alcuna e-mail dipende dal mio server e se s cosa posso fare ?

Ancora mille grazie.

Icosimo

Loading