DB con codigo...

[meruelo]

Intento manipular y trabajar con bd mediante codigo, pero el siguiente codigo:


Private Sub Form_Load()
Call CogeNombreEmpresa
Dim name
ChDrive "c:"
ChDir App.Path
Set wks = CreateWorkspace("", "admin", "", dbUseJet)
Set base = wks.OpendDataBase("Disco2.mdb")
Set rec = base.OpenRecordset("Select [NºDisco]from Disco", dbOpenSnapshot)
While Not rec.EOF
cmbDisco.AddItem rec.Fields("NºDisco")
rec.MoveNext
Wend
rec.Close

End Sub

----------

eso me da error (wks, variable no definida)y si las defino, me da este error: El objeto no acepta esa propiedad o metodo (señalando a la linea de setbase...)

[sdnsdlm]

Hola,

Declara las variables, te tiene que funcionar de fijo:


Private Sub Form_Load()
Dim wks As Workspace
Dim base As Database
Dim rec as RecordSet
Dim name
Call CogeNombreEmpresa
ChDrive "c:"
ChDir App.Path
Set wks = CreateWorkspace("", "admin", "", dbUseJet)
Set base = wks.OpendDataBase("Disco2.mdb")
Set rec = base.OpenRecordset("Select [NºDisco]from Disco", dbOpenSnapshot)
While Not rec.EOF
cmbDisco.AddItem rec.Fields("NºDisco")
rec.MoveNext
Wend
rec.Close
End Sub

Una cosa, ¿has hecho copy-paste del código? Si es así tienes por ahí una "d" que te sobra al llamar a openDataBase.

Y otra cosa, ¿para qué usas la variable name? Yo no lo veo, así que podrías quitarla. Y más cosas, has dejado la conexión con la BBDD abierta después del load, así que un base.close o Set base=nothing no estaría de más.

Prueba y ya dices algo.

Saludos.

[meruelo]

Vale, era eso de la d. Y yo no lo habia visto. Bueno, muchas gracias!!