premesso che sono un autodidatta alle prime armi,
vorrei porvi questo problema che mi e' sorto lavorando con vb6
vi elenco il sorgente incriminato:
Sub main()
Dim mioDb As Database
Dim mioRst As Recordset
Dim miaQuery As String
Dim i As Integer
miaQuery = "Select * from nomeTabellai WHERE Campo1='xyz' ORDER BY Campo2t"
Set mioDb = OpenDatabase("d:\documenti\vb standard\esempi VB\Voli\Voli.mdb", 1)
Set mioRst = mioDb.OpenRecordset(miaQuery, dbOpenDynaset)
mioRst.MoveLast
mioRst.MoveFirst
Do While Not mioRst.EOF
Debug.Print mioRst.Fields(0)
mioRst.MoveNext
Loop
mioRst.Close
mioDb.Close
End Sub
problema: se il database access e' in format 97 tutto ok
altrimenti mi da' l' errore di runtime 3228
sequenza di ordinamento selezionata non supportata dal sistema operativo
ho aggiunto il riferimento:
Microsoft DAO 3.6 Object Library
grazie anticipato a chi vorra' darmi una mano
Rispondi quotando
