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
Philippe [MS]
Bonjour,
Set c = New ADODB.Connection => Définition d'une connexion à la base
Set r = New ADODB.Recordset => Création d'un recordset
c.Open "Provider=sqloledb;SERVER=MY_SQL_SERVERMY_SQL_INSTANCE;DATABASE=MY_DATABASE ;User Id=My_User;Password=My_Password" => Ouverture de la connexion vers la base : mettre la bonne chaine de connexion
r.ActiveConnection = c => Associer le recordset à la connexion
r.Open "my_ProcedureStockee" => Ouverture du recordset correspondant à la procédure stockée passé en argument
CurCell.Offset(line, 0).Value = r("YEAR") => Mettre en colonne 0 la colonne YEAR renvoyé par le recordset (my_ProcedureStockee)
CurCell.Offset(line, 1).Value = r("COMPETENCE") => Mettre en colonne 1 la colonne COMPETENCE renvoyé par le recordset (my_ProcedureStockee)
r.MoveNext => Déplacement à l'enregistrement suivant
r.Close => Fermeture du recorset
c.Close => Fermeture bde la connexion
N'hésite pas en cas de problème.
Phil.
"urgent" wrote in message news:
bonjour,
philippe j'ai pas bien compris ton programme , tu peux me faire un exemple ou me mettre des commentaire sur le programme. Sub Test()
Dim CurCell As Range Dim i As Integer Dim line As Integer
Set c = New ADODB.Connection Set r = New ADODB.Recordset
' Reactive la mise à jour de l'écran Application.ScreenUpdating = True ActiveSheet.Cells(1, 1).Select
End Sub
merci beaucoup Merci
Bonjour,
Set c = New ADODB.Connection
=> Définition d'une connexion à la base
Set r = New ADODB.Recordset
=> Création d'un recordset
c.Open
"Provider=sqloledb;SERVER=MY_SQL_SERVERMY_SQL_INSTANCE;DATABASE=MY_DATABASE
;User Id=My_User;Password=My_Password"
=> Ouverture de la connexion vers la base : mettre la bonne chaine de
connexion
r.ActiveConnection = c
=> Associer le recordset à la connexion
r.Open "my_ProcedureStockee"
=> Ouverture du recordset correspondant à la procédure stockée passé en
argument
CurCell.Offset(line, 0).Value = r("YEAR")
=> Mettre en colonne 0 la colonne YEAR renvoyé par le recordset
(my_ProcedureStockee)
CurCell.Offset(line, 1).Value = r("COMPETENCE")
=> Mettre en colonne 1 la colonne COMPETENCE renvoyé par le recordset
(my_ProcedureStockee)
r.MoveNext
=> Déplacement à l'enregistrement suivant
r.Close
=> Fermeture du recorset
c.Close
=> Fermeture bde la connexion
N'hésite pas en cas de problème.
Phil.
"urgent" <urgent@discussions.microsoft.com> wrote in message
news:ECF8CB56-3303-4AC0-8B6D-4C46315340CB@microsoft.com...
bonjour,
philippe j'ai pas bien compris ton programme , tu peux me faire un exemple
ou me mettre des commentaire sur le programme.
Sub Test()
Dim CurCell As Range
Dim i As Integer
Dim line As Integer
Set c = New ADODB.Connection
Set r = New ADODB.Recordset
Set c = New ADODB.Connection => Définition d'une connexion à la base
Set r = New ADODB.Recordset => Création d'un recordset
c.Open "Provider=sqloledb;SERVER=MY_SQL_SERVERMY_SQL_INSTANCE;DATABASE=MY_DATABASE ;User Id=My_User;Password=My_Password" => Ouverture de la connexion vers la base : mettre la bonne chaine de connexion
r.ActiveConnection = c => Associer le recordset à la connexion
r.Open "my_ProcedureStockee" => Ouverture du recordset correspondant à la procédure stockée passé en argument
CurCell.Offset(line, 0).Value = r("YEAR") => Mettre en colonne 0 la colonne YEAR renvoyé par le recordset (my_ProcedureStockee)
CurCell.Offset(line, 1).Value = r("COMPETENCE") => Mettre en colonne 1 la colonne COMPETENCE renvoyé par le recordset (my_ProcedureStockee)
r.MoveNext => Déplacement à l'enregistrement suivant
r.Close => Fermeture du recorset
c.Close => Fermeture bde la connexion
N'hésite pas en cas de problème.
Phil.
"urgent" wrote in message news:
bonjour,
philippe j'ai pas bien compris ton programme , tu peux me faire un exemple ou me mettre des commentaire sur le programme. Sub Test()
Dim CurCell As Range Dim i As Integer Dim line As Integer
Set c = New ADODB.Connection Set r = New ADODB.Recordset