Discussion :

[wild_striker]

Bonjour,

Je débute en visual basic et j'aimerais configurer une dbgrid.

Je voudrais que ma dbgrid reprenne des données dans une base de données access.

1) une dbgrid reprendrais toute les données de ma base de données.
2) une autre dbgrid qui reprendrais des données en fonction d'un tri (j'aurais une combobox avec des données dedans que j'utiliserais comme tri.

Merci d'avance pour votre aide.

[iclic]

Bonjour,

Faire

1.
Projet
Composants
Puis cocher
Microsoft Data Bound Grid Control 5.0(SP3)

2.
Projet
Références
Puis cocher
Microsoft DAO 3.51 Object Library

3.Mettre sur ta feuille(Form1) un Data Control (Data1)
un DBgrid Control (DBGrid1
deux Command buttons (Command1,Command2)

4.Dans les propriétés des controles:

Control Default Name Propriétés Value
---------------------------------------------------------------

Data Control Data1 DatabaseName LeNomdeTaBDD
RecordSource LeNomTable ou rien

DBGrid Control DBGrid1 DataSource Data1

5.Ajouter sur Form1 le code suivant
en remplaçant NomDeTable par....
NomDuChamp par...

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
 
 
Option Explicit
      Dim sql As String
 
      Private Sub Command2_Click()
         ' SQL statement that does not return records.
         sql = "SELECT * From NomDeTable  Where NomDuChamp = Null"
         Data1.RecordSource = sql
         Data1.Refresh
         Command1.Visible = True
         Command2.Visible = False
      End Sub
 
      Private Sub Command1_Click()
      ' Set the RecordSource to fill the DBGrid control.
         Data1.RecordSource = "Titles"
         Data1.Refresh
         Command1.Visible = False
         Command2.Visible = True
      End Sub
 
      Private Sub Form_Load()
         Command1.Caption = "Remplir DBGrid"
         Command1.Visible = False
         Command2.Caption = "Initialiser DBGrid"
         Command2.Visible = True
      End Sub

Puis Exécuter

[wild_striker]

Un grand merci.

je le testerai lundi car je n'ai pas mon programme avec moi. je te tiens au courant.

Un grand merci en tout cas.

[wild_striker]

J'ai un problème avec ce que tu m'as dis de faire :

quand je veut allez dans recordsource il me met "Format de données (Chemin de la base de donées) non reconnu)

J'ai une base de données access.

Merci d'avance.

[iclic]

Bonjour,

Tu as certainement une BDD plus récente.
Alors il faut employer l'objet ADODC à la place de data et l'objet DataGrid à, la place de DbGrid.

Faire

1.
Projet
Composants
Puis cocher
Microsoft ADO Data Control 6.0(OLEDB)
Microsoft DataGrid Control 6.0(OLEDB)

2.
Projet
Références
Puis cocher
Microsoft ActiveX Data Objets 2.8 Library
Microsoft Data Binding Collection

Mettre l'objet Datagrid sur ta feuille (DataGrid1)
Mettre l'objet Adodc sur ta feuille (Adodc1)

Adodc1
Propriété :connexionstring cliquer

Affiche page propriété
Choisir Créér
Dans Connexion: chemin et nom de la BDD
Dans fournisseur
Choisir:Microsoft Jet 4.0 DB provider
Puis Tester la connexion

Propriété:RecordSource cliquer
Dans Type de commande:choisir 2-adcmdTables
Dans Nom de table:choisir un nom d'une table de la BDD

Datagrid1
Propriété : DataSource Mettre Adodc1

Dans le code

Remplacer Data1 par Adodc1

Et bien sur,ici

Code :

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

1
2
3
 
 'Data1.RecordSource = "Titles"
Adodc1.RecordSource = NomDuChampdetaBDD

Bon travail

[iclic]

Bonjour,

Voici le code complet

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
 
Option Explicit
 
      Private Sub Form_Load()
         Command1.Caption = "Remplir DataGrid"
         Command1.Visible = False
         Command2.Caption = "Initialiser DataGrid"
         Command2.Visible = True
      End Sub
 
 
      Private Sub Command2_Click()
         Adodc1.CursorLocation = adUseServer
         Adodc1.Refresh
         Command1.Visible = True
         Command2.Visible = False
      End Sub
 
      Private Sub Command1_Click()
         ' Set the RecordSource to fill the DataBGrid control.
         Adodc1.CursorLocation = adUseClient
         Adodc1.RecordSource = "NomDeTable"
         Adodc1.Refresh
         Command1.Visible = False
         Command2.Visible = True
      End Sub

[Porolou]

j'ai suivi et bénéficié de la résolution du problème sur DBGRID. Une requête du type adodc1.recordsource="select * from compte" où adodc1 fait référence a une base et à sa table compte fait erreur de syntaxe à l'instruction adodc1.refresh !