Il faut créer les champs sur la fenêtre frmMain
Dans le prog, il faut ouvrir la base lire un enregistrement puis mettre chaque champs de la base dans le champs de l'écran :
Dans le tutos (HBVideo, partie 4 sur pdacool), on a l'ouverture de la base qui est effectué dans le normal_launch de la classe application :
CODE
Set db=OpenDatabase(hbModeReadWrite)
ou db est :
CODE
Public db as tblVideo
(tblVideo est la description de la table utilisé dans le tuto)
et opendatabase est :
CODE
Public Function OpenDatabase(ByVal eAccessMode as HbMode) as tblVideo
Dim db as New tblVideo
Dim e as Integer
On Error Goto NotFound
Start:
db.OpenTable hbModeOpenExisting+eAccessMode
Set OpenDatabase=db
db.MoveLast
recunt=db.RecordCount
Exit Function
NotFound:
e=Err.Number
If e<>43 Then Err.Raise e
db.OpenTable hbModeCreateAlways+hbModeReadWrite
db.OpenTable
'Ajout de categories
db.CategoryName(0)="Unfiled"
db.CategoryName(1)="Musique"
db.CategoryName(2)="Enfant"
db.CategoryName(3)="Humour"
db.CategoryName(4)="Drame"
db.CategoryName(5)="SFiction"
' ajout d'enregistrements
db.AddNew
db.Named="PopStar M6"
db.Created=DateSerial(2002,6,30,21,45,0)
db.Support ="K7V_044"
db.Category=1
db.Update
db.AddNew
db.Named="Feu de l'Amour"
db.Created=DateSerial(2002,6,28,15,45,0)
db.Support ="K7V_034"
db.Category=3
db.Update
db.Close
Goto Start
End Function
La lecture d'un enregistrement est effectué par :
CODE
db.LookupUniqueID uniqueID
mais aurait pu être réalisé par un db.movefirst, db.movenext,...
Et le lien avec les champs est fait dans la fenêtre frmNew :
CODE
bModified=False
If bNew Then
Set Focus=fldName
selCreated.Date=Now()
SelDtPret.Date =Now()
cmdDelete.Visible=False
iCategory=0
Else
fldName.Text=db.Named
selCreated.Date=db.Created
fldsupport.Text=db.Support
fldpret.Text =db.Pret
SelDtPret.Date =db.Dpret
cmdDelete.Visible=True
iCategory=db.Category
chkPrivate.Value=db.Secret
End If
Qui se traduit par : si on est en création, on initialise les champs avec des valeurs par défaut sinon on initialise les champs de la fenêtre par les valeurs de l'enregistrement pointés dans la base.
AI je été clair ? et Que veux tu savoir de plus ?