Discussion :

[paspillon]

Bonjour,

Je souhaite récupérer tous les noms des tables se trouvant dans une base de donnée. Voici mon code, mais malheureusement il s'arrête à la ligne 13.

Pourquoi????

J'espère être au bon endroit pour ma question.

Merci d'avance pour votre aide.

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
Sub Nom_tables()
 
Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command 'for SQL command
Dim rs As ADODB.Recordset 'for SQL access
 
Application.StatusBar = "Lancement extraction"
cn.Open "provider=IBMDA400;data source=blabla;Force Translate=0'"
Set cm.ActiveConnection = cn
 
Sql = "SELECT name FROM sysobjects WHERE type='U' ORDER BY name"
cm.CommandText = Sql
Set rs = cm.Execute() ' Ca plante ici <=========
 
Sheets.Add After:=Sheets(Sheets.Count)
Application.StatusBar = "Remplissage du tableau"
ActiveSheet.Range("a2").CopyFromRecordset rs
 
Set rs = Nothing
cn.Close
 
End Sub

[Invité]

Bonsoir,
Dans ton message tu dis que ça s'arrête et dans ton code tu écris au ça plante!

C'est pas la même chose.
Si smca ce plante,y a-t-il un message d'erreur. Si ça d'arrêt y a-t-il un on error resume Next?