Discussion :

[sth39]

Bonjour,

J'ai un logiciel qui me génère un fichier base de donnée avec l'extension db3.

( ce format est exploitable avec Sqlite )

Quel est ce type de base de donnée ?
Est il possible de l'exploiter sous VB ( uniquement en lecture) ?

Par avance, je vous en remercie.

Stéphane.

[ThierryAIM]

il me semble que ce sont des fichiers dBase III (c'est pas tout jeune)

Jamais essayer de les lire avec VB6, mais ca doit être possible

[DAUDET78]

Jamais essayer de les lire avec VB6, mais ca doit être possible

Si, c'est possible ! je l'ai fais dans les années 2002

[Delbeke]

De memoire, vb4 etait était livré aec les pilotes pour Dbase, mais pas les vb suivants.

[sth39]

Merci pour vos réponses.

Va falloir que je trouve un moyen d'exploiter cette antiquité de DBASE3...

[SfJ5Rpw8]

Tu devrai peu-être faire une recherche sur un driver OBDC pour ta base..

sinon tu parle de sqlite ... je sais pas si les fichiers .DB3 de DBaseIII ou de SQLite utilise le même format, elle viens d'ou ta base de donnée ?

de souvenir il me semble qu'Excel lisait directement les fichier dbase .dbf...

[DarkVader]

Excel permet toujours l'importation et l'exportation, il ne doit donc pas y avoir de problème de driver.
Teste avec Adodb.

Pour rappel, dBase (III etc) est un standard reconnu comme l'un des codes les plus compatibles - j'ai mémoire que mon 1er log acheté (Superbase pour Atari) gérait déjà cette base de donnée.

[sth39]

Suite à vos indications, j'ai vérifié que mon format db3 n'est pas du dbase !
mais le format généré par SQLITE.

A priori ce format est exploitable sous VB, mais c'est pas triste....

Je ne capte rien.

[zazaraignée]

C'est curieux.

J'ai vu le format db3 dans DBase ou même avec FoxPro (d'après mes brèves lectures) je crois même que Paradox (suite CorelOffice) dans les plus vieilles versions l'utilisait...

T'as essayé avec ces différentes options ?

La base de données est-elle protégée par mot de passe ?

[PhaleneCAD]

Bonjour à tous,

J'ai peut-être ce qu'il faut, habituellement, je lis des DBF (DataBaseFile) mais j'ai déjà lu d'autre format de type BDD avec ce code (VBA) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Type fieldDbf    'Type Champ contenant les diverses infos.
  fieldName As String    'Nom du champ
  fieldType As String    'Type de données
  fieldLength As Long    'Longueur du champ (en DBF toutes les données sont écrites en texte, donc de longueur constante par champ.
  fieldDecimales As Byte    'Nombre de décimales
End Type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Public Sub lireDBF(ficdbf$)
  Close
  Dim a As Byte
  Dim b As Byte
  Dim C As Byte
  Dim d As Byte
  Dim ha$
  Dim hb$
  Dim hc$
  Dim hd$
  Dim Valeur As Integer
  Dim vdbl As Double
  Dim lastDate As Date    'Dernière date de modification du fichier.
  Dim numBHeader As Integer    'Nombre de bits du header.
  Dim numBEnr As Integer    'Nombre de bits par enregistrement.
  Dim nc$
  Dim cec As Byte    'Numéro du champ en cours
  ReDim champ(255)
  Open ficdbf$ For Binary Access Read As #1    'Ouverture du fichier en mode séquentiel binaire.
  Get #1, , a
  Get #1, , b
  Get #1, , C
  Get #1, , d
  ha$ = Hex$(a): If Len(ha$) = 1 Then ha$ = "0" & ha$
  hb$ = Hex$(b): If Len(hb$) = 1 Then hb$ = "0" & hb$
  hc$ = Hex$(C): If Len(hc$) = 1 Then hc$ = "0" & hc$
  hd$ = Hex$(d): If Len(hd$) = 1 Then hd$ = "0" & hd$
  hb$ = CByte("&h" & hb$)
  hc$ = CByte("&h" & hc$)
  hd$ = CByte("&h" & hd$)
  If Val(hb$) >= 100 Then hb$ = Str$(2000 + (Val(hb$) - 100))    'Bug de l'an 2000...
  lastDate = CDate(hd$ & "/" & hc$ & "/" & hb$)
  Get #1, , a
  Get #1, , b
  Get #1, , C
  Get #1, , d
  ha$ = Hex$(a): If Len(ha$) = 1 Then ha$ = "0" & ha$
  hb$ = Hex$(b): If Len(hb$) = 1 Then hb$ = "0" & hb$
  hc$ = Hex$(C): If Len(hc$) = 1 Then hc$ = "0" & hc$
  hd$ = Hex$(d): If Len(hd$) = 1 Then hd$ = "0" & hd$
  numEnr = CDbl("&h" & hd$ & hc$ & hb$ & ha$)
  Get #1, , a
  Get #1, , b
  ha$ = Hex$(a): If Len(ha$) = 1 Then ha$ = "0" & ha$
  hb$ = Hex$(b): If Len(hb$) = 1 Then hb$ = "0" & hb$
  numBHeader = CInt("&h" & hb$ & ha$)
  Get #1, , a
  Get #1, , b
  ha$ = Hex$(a): If Len(ha$) = 1 Then ha$ = "0" & ha$
  hb$ = Hex$(b): If Len(hb$) = 1 Then hb$ = "0" & hb$
  numBEnr = CInt("&h" & hb$ & ha$)
  For i = 1 To 20
    Get #1, , a
  Next i
  nbchamps = 0
  cec = 1    'Initialisation du numéro de champ en cours.
