Sujet Précédent Sujet Suivant

Pb help urgent : ayez pitié (lol) DBGRID et DATAGRID

stuffparadiz Messages postés 12 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 28 novembre 2005 - 7 mai 2004 à 08:41
gaa179 Messages postés 361 Date d'inscription mercredi 21 mai 2003 Statut Membre Dernière intervention 12 novembre 2009 - 7 mai 2004 à 10:30
Salut a tous , j'aimerai utilisé un de ses composant pour afficher le résultat d'un recordset mais je ne comprend absolument pas comment il fonctionne!
mon code par ex est :

Public db As Database
Public rs As Recordset

'chemin_base l'adresse physique de ma base de donnée

Set db = OpenDatabase(chemin_base)

str_sql="select ... from ... where ....;"

set rs=db.openrecordset(str_sql)

TOUT CA CA MARCHE

mais bon après c le trou noir j'ai essayé plein de truc sans succés, j'en appel a vous!!

Merci d'avance!

1 réponse

Réponse 1 / 1
gaa179 Messages postés 361 Date d'inscription mercredi 21 mai 2003 Statut Membre Dernière intervention 12 novembre 2009 2
7 mai 2004 à 10:30
Bonjour,

C'est normal. Tu utilise DAO pour te connecté à ta database et non ADODB. Il faut que tu utilse la référence Microsoft ActiveX DataOject 2.1 dans ton projet. Ensuite voici le code:

Option Explicit
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Cmd As New ADODB.Command

Public Sub ConnectBd()
On Error GoTo Err_ConnectBD
'Connection à la base de données
CnStSrv.Provider = "Microsoft.Jet.OLEDB.4.0"
CnStSrv.ConnectionString = [chemi_BD]
CnStSrv.Open
'Recordset
Set rs = Cn.Execute(str_sql)
'Datagrid
With Datagrid1
Set .DataSource = rs
.Visible = True
.Columns(0).Locked = True
.Columns(0).DataField = "[Nom du champ]"
.Columns(0).width=1500
.Columns(0).caption = "AAAAAA"
end with
End Sub

A+
0
Rejoignez-nous