Datragrid [Résolu]

Signaler
Messages postés
22
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
13 juin 2008
-
Messages postés
22
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
13 juin 2008
-
Question sur les Datagrid.
Je m'explique,mon programme génere ma base de donnée,sous un nom x en fonction du nom rentré par l'utilisateur.
Comment visualiser et modifier cette base de donnée dans ma Datagrid?  ?  ?
Merci d'avance pour vos reponse. 

4 réponses

Messages postés
22
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
13 juin 2008

Bon Je m'auto repond.
Ce code permet de visualiser sa base de donnée dans une datagrid.

Private Sub Command1_Click()




Set adoConnection = New ADODB.Connection
Set adoRecordset = New ADODB.Recordset

connectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Donnée.mdb;Persist Security Info=False"

adoConnection.Open connectString
adoRecordset.CursorLocation = adUseClient 'ligne pour eviter les erreur
adoRecordset.Open "Detecteur_Standart", adoConnectionSet grdlist.DataSource adoRecordset  'grdlist>datagrid


End Sub

Si quelqu'un peus m'expliquer comment modifier les données contenu dans cette datagrid et de ce faite modifier la base de donnée, je suis preneur .
Messages postés
19
Date d'inscription
samedi 25 février 2006
Statut
Membre
Dernière intervention
3 octobre 2013

quel type de DB utilises-tu??
Messages postés
22
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
13 juin 2008

Base de donnée  sous access
Mon programme me génere une base de donnée avec l'extention .accdb comportant des données déjà rentré par l'utilisateur.
Je dois récuperer cette base de donnée dans une autre form pour pouvoir la completer et la visualiser dans une datagrid.
Messages postés
22
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
13 juin 2008

Je viens de tester cette ligne de code :
sachant que me base de donnée creé ne contient que du texte

Dim x As Database
 Private Sub Form_Load()
    Set x = OpenDatabase("C:\Dossierx.mdb")
    Set grdlist.DataSource = x 
    grdlist.Columns(1).DataField = "DetecteurS"
    grdlist.Refresh
End Sub

J'ai une erreur sur cette ligne :
Set grdlist.DataSource = x 

Erreur d'execution '13':
Type incompatible
Je ne sais pas vraiment pourquoi