Discussion :

[zahako]

Slt,
j'ai un pb , je me connecte sur une base de donnee sur le net avec un ip en VB et apres qlq ligne il me donne l'erreur pour delai d'attente ou la connexion est coupee
mon choi c que apres l'erreur il se connecte automatiquement ou qlq chose dans ce genre
est ce que qlq un peu me donner un coup de pouce ou une idee
merci

[AlainTech]

Bonjour et bienvenue sur ce forum.

Tu aurais plus de chance de recevoir une réponse en nous donnant le code que tu utilises.

[zahako]

en fait j'utilise ce code pour compter juste les enregistrements
merci de me repondre

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
28
  Dim db_sql As New ADODB.Connection
  Dim recordset_sql As New ADODB.Recordset
 
  Dim sql_str  As String
  Dim conteur As Double
  conteur = 0
 
  db_sql.Open "Provider=sqloledb;Data Source=10.10.10.10;Initial Catalog=base;User Id=sa;Password=mdpsql"
 
 
  sql_str = "SELECT * From nom_tbl"
  recordset_sql.Open sql_str, db_sql, adOpenKeyset, dLockOptimistic
 
 
  With recordset_sql
    .MoveFirst
 
    Do While Not .EOF
      conteur = conteur + 1
      .MoveNext
    Loop
  End With
 
  MsgBox conteur
 
  recordset_sql.Close
 
  db_sql.Close

Balises "code" ajoutées par AlainTech.
Merci d'y penser à l'avenir