code connexion sql server à, partir d'un code access
code connexion sql server à, partir d'un code access - SQL/NoSQL - Programmation
MarshPosté le 06-04-2010 à 16:10:50
Bonjour, j'ai trouvé un code de connexion à la base de donnée access en utilisant comme langage de programmation vb.net (le code est écrit dans un module à part puis lorsque j'ai besoin de la connexion je fait un appel)
Pouvez vous m'aider à l'écrire en faisant la connexion à la base de donnée SQL server? *nom de la base de donnée: PointdeVente *nom de quelque tables:Fournisseur,Banque,Client,Articles... *"Data Source=MA-PC\SQLEXPRESS;Initial Catalog=Fournisseur;Integrated Security=True"
Marsh Posté le 06-04-2010 à 16:10:50
Bonjour,
j'ai trouvé un code de connexion à la base de donnée access en utilisant comme langage de programmation vb.net (le code est écrit dans un module à part puis lorsque j'ai besoin de la connexion je fait un appel)
Pouvez vous m'aider à l'écrire en faisant la connexion à la base de donnée SQL server?
*nom de la base de donnée: PointdeVente
*nom de quelque tables:Fournisseur,Banque,Client,Articles...
*"Data Source=MA-PC\SQLEXPRESS;Initial Catalog=Fournisseur;Integrated Security=True"
voici le code:
--------------
Public Sub connect()
Try
sourcedonnees = LitDansFichierIni("BASE", "DataSource", "", "", (RepEncours & "\Nouvelair.ini" ))
provi = LitDansFichierIni("BASE", "provider", "", "", (RepEncours & "\Nouvelair.ini" ))
'userId = LitDansFichierIni("BASE", "UserID", "", "", (RepEncours & "\Nouvelair.ini" ))
'PASSWORD = LitDansFichierIni("BASE", "PASSWORD", "", "", (RepEncours & "\Nouvelair.ini" ))
cnx = New OleDbConnection
'maConnexion.ConnectionString = "Data Source='" & sourcedonnees & "';Initial Catalog='" & InitialCatalog & "';User ID='" & userId & "';Password='" & PASSWORD & "'"
'cnx.ConnectionString = "Data Source='" & sourcedonnees & "'; provider'" & provi & "'"
cnx.ConnectionString = "provider='" & provi & "'; Data Source='" & sourcedonnees & "'"
cnx.Open()
Catch ex As OleDbException
MessageBox.Show(ex.Message)
End Try
End Sub