De Dao vers ADO

Bonjour à toutes et à tous
Mon problème est le suivant
je désirerais commencer mon passage à ADO

Pouriez vous corriger le code suivant pour éviter le référencement de ms
dao

3.6

Option Compare Database
Private blTableFichierExiste As Boolean
Private blTablezDiskExiste As Boolean

Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim i As Integer
Public Sub CreationTable()
TableExiste
If Not blTableFichierExiste Then
TableFichier
ElseIf Not blTablezDiskExiste Then
MsgBox "le module ' zDisk ' n'a pas été crée "
End If
End Sub
Public Sub TableExiste()
With CurrentDb
For i = 0 To .TableDefs.Count - 1
Select Case .TableDefs(i).Name
Case "Fichier"
blTableFichierExiste = True
Case "zDisk"
blTablezDiskExiste = True
End Select
Next i
'Debug.Print "blTableFichierExiste : " & blTableFichierExiste
'Debug.Print "blTablezDiskExiste : " & blTablezDiskExiste
End With
End Sub

Public Function TableFichier()
With CurrentDb
Set tdf = .CreateTableDef("Fichier")
On Error Resume Next
Set fld = tdf.CreateField("idFichier", dbLong)
fld.Attributes = dbAutoIncrField
tdf.Fields.Append fld
Set fld = tdf.CreateField("NomFichier", dbText, 255)
tdf.Fields.Append fld
' etc
' ...
.TableDefs.Append tdf
.TableDefs.Refresh

End With
End Function



En vous remerciant
Barabas

Mon cher barabas.

tu confonds conseil, aide et prestations gratuites par des bénévoles.
le but de ce groupe est de donner le maximum d'indications pour qu'un
visiteur puisse se débrouiller tout seul et non de faire son travail.
pour passer de dao à ado, il faut lire la page :
http://mypage.bluewin.ch/w.stucki/MigrationADO.htm et ensuite tout
s'éclaire

et tu pourras faire ta conversion.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Barabas" <VsBarabas@teledisnet.be> a écrit dans le message de
news:40c62c15$0$257$4d4efb8e@read.news.be.uu.net...

Bonjour à toutes et à tous
Mon problème est le suivant
je désirerais commencer mon passage à ADO

Pouriez vous corriger le code suivant pour éviter le référencement de ms
dao

3.6

Option Compare Database
Private blTableFichierExiste As Boolean
Private blTablezDiskExiste As Boolean

Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim i As Integer
Public Sub CreationTable()
TableExiste
If Not blTableFichierExiste Then
TableFichier
ElseIf Not blTablezDiskExiste Then
MsgBox "le module ' zDisk ' n'a pas été crée "
End If
End Sub
Public Sub TableExiste()
With CurrentDb
For i = 0 To .TableDefs.Count - 1
Select Case .TableDefs(i).Name
Case "Fichier"
blTableFichierExiste = True
Case "zDisk"
blTablezDiskExiste = True
End Select
Next i
'Debug.Print "blTableFichierExiste : " & blTableFichierExiste
'Debug.Print "blTablezDiskExiste : " & blTablezDiskExiste
End With
End Sub

Public Function TableFichier()
With CurrentDb
Set tdf = .CreateTableDef("Fichier")
On Error Resume Next
Set fld = tdf.CreateField("idFichier", dbLong)
fld.Attributes = dbAutoIncrField
tdf.Fields.Append fld
Set fld = tdf.CreateField("NomFichier", dbText, 255)
tdf.Fields.Append fld
' etc
' ...
.TableDefs.Append tdf
.TableDefs.Refresh

End With
End Function



En vous remerciant
Barabas