Comment faut-il procéder pour se connecter à une base Bd1 sur un serveur
Sv1, exécuter une requête de type "Select x from Tab1 where ....) et
récupérer les données.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Cedric85
>-----Message d'origine----- Bonjour,
Comment faut-il procéder pour se connecter à une base Bd1
sur un serveur
Sv1, exécuter une requête de type "Select x from Tab1
where ....) et
récupérer les données.
Merci de votre aide.
SqlServer 2000 et VB 6
.
Bonjour,
Pour se connecter au serveur SQL, il faut definir une chaine de connexion (cf. CnxStr) Ensuite Ilfaut declarer des variables dans VB afin de definir la connexion et le recordset qui recevra les resultats.
Dim CnxStr As String 'Chaine de connexion Dim Cnx As New ADODB.Connection 'Connexion Dim Cmd As New ADODB.Command 'Commande SQL Dim Rs As New ADODB.Recordset 'Recorset Dim Rq As String 'Texte de la requete Dim i As Integer 'Compteur pour parcourir le RS
Private Sub test() CnxStr = "Provider=SQLOLEDB.1;Password=<PWD_UTILISATEUR>;Persist Security Info=True;User ID=<LOG_UTILISATEUR>;Initial Catalog=<NOM_BASE>;Data Source=<NOM_SRV>" Rq = "Select * From ...." Cnx.Open (CnxStr) Cmd.ActiveConnection = Cnx Cmd.CommandText = Rq Rs = Cmd.Execute() If Rs.RecordCount > 0 Then Rs.MoveFirst For i = 0 To Rs.RecordCount - 1 'remplissage du controle que tu veux 'ListBox, ComboBox, etc... Rs.MoveNext Next End If End Sub
Si cela ne fonctionne pas, envoyez moi le code a l'adresse suivante : paillat_c(AntiSpamASupprimer)@voila.fr
>-----Message d'origine-----
Bonjour,
Comment faut-il procéder pour se connecter à une base Bd1
sur un serveur
Sv1, exécuter une requête de type "Select x from Tab1
where ....) et
récupérer les données.
Merci de votre aide.
SqlServer 2000 et VB 6
.
Bonjour,
Pour se connecter au serveur SQL, il faut definir une
chaine de connexion (cf. CnxStr)
Ensuite Ilfaut declarer des variables dans VB afin de
definir la connexion et le recordset qui recevra les
resultats.
Dim CnxStr As String 'Chaine de connexion
Dim Cnx As New ADODB.Connection 'Connexion
Dim Cmd As New ADODB.Command 'Commande SQL
Dim Rs As New ADODB.Recordset 'Recorset
Dim Rq As String 'Texte de la requete
Dim i As Integer 'Compteur pour parcourir le RS
Private Sub test()
CnxStr
= "Provider=SQLOLEDB.1;Password=<PWD_UTILISATEUR>;Persist
Security Info=True;User ID=<LOG_UTILISATEUR>;Initial
Catalog=<NOM_BASE>;Data Source=<NOM_SRV>"
Rq = "Select * From ...."
Cnx.Open (CnxStr)
Cmd.ActiveConnection = Cnx
Cmd.CommandText = Rq
Rs = Cmd.Execute()
If Rs.RecordCount > 0 Then
Rs.MoveFirst
For i = 0 To Rs.RecordCount - 1
'remplissage du controle que tu veux
'ListBox, ComboBox, etc...
Rs.MoveNext
Next
End If
End Sub
Si cela ne fonctionne pas, envoyez moi le code a l'adresse
suivante : paillat_c(AntiSpamASupprimer)@voila.fr
Comment faut-il procéder pour se connecter à une base Bd1
sur un serveur
Sv1, exécuter une requête de type "Select x from Tab1
where ....) et
récupérer les données.
Merci de votre aide.
SqlServer 2000 et VB 6
.
Bonjour,
Pour se connecter au serveur SQL, il faut definir une chaine de connexion (cf. CnxStr) Ensuite Ilfaut declarer des variables dans VB afin de definir la connexion et le recordset qui recevra les resultats.
Dim CnxStr As String 'Chaine de connexion Dim Cnx As New ADODB.Connection 'Connexion Dim Cmd As New ADODB.Command 'Commande SQL Dim Rs As New ADODB.Recordset 'Recorset Dim Rq As String 'Texte de la requete Dim i As Integer 'Compteur pour parcourir le RS
Private Sub test() CnxStr = "Provider=SQLOLEDB.1;Password=<PWD_UTILISATEUR>;Persist Security Info=True;User ID=<LOG_UTILISATEUR>;Initial Catalog=<NOM_BASE>;Data Source=<NOM_SRV>" Rq = "Select * From ...." Cnx.Open (CnxStr) Cmd.ActiveConnection = Cnx Cmd.CommandText = Rq Rs = Cmd.Execute() If Rs.RecordCount > 0 Then Rs.MoveFirst For i = 0 To Rs.RecordCount - 1 'remplissage du controle que tu veux 'ListBox, ComboBox, etc... Rs.MoveNext Next End If End Sub
Si cela ne fonctionne pas, envoyez moi le code a l'adresse suivante : paillat_c(AntiSpamASupprimer)@voila.fr
ROLLOT Pascal Jean
Merci et bon week-end. "Cedric85" a écrit dans le message de news:1b23101c44f95$ad385c90$
-----Message d'origine----- Bonjour,
Comment faut-il procéder pour se connecter à une base Bd1
sur un serveur
Sv1, exécuter une requête de type "Select x from Tab1
where ....) et
récupérer les données.
Merci de votre aide.
SqlServer 2000 et VB 6
.
Bonjour,
Pour se connecter au serveur SQL, il faut definir une chaine de connexion (cf. CnxStr) Ensuite Ilfaut declarer des variables dans VB afin de definir la connexion et le recordset qui recevra les resultats.
Dim CnxStr As String 'Chaine de connexion Dim Cnx As New ADODB.Connection 'Connexion Dim Cmd As New ADODB.Command 'Commande SQL Dim Rs As New ADODB.Recordset 'Recorset Dim Rq As String 'Texte de la requete Dim i As Integer 'Compteur pour parcourir le RS
Private Sub test() CnxStr = "Provider=SQLOLEDB.1;Password=<PWD_UTILISATEUR>;Persist Security Info=True;User ID=<LOG_UTILISATEUR>;Initial Catalog=<NOM_BASE>;Data Source=<NOM_SRV>" Rq = "Select * From ...." Cnx.Open (CnxStr) Cmd.ActiveConnection = Cnx Cmd.CommandText = Rq Rs = Cmd.Execute() If Rs.RecordCount > 0 Then Rs.MoveFirst For i = 0 To Rs.RecordCount - 1 'remplissage du controle que tu veux 'ListBox, ComboBox, etc... Rs.MoveNext Next End If End Sub
Si cela ne fonctionne pas, envoyez moi le code a l'adresse suivante : paillat_c(AntiSpamASupprimer)@voila.fr
Merci et bon week-end.
"Cedric85" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1b23101c44f95$ad385c90$a101280a@phx.gbl...
-----Message d'origine-----
Bonjour,
Comment faut-il procéder pour se connecter à une base Bd1
sur un serveur
Sv1, exécuter une requête de type "Select x from Tab1
where ....) et
récupérer les données.
Merci de votre aide.
SqlServer 2000 et VB 6
.
Bonjour,
Pour se connecter au serveur SQL, il faut definir une
chaine de connexion (cf. CnxStr)
Ensuite Ilfaut declarer des variables dans VB afin de
definir la connexion et le recordset qui recevra les
resultats.
Dim CnxStr As String 'Chaine de connexion
Dim Cnx As New ADODB.Connection 'Connexion
Dim Cmd As New ADODB.Command 'Commande SQL
Dim Rs As New ADODB.Recordset 'Recorset
Dim Rq As String 'Texte de la requete
Dim i As Integer 'Compteur pour parcourir le RS
Private Sub test()
CnxStr
= "Provider=SQLOLEDB.1;Password=<PWD_UTILISATEUR>;Persist
Security Info=True;User ID=<LOG_UTILISATEUR>;Initial
Catalog=<NOM_BASE>;Data Source=<NOM_SRV>"
Rq = "Select * From ...."
Cnx.Open (CnxStr)
Cmd.ActiveConnection = Cnx
Cmd.CommandText = Rq
Rs = Cmd.Execute()
If Rs.RecordCount > 0 Then
Rs.MoveFirst
For i = 0 To Rs.RecordCount - 1
'remplissage du controle que tu veux
'ListBox, ComboBox, etc...
Rs.MoveNext
Next
End If
End Sub
Si cela ne fonctionne pas, envoyez moi le code a l'adresse
suivante : paillat_c(AntiSpamASupprimer)@voila.fr
Merci et bon week-end. "Cedric85" a écrit dans le message de news:1b23101c44f95$ad385c90$
-----Message d'origine----- Bonjour,
Comment faut-il procéder pour se connecter à une base Bd1
sur un serveur
Sv1, exécuter une requête de type "Select x from Tab1
where ....) et
récupérer les données.
Merci de votre aide.
SqlServer 2000 et VB 6
.
Bonjour,
Pour se connecter au serveur SQL, il faut definir une chaine de connexion (cf. CnxStr) Ensuite Ilfaut declarer des variables dans VB afin de definir la connexion et le recordset qui recevra les resultats.
Dim CnxStr As String 'Chaine de connexion Dim Cnx As New ADODB.Connection 'Connexion Dim Cmd As New ADODB.Command 'Commande SQL Dim Rs As New ADODB.Recordset 'Recorset Dim Rq As String 'Texte de la requete Dim i As Integer 'Compteur pour parcourir le RS
Private Sub test() CnxStr = "Provider=SQLOLEDB.1;Password=<PWD_UTILISATEUR>;Persist Security Info=True;User ID=<LOG_UTILISATEUR>;Initial Catalog=<NOM_BASE>;Data Source=<NOM_SRV>" Rq = "Select * From ...." Cnx.Open (CnxStr) Cmd.ActiveConnection = Cnx Cmd.CommandText = Rq Rs = Cmd.Execute() If Rs.RecordCount > 0 Then Rs.MoveFirst For i = 0 To Rs.RecordCount - 1 'remplissage du controle que tu veux 'ListBox, ComboBox, etc... Rs.MoveNext Next End If End Sub
Si cela ne fonctionne pas, envoyez moi le code a l'adresse suivante : paillat_c(AntiSpamASupprimer)@voila.fr
Zoury
Salut Cédric! :O)
Dim Cnx As New ADODB.Connection 'Connexion
Je te conseilles d'éviter ce type de déclaration pour les objets, regarde cette discussion pour plus de détails : http://groups.google.com/groups?threadm=OVm4JcG1CHA.452%40TK2MSFTNGP11.phx.gbl
Je te conseilles d'éviter ce type de déclaration pour les objets, regarde
cette discussion pour plus de détails :
http://groups.google.com/groups?threadm=OVm4JcG1CHA.452%40TK2MSFTNGP11.phx.gbl
Je te conseilles d'éviter ce type de déclaration pour les objets, regarde cette discussion pour plus de détails : http://groups.google.com/groups?threadm=OVm4JcG1CHA.452%40TK2MSFTNGP11.phx.gbl
