Reprise du message précédent :
au fait un dc3 ne peut atterrir en full auto... il n'est pas équipé... D'ailleurs il n'existe pas vraiment de système d'atterrissage automatique, mais de catégorie de système d'attero auto... si vous voulez un topo... fillez moi vos mails parce que là ça rique d'être long...

pourquoi pas ? mon mail est dans mon profil
je ne joue à FS 2k4 qu'avec le DC-3, car je me dis que quand je saurais rééllement maitriser cet avion, les autres ce sera de la gnognoote pour les piloter

ok j'ai plein de .doc chez moi, je t'envoie ça demain matin !
ce soir je vole sur un beech baron (bi-moteur)... bon c'est pas un dc3 mais bon...

en attendant, faites un petit saut ici:
http://faq.bigip.mine.nu:8008/jokes/avia2.dat

j'y crois pas comment le topic a dérivé vers FS2K4

bouahh désolé
on se détend un peu après une légère prise de tête
Allez Drasche et MagicBUZZ, tenez-vous près, je vais boire un café et retourne dans VB6

avant la fin de la pause café :
-> dans la section "jeux vidéo", y'a un topic "flight simulator" plus ou moins à l'abandon (un post par semaine). t'as qu'à y aller, parcequ'il y a souvent des questions de gens qui savent pas voler ça fait un moment que j'y suis pas allé, mais j'ai pas souvenir de d'y avoir déjà vu, donc au cas où...
 
bon, vais boire une cloppe et fumer un café, ça va être utile pour la suite du topic

mdr
la semaine prochaine vous m'expliquerez comment mettre à jours les données
Drasche je suis allé voir ta FAQ
tu as ça:
 strConnect = "DRIVER={MySQL ODBC 3.51 Driver};" & _  
                 "SERVER=%server%;DATABASE=%database%;PORT=%port%;" & _  
                 "UID=%userid%;PASSWORD=%password%;" & _  
                 "OPTION=3;STMT=;"
 
comment y adapter ça ?:
    cnx.Provider = "Microsoft.Jet.Oledb.4.0"
    cnx.ConnectionString = App.Path & "\base.mdb"
 
En fait c koi la dif entre .Provider .ConnectionString et Strconnect ?? je suis largué je comprends de moins en moins

en fait tu peux tout taper dans la connectionstring (comme dans la FAQ), ou assigner chaque propriété séparément (mais les propriétés sont propres à chaque provider, et stockées dans le membre Properties).  La ConnectionString est de toute façon différente suivant le provider.
 
Chez nous on a un truc comme ça:
 

sachant qu'objcn est l'objet Connection et strDbPath contient le chemin vers ta DB.

je comprends rien tout à l'heure on avait strConnect maintenant c'est objcn.Provider

dans mon exemple ici, tu n'utilises pas la propriété ConnectionString vu que tout est défini via ces quelques assignations
 
mon objcn = ton cnx hein

et en français, vb pardon, tu définis comment le chemin ?
comme ça : ?
strDbPath=App.Path & "\base.mdb"  
le fichier *mdb se trouvera au même endroit que le programme

donc à priori ça c'est bon ?
 
    Dim oCon As Connection   ' Connexion vers la BD
    Dim oRst As Recordset    ' Ensemble de données d'une table
    Dim strConnect As String ' Chaîne de connexion vers la BD
    Dim strSql As String
 
    strDbPath = App.Path & "\base.mdb"
    strConnect.Provider = "Microsoft.Jet.OLEDB.4.0"
    strConnect.Properties("Data Source" ).Value = strDbPath

