Connection string pour control ado

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 645 fois - Téléchargée 1 220 fois

Contenu du snippet

Bonjour à toutes et à tous,

Il y a quelques jours j'ai deplacé une de mes applications sur un autre disque, du coup elle s'est mise à planter a cause de la relocalisation de la base de données. Je vous donne ce petit bout de code. Il est clair que je n'ai pas inventer la poudre. Mais il est suffisament expliquer pour peut etre vous permettre de repondre à d'autre probleme que vous rencontrez.

J'espère que ca vous aidera un peu.

Source / Exemple :


'==================================================================================
'PROCEDURE DE MISE A JOUR DES CONTROLS DAT                                        =
'==================================================================================
Public Sub PROCEDURE_MAJDAT(DAT_CONTROL As Adodc, DATABASE_DIRECTORY As String, DATABASE_FILENAME As String, DATABASE_REQUEST As String)
'DAT_CONTROL = NOM DU CONTROL ADO
'DATABASE_DIRECTORY = RACINE OU SE TROUVE LA BASE DE DONNEES
'DATABASE_FILENAME = NOM DE LA BASE DE DONNEES ACCESS
'DATABASE_REQUEST = CHAINE CONTENANT LA REQUETE SQL

'CONNECTIONSTRING : CHAINE PERMETTANT DE SE CONNECTANT A LA BASE DE DONNEES (ICI BASE ACCESS)
DAT_CONTROL.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DATABASE_DIRECTORY & "\" & DATABASE_FILENAME & ";Persist Security Info=False"
'RECORDSOURCE : REQUETE SQL QUI VA VOUS PERMETTRE DE CHARGER LE CONTENU DE VOTRE BASE DE DONNEES
DAT_CONTROL.RecordSource = DATABASE_REQUEST
DAT_CONTROL.CommandType = adCmdText
'REFRESH : MISE A JOUR DE VOTRE CONTROL ADO
DAT_CONTROL.Refresh

End Sub

Private Sub Form_Load()
'ON APPEL LA PROCEDURE DU MODULE
PROCEDURE_MAJDAT DAT_PRIMARYRS, "C:\_BDA\", "_BDA.mdb", "SELECT * FROM NOMDEVOTRETABLE;"

'EXPLICATION DE LA LIGNE
'1. PROCEDURE_MAJDAT : ON APPEL LA PROCEDURE CONTENU DANS LE MODULE
'2. "C:\_BDA\" : LA RACINE DE LA BASE
'---------------------------------------------------------------------------------------------
'   Je vous conseil vivement d'eviter d'utiliser des racines fixe, si votre application bouge vous allez devoir
'   recoder votre application.
'   L'idée est de vous servir a fond de la fonction App.Path qui vous permet de recuperer la racin d'ou est
'   lancer votre programme.
'---------------------------------------------------------------------------------------------
'3. "_BDA.mdb" LE NOM DE VOTRE BASE DE DONNEES
'4. "SELECT * FROM NOMDEVOTRETABLE;" REQUETE SQL QUI VA INTERROGER VOTRE BASE DE DONNEES

'DANS CET EXEMPLE VOUS DEVEZ AVOIR UNE BASE DE DONNEES DANS LE REPERTOIRE "C:\_BDA\" QUI S'APPEL
'_BDA.mdb ET QUI DOIT CONTENIR UNE TABLE QUI S'APPELLE "NOMDEVOTRETABLE"
'UNE FOIS QUE TOUT EST OK IL NE VOUS RESTE PLUS QU'A METTRE LE NOM DU CHAMP DANS L'OPTION DATAFIELDS DE VOTRE
'ZONE DE TEXTE.

End Sub

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.