begin process at 2008 07 19 08:52:13
1 212 721 membres
60 nouveaux aujourd'hui
14 165 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Besoin d'aide??????????? [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (klexus)

Besoin d'aide??????????? le 26/08/2004 14:23:04

klexus
salut,
je suis un jeune débutant en programmaation vb et j'aurai besoin d'aide.j'aimerai me connecté à une base de données Lotus Appraoch v9, où j'ai tous mes infos importants, avec le procédé ADO ou DAO ; comment Faire?
Merci de votre aide.......

Re : Besoin d'aide??????????? le 26/08/2004 14:51:46

jrivet
Membre Club
tu sais te servir d ADO ou pas ?

-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------


Re : Besoin d'aide??????????? le 26/08/2004 16:14:55

ITALIA
Membre Club
Arrété les mecs avec vos titres à la con qui veule rien dire...avec dix mille !!!!!...on se doute que t'a besoin d'aide.
Essayes de mettre un titre représentatif.

en DAO t'as essayé :

Set Db = OpenDatabase(CheminBase) ' Définition base de donnée

en cochant biensur...Projet..Références...Microsoft DAO 3.XX Object Library..

It@li@

Re : Besoin d'aide??????????? le 26/08/2004 18:05:50

ITALIA
Membre Club
Si c ok coches reponse acceptées mais je te conseille d'essayé en ADO car bien plus recent..

It@li@

Re : Besoin d'aide??????????? le 26/08/2004 18:11:46

ITALIA
Membre Club
Réponse acceptée !
EN ADO et une BAse ACCESS protégé par Mot de Passe:

Dim db As DAO.Database
Dim ws As DAO.WorkSpace
Dim rst As DAO.Recordset
Set ws = DBEngine.WorkSpaces(0)
Set db = ws.OpenDatabase ("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", False, False, "MS Access;PWD=northwind")
Set rst = db.OpenRecordset("Customers", dbOpenDynaset)
If rst.RecordCount > 0 Then
rst.MoveLast
MsgBox rst!CustomerID
End If
rst.Close
db.Close

It@li@


Classé sous : aide

Participer à cet échange

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS