comment créer un projet adp en vb6 ?

comment créer un projet adp en vb6 ? - VB/VBA/VBS - Programmation

Marsh Posté le 26-08-2005 à 12:46:13    

yop tout le monde,
 
dans le cadre de mon boulot, je programme un wizard en vb6. je crée une base dans SQL Server, les tables, vues, procédures et fonctions, et même un DTS et un job.
 
comme les utilisateurs sont plus à l'aise avec l'interface access que l'entreprise manager, j'aimerai leur proposer un projet adp.
 
ma question est donc : comment créer un projet adp avec du code vb?
 
j'ai aussi pensé à avoir un fichier .adp de prêt qu'il me suffirait de copier/renommer. mais je ne trouve pas non plus comment changer la chaîne de connexion pour que l'adp pointe sur la bonne base de données. :/
 
qqn pourrait-il me mettre sur la piste?
 
merci :)

Reply

Marsh Posté le 26-08-2005 à 12:46:13   

Reply

Marsh Posté le 26-08-2005 à 13:45:21    

j'ai cherché tout le matin, et évidemment une fois ma question postée, j'ai trouvé la réponse! :D
 
 
pour ceux que ca intéressent :  
 

Code :
  1. Dim AccessApp
  2. Set AccessApp = CreateObject("Access.Application" )
  3. AccessApp.Visible = False
  4. AccessApp.OpenCurrentDatabase "monficher.adp"
  5. AccessApp.CurrentProject.OpenConnection ("PROVIDER=SQLOLEDB.1;" _
  6.                 & "INTEGRATED SECURITY=SSPI;" _
  7.                 & "PERSIST SECURITY INFO=TRUE;" _
  8.                 & "INITIAL CATALOG=" & sDBName & ";" _
  9.                 & "DATA SOURCE=" & sSQLServer & ";" _
  10.                 & "PASSWORD=" & sSQLPwd & ";" _
  11.                 & "Use Procedure for Prepare=1;" _
  12.                 & "Auto Translate=True" )
  13. Set AccessApp = Nothing


 
 
j'utilise un fichier adp déjà existant, je refais juste la chaine de connexion. vouala. :)


Message édité par swing le 26-08-2005 à 13:54:37
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed