salah.net
7 déc. 2007 à 16:03
Public Sub connection_sql(ByVal societe As String, ByVal serveur As String, ByVal nom_con As String, ByVal pas_server As String)
Try
Cursor.Current = Cursors.WaitCursor
mdi_principale.ToolStripStatusLabel1.Text = "Connexion à la base de donnée ..."
My.Application.DoEvents()
MsgBox(1)
conn = New SqlConnection("Data Source=" & serveur & ";Initial Catalog=" & societe & ";User ID=" & nom_con & ";Password=" & pas_server & ";Network Library=DBNMPNTW;")
MsgBox(2)
conn.Open()
Authentification = "sql"
nom_du_serveur = serveur
nom_de_la_base_actuel = societe
nom_de_connexion = nom_con
mot_de_passe = pas_server
Catch ex As Exception
MsgBox("Erreur lors de la connection au serveur " & serveur & vbCrLf & "Vérifier que le serveur est démarré et que la base de donnée est éxistée.", MsgBoxStyle.Critical, "AGL Commerciale")
End Try
End Sub
