VB6 et feuilles de données

Salut Sabri,

EURÊKA ! J’ai trouvé !

Voici comment j’ai fait :

J’ai ouvert tout d’abord une nouvelle form en ayant auparavant ajouté dans mes composants le " Microsoft Data Bound Grid Control 5.0 (SP3)."
Dans la feuille, j’ai placé un Combo, un bouton de commande, une DBGrid et un contrôle MSRDC.
Dans les propriétés de la DBGrid, sous l’onglet " Général " toutes les options de la frame de gauche sont à sélectionner.
Le combo sert à récupérer le nom des tables sur lesquelles je veux travailler : dans mon cas toutes celles commençant par « REF ». Ceci se fait lors de l’ouverture de la form. Voici le code :

Private Sub Form_Load()
sql = "Select table_name from sysibm.tables where table_schema = 'mabase' and table_name like 'REF%' order by table_name"
Cmd.CommandText = sql
Cmd.CommandType = adCmdText
Set Rst = Cmd.Execute
Do While Not Rst.EOF
Combo1.AddItem Rst!table_name
Rst.MoveNext
Loop
End Sub

Un click sur le bouton de commande permet alors d’afficher sous forme « feuille de données (type Excel) toutes les données de la table sélectionnée :

Private Sub Command1_Click()
If Combo1.Text = "" Then
MsgBox "Veuillez sélectionner une table!", vbCritical, "Anomalie"
Exit Sub
Else
MSRDC1.sql = "Select * from mabase" & Combo1.Text
sql = "Select colname from syscat.columns where tabname = '" & Combo1.Text & "' and keyseq >=1 order by keyseq"
Cmd.CommandText = sql
Cmd.CommandType = adCmdText
Set Rst = Cmd.Execute
Do While Not Rst.EOF
If key1 = 0 Then
MSRDC1.sql = MSRDC1.sql & " order by " & Rst!colname
key1 = 1
Else
MSRDC1.sql = MSRDC1.sql & " , " & Rst!colname
End If
Rst.MoveNext
Loop
MSRDC1.Refresh
End If
End Sub

A partir de là, il est alors possible de créer un nouvel enregistrement, d’en modifier un autre ou encore de supprimer un enregistrement gênant.
Les propriétés de MSRDC sont les suivantes :

Appearane : 1 rd3Dbevel BOFaction : 0 rdMoveFirst CursorDriver : 1 rdUseODBC
EOFAction : 0 rdMoveLast LockType : 3 rd ConcurRowVer Prompt : 3 rdDriverCompleteRequired
ReadOnly : False ResultSetType : 1 rdOpenKeySet Visible : False

Voilà, j'espère que ceci aidera nos nombreux collègues.

Un grand merci à toi ainsi qu'à Marlène qui avez essayé de m'aider.

rudy

Bonjour Marlène,

D'abord merci de me répondre.

Je veux en effet pouvoir ajouter, modifier ou supprimer un ENREGISTREMENT.

Le but de l'affichage sous forme d'une feuille de données est que pour les quelques enregistrements qui seront introduits dans ces fichiers il ne vaut vraiment pas la peine de créer des feuilles normales avec tout le code nécessaire.

A+

OK marlene je vais essayer.

Merci beaucoup.