Crystal et Access sécurisé

Question

Salut, 

J'utilise Crystal 8.5 et Access 2000.

J'ai toujours utilis&#233; access en mode non s&#233;curis&#233;.

Je viens de s&#233;curiser ma base, et maintenant je n'arrive plus &#224; imprimer.

voici mon code. je suppose qu'il faut informer que la base est s&#233;curis&#233;, mais comment ?



    ChaineSQL = strSubstitue(Requete_Fichier_Client, "%", "*")  'crystal report ne gere pas les %

    Dim cat As New ADOX.Catalog

    Dim cmd As New ADODB.Command

    cat.ActiveConnection = CN

    cmd.CommandText = ChaineSQL 

    On Error Resume Next

    cat.Views.Delete "reqFichier_Clients"

    Resume 0

    cat.Views.Append "reqFichier_Clients", cmd

    Set cat = Nothing



    Set RpT = RptApp.OpenReport(RTrim(Chemin) & "fichier_clients.rpt", 1)

    RpT.Database.Verify 'sa plante i&#231;i, normal puisque
le report n'est plus autoriser &#224; l'utiliser sans autorisation. comment
donner les param&#232;tres de connexion ?

    frmViewer1.Show

    frmViewer1.CRViewer1.DisplayGroupTree = False

    frmViewer1.CRViewer1.ReportSource = RpT

    frmViewer1.CRViewer1.ViewReport

    Set RpT = Nothing



merci

m2rtech · Answer

J'ai trouv&#233; quelques infos.



    Set RpT = RptApp.OpenReport(RTrim(Chemin) & "fichier_clients.rpt", 1)

    RpT.Database.Tables(1).SetSessionInfo "", Chr(10) & "Mot_de_Passe_Utilisateur"



Mais cela ne marche pas.



En fait je n'arrive meme plus &#224; creer de nouveaux reports. CR me
demande juste(?) un mot de passe (Administrateur ?), je lui donne, sans
succes...



de l'aide .....

Crystal et Access sécurisé

1 réponse

Discussions similaires