Bonjour,

voilà je vous explique mon problème, je souhaiterais me connecter a une base de données présentes soit dans un server "mysql" soit dans un server "sql server".

J'ai déja chercher un peu partout et je sais qu'il faut que j'utilise ADO.
sur un site j'ai trouver ceci :

'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Set cnx =New ADODB.Connection
...

'Définition de la chaîne de connexion
cnx.ConnectionString = "UID=" + NomUtilisateur &";PWD=" & MotDePasse & ";" & "DRIVER={SQL Server};Server=" & NomServeur & ";Database=" & NomBaseDeDonnées & ";"

'Ouverture de la base de données
cnx.Open


il precise également pour mysql :

MySQL:

driver={mysql}; database=nombd;server=NomDuServeur;uid=NomUtilisateur;pwd=MotDePasse;option=16386;


mais malheuresement lorsque j'execute il me met une erreur : "Data source name not found and no default driver specified"

Donc si qqun sais ce que je dois faire ca serais cool de me le dire

merci d'avance.
ciao.
kalf.

alors ce que je te conseil c'est de creer un lien odbc (Panneau de config > Administration) pr mysql ou sql server

si tu l'apel MonOdbc sous vb ca devien :
cnx.Open "dsn=MonOdbc"

voila a+
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia..net
port : 6667
chan : #programmation

Plus simplement tu pe ajouter un contrôle adodc à une de tes forms et tu fais 1 clic droit sur le adodc. Ensuite tu fais propriétés et tu cré une nouvelle chaîne de connection. A la fin t'as k'à faire un copier/coller de la chaine de connexion générée par l'assistant

salut,

voici la syntaxe que j'utilise pour attaquer Mysql (je crois qu'elle provient de vbfrance d'ailleurs)

il te faut installer MyODBC-3.51.06.exe (sur mysql.com)

Dim con As New ADODB.Connection 'mysql
Dim Cmd As New Command
Dim DSN As String
Dim Server As String
Dim DataBase As String
Dim Login As String
Dim Pass As String
'**********************************************************
'*Connexion à MySQL*
'**********************************************************
' Server MySQL
Server = "ton serveur"
' Nom de la base
DataBase = "ta base"
' Utilisateur pour la connexion
Login = "login"
' Mot de passe de l'utilisateur
Pass = "pass"
' Création de la chaine de connexion a la base
DSN = "driver={MySql ODBC 3.51 Driver};server=" & Server & ";db=" & DataBase & ";UID=" & Login & ";pwd=" & Pass & ";OPTION=16427"

' Instantiation des objets d'utilisation de la base
Set con = CreateObject("ADODB.Connection")

' Parametrage de la connexion base
con.ConnectionTimeout = 30
con.CommandTimeout = 30
con.Open DSN
Cmd.ActiveConnection = con

a+

amaramax