oué ça passe, oublie pas un userid et un password (ceux que j'ai donnés fonctionnent justement pour une DB ordinaire sans sécurité, donc la plupart).

ben non ça passe pas...
il me dit "type défnini par l'utilisateur non définié"...
je n'en peux plus je pige que dalle...
j'avais ça en DAO, comment le mettre en ADO ?
ça fera gagner du temps à tout le monde et au moins je verrai comment ça marche
 
Private Sub Command1_Click()
Dim base As Database
Dim listeFPROCHE As Recordset
Dim requete As String
Set base = OpenDatabase(App.Path & "\base.mdb" )
requete = "SELECT * FROM Fproche WHERE THEMES LIKE '" & look & "';"
lstResultats.Clear
Set listeFPROCHE = base.OpenRecordset(requete)
While Not listeFPROCHE.EOF
lstResultats.AddItem listeFPROCHE("REF_DVD" ) & " " & isteFPROCHE("THEMES" )
listeFPROCHE.MoveNext
Wend
listeFPROCHE.Close
base.Close
End Sub
 
Ooiiiiiiinnnnn

ça plante sur quelle ligne?
je sens comme un manque dans les références

>Private Sub Command2_Click()
 
la première quoi...  
sur un tutoriel ils disent de passer par "assistant feuille base de données", or il ne reconnait pas ma base access 2003 alors qu'en dao ça marche !

Pour le moment, ne met que ça :
 

 
Et dis-nous si ça marche.
 
Si ça marche, tu peux ajouter entre le .Open et le .Close :
 

 
Et si ça marche, à nouveau entre le .Open et le .Close, tu peux mettre ta gestion d'affichage (do while not rs.EOF ...)

t'es en VB6 là? (il est temps qu'on s'intéresse à ton environnement de développement )
 
dans ce cas, tu vas dans Project/References, et dans la liste, tu coches Microsoft Access Data Objects 2.7 puis OK.

yes VB6  je confirme
Bon j'ai tout viré et je recommence avec uniquement ça sur un bouton:
Private Sub Command2_Click()
Dim cnx As ADODB.Connection
Set cnx = New ADODO.Connection
cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Database=" & App.Path & "\base.mdb"
cnx.Open
cnx.Close
Set cnx = Nothing
End Sub
 
et là meme top: type defini non defini par l'utilisateur
dans Projets/References il n'y pas Microsoft Access Data Objects 2.7 ni aucune autre version
y a Micros ADO Ext 2.7 for DLL and security
Pour info c'est une version VB6 sans MSDN, access c'est la 2003 et l'os c'est Xp Pro...

[img]c:\1.gif[/img]

bin flute je voulais envoyer une capture d'ecran de ce que j'ai

t'as XP Pro et pas ADO? Windows a besoin de ce composant pour certaines fonctions vitales  Le fait que tu aies bien Microsoft ADO Ext 2.7... prouve bien que ADO est sur ta machine. Sinon tu prends le CD d'Office et tu installes celui qui est fourni avec ça s'appelle MDAC (Microsoft Data Access Components).

bin oué mais non, faut la mettre sur un site web sinon ça pourrait être MON disque dur

j'ai déjà telechargé lundi MDAC, la vesion 2.8 et quand je l'installe il me dit qu'il est déjà présent, mais je vais réessayer avec le cd office

sur le cd office 2003 pas de mdac, j'ai relancé l'install, or tout a déjà été installé en totalité sur le dd (clik droit, tout sur le disk dur)

raaaaaaaaaaaaaaaaaaaaaaaah bordel
 
je m'a gourré c'est ActiveX et pas Access dans le libellé que je t'ai donné

Ok ça j'ai !
Ce n'était pas coché, c'est fait, mais la routine ne Magicbuzz continue de planter avec "type defini non defini par l'utilisateur"dim cnx as ADODB.Connection  
set cnx = new ADODO.Connection  
cnx.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Database=" & App.Path & "\base.mdb"  
 
cnx.Open  
cnx.Close  
set cnx = Nothing  
 
Pour info je l'ai mise dans un bouton command, kan je clik dessus c la qu'il me balance le message d'erreur

ADODO c'est pas très connu faute de frappe sans doute

arf New ADODO.Connection...

Bon j'ai remplacé avec ADODB
et main tenant j'ai cette erreur:
erreur d'execution '-2147467259 (80004005)':
Pilote Isam introuvable

et là l'erreur est sur le Cnx.Open

j'ai remplacé le  
Database=" & App.Path & "\base.mdb
par
Data Source= bla bla
et ça ne plante pas !

Mais maintenant erreur 91 "var bloc ou var objet non definie"
avec ça:
Private Sub Command2_Click()
Dim cnx As ADODB.Connection
Dim listeFPROCHE As Recordset
Set cnx = New ADODB.Connection
cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base.mdb"
cnx.Open
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cnx
rs.Open "select * from Fproche where themes=""hebdo"""
 
    While Not listeFPROCHE.EOF
    TextBox1.Text = TextBox1.Text & listeFPROCHE("REF_DVD" ) & " " & listeFPROCHE("THEMES" ) ' & vbCrLf
    listeFPROCHE.MoveNext
    Wend
 
rs.Close
Set rs = Nothing
cnx.Close
Set cnx = Nothing
End Sub
 
Erreur sur le WHILE NOT

CA MARCHE !!!!!!
 
J'ai remplacé tous les listeFproche par les rs !!
 
 
 
merci à vous
 
avant le week end c cool :à)

euh une variable ça change pas de nom évidemment hein
t'es vraiment tout nouveau dans la prog en fait?
 
le recordset, mieux vaut le déclarer Dim rs as ADODB.Recordset parce que je sens bien que t'as DAO et ADO activés tous les deux dans le même projet, donc le préfixe ADODB c'est obligé pour éviter les conflits

yes je suis nouveau, pour ça au début quand vous me parliez ct du chinois, maintenant avec le programme qui fonctionne je pige mieux, et c'est noté pour les var
dim blabla as ADODB.recordset pour eviter l'amalgame avec DAO
 
Merci à vous en tout cas !
 
Bon week end !