Ouverture base de données avec et sans dsn

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 475 fois - Téléchargée 57 fois

Contenu du snippet

je cherchais comment ouvrir une base de données avec (seulement) le lien odbc et je ne trouvais pas sur le site, donc le voici
c tout bete mais ca peut depanner
(j'en profite pour mettre la chaine de connexion Fox Pro)

Source / Exemple :


Private objetConnexion As ADODB.Connection
'Ouverture de la connexion avec le nom du serveur 'nomServeur' et le nom de la base de données'nomBase'
Public Sub OuvreSql(nomServeur As String, nomBase As String, login as String,pwd as String)
    Set objetConnexion = New ADODB.Connection
    objetConnexion.Open "Data Source=" + nomServeur + ";" + "Provider=SQLOLEDB;" + "Initial Catalog=" + nomBase + ";" + "User ID=" & login & ";pwd=" & pwd 
End Sub

'Ouverture de la connexion avec le lien odbc
Public Sub OuvreSqlOdbc(nomLien As String, login as String,pwd as String)
    Set objetConnexion = New ADODB.Connection
    objetConnexion.Open "DSN=" & nomLien & ";User ID=" & login & ";pwd=" & pwd
End Sub
'ouverture de la table foxpro a partir du 'repertoire'
Public Sub OuvreFoxPro(repertoire As Variant)
    Set objetConnexion = New ADODB.Connection
    objetConnexion.Open "Driver=Microsoft Visual Foxpro Driver;SourceDB=" + repertoire + ";SourceType=DBF;"
End Sub

'et pour ceux qui doivent utiliser des commandes fox pro (c bien utile et j'ai eu du mal a trouver ca)
public sub execFox(chaine as String)
Dim objetFox As Object
Set objetFox = CreateObject("VisualFoxPro.Application")
objetFox.DoCmd chaine
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.