A voir également:
- Chaine de connection .net sql server
- Paint net - Télécharger - Dessin & Illustration
- Net framework - Télécharger - Divers Utilitaires
- Hotmail connection - Guide
- Chaine tnt gratuite sur mobile - Guide
- Plus de chaine tv - Guide
1 réponse
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
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