[VB6] Code 3343 - "Format de base de données non reconnu"
Code 3343 - "Format de base de données non reconnu" [VB6] - VB/VBA/VBS - Programmation
Marsh Posté le 02-06-2006 à 15:27:05
C'est pas bien grave, j'en suis qu'au développement et la base est pas super compliquée.
Par contre, je l'ai refaite rapidement, te ça me met exactement la même erreur. Je vois pas pourquoi 
Marsh Posté le 02-06-2006 à 19:55:48
y'a des espaces dans le chemin qui pointe vers ta BD ?
---------------
J'ai un string dans l'array (Paris Hilton)
Marsh Posté le 04-06-2006 à 11:47:44
Il y en avait mais j'ai changé le chemin avec un relatif, et la base est dans le même dossier que le programme maintenant.
Par contre, j'ai ajouté un nouvel adodc sur une autre feuille que j'ai relié à une combo, et ce que je voulais faire a fonctionné, alors que ça ne fonctionnait pas avec le premier adodc sur la même page. Je sais pas si c'est une question de base pétée ou d'un bug dans la liaison ADO.
Bref, un truc bizarre...
Sujets relatifs:
- Code non execute apres un for
- Suivi des modifs successives code source PHP
- [VB6] Arrondi tout seul ?!
- Problème de sauvegarde des données dans une base sql
- Problème de transmission des données
- Envoyer plusieurs fois données d'un formulaire sans changer de page
- Cahier des charges - base de données
- Base de données et IHM
Marsh Posté le 02-06-2006 à 12:03:47
Bonjour, j'ai un nouveau problème concernant un facturier que je développe en VB6, accédant à une base Access.
J'ai créé un formulaire qui recherche dans une liste un nom de client par rapport aux premières lettres du nom qu'on a entré (j'entre : "ad" ça me trouve tous les noms commençant par "ad".). Ca marchait sur une ancienne version du facturier, mais aujourd'hui, j'ai une erreur :
"Format de base de données non reconnu"
Code 3343
Je ne sais pas du tout d'où ça peut venir. Voici le code de connexion à la base :
Private Sub Text3_Change()
Dim bd As Database
Dim tbl As Recordset
Dim textsql As String
textsql = "SELECT top 20 * FROM CLIENT WHERE NOM LIKE '" + Text3.Text + "*'"
List1.Clear
Set bd = OpenDatabase("..\Base de données\bdfacturier.mdb" )
Set tbl = bd.OpenRecordset(textsql)
While Not tbl.EOF
List1.AddItem tbl.Fields("NOM" )
tbl.MoveNext
Wend
tbl.Close
End Sub