crystal report et fichier .ini

merci pour tous ce qui ont bien lus mon message mais ils ont pas pu m'aider, et pour touts les autres qui ont le meme probleme vous n'avez qu' avoir une fonction qui permet la lecture dans in fichier .ini comme :

Public Function LitDansFichierIni(Fichier As String, Section As String, Cle As String, _

    Optional ValeurParDefaut As String = "") As String

Dim strReturn As String

strReturn = String(255, 0)

GetPrivateProfileString Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier

LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)

End Function

et des variable de type string
exemple :

Global serveur As String (le nom serveur)

Global bdd As String (le nom de la base donnée)

Global user As String (le nom utilisateur sql a le pouvoir sur le bdd comme le comte sa)

Global psw As String (le mot de passe de l'utilisateur sa ou d'un autre)

ensuite vous ajouté un public sub qui va introduider les valeurs du fichier.ini dans nos variables :

Public Sub hach()

serveur = LitDansFichierIni(App.Path & "\DB.ini", "etat", "serveur")

bdd = LitDansFichierIni(App.Path & "\DB.ini", "etat", "bdd")

user = LitDansFichierIni(App.Path & "\DB.ini", "etat", "user")

psw = LitDansFichierIni(App.Path & "\DB.ini", "etat", "psw")

End Sub

enfin dans le procédure d'impression :

hach

    CrystalReport2.LogOnServer "p2ssql.dll", serveur, bdd, user, psw

    CrystalReport2.Destination = crptToWindow

    CrystalReport2.ReportFileName = App.Path & "\etat\ETAT_PARREP1.rpt"

    CrystalReport2.WindowState = crptMaximized

    CrystalReport2.Action = 1

    CrystalReport2.Reset

a la fin bonne impression et merci our tout



(Un modérateur a ajouté les balises [code] pour mettre ce sujet en conformité avec les règles de publication de ce forum.)