header:
  Get #1, , a
  ha$ = Hex$(a)
  If Len(ha$) = 1 Then ha$ = "0" & ha$
  If ha$ = "0D" Then GoTo records
  Get #1, Seek(1) - 2, a
  getDbfFieldHeader (cec)    'Appel de la fonction de lecture du header.
  cec = cec + 1
  GoTo header
records:
  nbchamps = cec - 1
  ReDim Preserve champ(nbchamps)
  ReDim valchamp(nbchamps, numEnr)
  'Call lirecontenu
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub getDbfFieldHeader(cec)
  Dim a As Byte
  Dim ha$
  Dim nf$    'Nom du champ.
  Dim finNom As Boolean
  finNom = False
  For i = 1 To 11
    Get #1, , a
    ha$ = Chr$(a)
    If a = 0 And finNom = False Then
      champ(cec).fieldName = nf$
      nf$ = ""
      finNom = True
    Else
      If finNom = False Then nf$ = nf$ + ha$
    End If
  Next i
  'Debug.Print cec & " - " & champ(cec).fieldName
  Get #1, , a
  ha$ = Chr$(a)
  Select Case ha$    'Affectation du type de données du champ en cours.
    Case Is = "C"
      champ(cec).fieldType = "Texte"
    Case Is = "F"
      champ(cec).fieldType = "Flottant"
    Case Is = "N"
      champ(cec).fieldType = "Numérique"
    Case Else
      champ(cec).fieldType = "Autre"
  End Select
  Get #1, , a    'Décalage
  Get #1, , a
  Get #1, , a
  Get #1, , a
  Get #1, , a
  ha$ = Hex$(a): If Len(ha$) = 1 Then ha$ = "0" & ha$
  champ(cec).fieldLength = CByte("&h" & ha$)    'Affectation de la longueur.
  Get #1, , a
  ha$ = Hex$(a): If Len(ha$) = 1 Then ha$ = "0" & ha$
  champ(cec).fieldDecimales = CByte("&h" & ha$)    'Affectation du nombre de décimales.
  For i = 1 To 14
    Get #1, , a
  Next i
End Sub

Et je l'appelle comme çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
lireDBF (Chemin du fichier avec extension) '  "C:\chemin\fichier.dbf"
  Dim nc$    'Variable de stockage des valeurs.
  For i = 1 To numEnr
    Get #1, , a
    For j = 1 To nbchamps
      nc$ = ""
      For k = 1 To champ(j).fieldLength
        Get #1, , a
        nc$ = nc$ + Chr$(a)
      Next k
      valchamp(j, i) = nc$    'Valeur de l'enregistrement J du champ I
    Next j
  Next i

Mais je l'ai déjà fais en VB6...

Je précise que ce code n'est pas de moi... Mais je ne sais plus qui en est l'auteur...

J'espère avoir aidé

Bonne journée,

PhalèneCAD