PDA

Visualizza la versione completa : fuori di testa io vado [VB]


ragno75
20-08-2002, 12:46
Sto cercando di imparare ad usare VB e sicuramente all finr mi dovreanno rinchiudere in un manicomio.

se digito questa subroutine mi da errore perchÚ????

Private Sub Form_Load()
Set wrkjet = CreateWorkspace("", "admin", "", dbUseJet)
Set dbData = wrkjet.OpenDatabase("db1.mdb")
Set dbTabella = dbData.OpenRecordset("Cliente", , dbAppendOnly)
Set dbNome = dbTabella.Fields("Nome")
Set dbCognome = dbTabella.Fields("Cognome")
Set dbIndirizzo = dbTabella.Fields("Indirizzo")
Set indirizzol = dbTabella.Fields("Indirizzo lavori")
txtNome.Text = dbNome
txtCognome.Text = dbCognome
txtIndirizzo.Text = dbIndirizzo
txtIndirizzol = dbIndirizzol
End Sub

l'errore me lo da nella 3 righa dicendomi "Tipo no corrispondente" eppure le variabili che ho dichiarato nellas ezione generale del form
mi sembrano giuste:

Dim dbData As Database, dbTabella As Recordset, dbNome As Field, dbCognome As Field, dbIndirizzo As Field, dbIndirizzol As Field, wrkjet As Workspace

ho controllato anche sulla guida e mi sembra di aver fatto tutto bene.
Chi mi aiuta a trovare il bug?:dh˛: :dh˛: :dh˛:

Pat
20-08-2002, 16:46
Ho provato il tuo codice e funziona perfettamente.
Nei Riferimenti del progetto hai caricato la libreria "Microsoft DAO 3.6 Object Library" ?

Ti riquoto il codice che ho provato e che funge:

Dichiarazioni:

Dim wrkjet As Workspace
Dim dbData As Database
Dim dbtabella As Recordset
Dim dbNome, dbCognome, dbIndirizzo, dbIndirizzo1 As Field

Codice:

Set wrkjet = CreateWorkspace("", "admin", "", dbUseJet)
Set dbData = wrkjet.OpenDatabase("percorso\db1.mdb")
Set dbtabella = dbData.OpenRecordset("Cliente", , dbAppendOnly)
Set dbNome = dbtabella.Fields("Nome")
Set dbCognome = dbtabella.Fields("Cognome")
Set dbIndirizzo = dbtabella.Fields("Indirizzo")
Set dbIndirizzo1 = dbtabella.Fields("[Indirizzo lavori]")

TxtNome.Text = dbNome
TxtCognome.Text = dbCognome
TxtIndirizzo.Text = dbIndirizzo
TxtIndirizzo1.Text = dbIndirizzo1

Ciao.

ragno75
20-08-2002, 17:13
grazie non so perchÚ ma adesso funziona
ti ringrzio di nuovo ciao ciao

Loading