comment seconnecter à sql serveur par un identifiant à l'ouverture de l'application, récupérer cette connection dans les forme et feuilles suivantes en utilisant plusieur table différentes sur une même forme si vous pouvez même m'envoyer le code source d'une application.

EXPLICATION:

je suis en stage, je débute sur vb et je dois faire un gestionnaire des tâches multi utilisateur connecté à sql serveur si possibilité de contact serais ravis, j'ai besoin d'aide au secour

merci d'avance à ceux qui me répondrons

En entête de ta feuille principale ou d'un module :

' Objet connexion public
Public ObjetConnection As ADODB.Connection

' Objet recordset pour requetes SQL
Public rs As New ADODB.Recordset

Quand tu veux faire ta connexion tu fais :

BASE = "nom de la base"
PWD = "password"
USER = "nom"

Set ObjetConnection = New ADODB.Connection
sOpen = "Data Source=" + BASE + ";UID=" + USER + ";PWD=" + PWD + ";"
ObjetConnection.ConnectionString = sOpen
ObjetConnection.Open

DoEvents


et quand tu veux faire des requetes :

req = "SELECT * FROM BLCustomer"
Set rs.ActiveConnection = ObjetConnection
rs.Open req, ObjetConnection, adOpenKeyset, adLockReadOnly

puis tu accède au recordset par le nom champ sur la ligne active :

rs!Nom du champ sans guillements

tu peux bouger dans les champs avec rs.MoveFirst, MoveNext ...

dans un module:

public ConnectionBase as ADODB.Connection

pour te connecter

ConnectionBase.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=NomDeTaBase;Data Source=NomDeTonServeur"

Exemple de commande:

Public Sub cmdRecordsetFournisseur(rs As adodb.Recordset, Optional vSecteur As Variant, Optional vMetier As Variant, Optional vFournisseur As Variant) ' Recordset en lecture seule Dim stCommande As String Set rs = New adodb.Recordset rs.CursorLocation = adUseClient If IsMissing(vSecteur) Then vSecteur = "Fournisseur.fou_Secteur like '%'" Else vSecteur = "Fournisseur.fou_Secteur = '" & vSecteur & "'" End If If IsMissing(vMetier) Then vMetier = "Fournisseur.fou_Metier like '%'" Else vMetier = "Fournisseur.fou_Metier = '" & vMetier & "'" End If If IsMissing(vFournisseur) Then vFournisseur = "Fournisseur.fou_Libelle like '%'" Else vFournisseur = "Fournisseur.fou_Libelle = '" & vFournisseur & "'" End If stCommande = "SELECT * From Fournisseur WHERE " & vSecteur & " and " & vMetier & " and " & vFournisseur _ & " ORDER BY Fournisseur.fou_Secteur, Fournisseur.fou_Metier, Fournisseur.fou_Libelle" rs.Open stCommande, ConnectionBase, adOpenForwardOnly, adLockReadOnly end sub

-------------------------------
Réponse au message :
-------------------------------

comment seconnecter à sql serveur par un identifiant à l'ouverture de l'application, récupérer cette connection dans les forme et feuilles suivantes en utilisant plusieur table différentes sur une même forme si vous pouvez même m'envoyer le code source d'une application.

EXPLICATION:

je suis en stage, je débute sur vb et je dois faire un gestionnaire des tâches multi utilisateur connecté à sql serveur si possibilité de contact serais ravis, j'ai besoin d'aide au secour

merci d'avance à ceux qui me répondrons