Discussion :

[yucf_miagiste]

bonjour
j'ai une application vba+exel et une table sur une base de donnée sql server qui contient plusieur enregistrement le problème c'est je veux exécuter une requette il m'affiche ce msg le delai d'attente est expiré et j'ai indexé les champs sur la base de donné et j'ai pense sur le timeout est ce que kelk'un px m'aider sur ce point.

[jfontaine]

dans l'objet connexion, augmente le temps de l'argument CommandTimeout

[yucf_miagiste]

merci tu px me donner un exemple svp

[jfontaine]

montre nous d'abord ton code, que l'on puisse repondre quelque chose de correct

[yucf_miagiste]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub req()
 
 
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
 
Dim ADODB_Requete As New Command
Dim log As String
Dim cl As String
Dim c As String
 
a = InputBox("entrer la date 1:")
 
b = InputBox("entrer la date 2:")
 
 
cn.Open "driver={SQL Server}; server=trca3;uid=sa; pwd=; database=da"
 
 
 
With rs
 
    .Open "SELECT distinct(login),groupe FROM staffing_final where datee between '" & a & "' and '" & b & "'"
.colse.
.with
end sub

[jfontaine]

ok, Dans ce cas ajoute ca apres le Cn.open

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
cn.CommandTimeout=1000

L'unite est la seconde
Par défaut c'est 60 s. Si ta requete risque de durée plus longtemps augmente le délais