: Executer une requete?? [VB6] - Programmation
Marsh Posté le 21-03-2002 à 15:49:15
cerdoc a écrit a écrit : sur une base de données ? |
oui sur une base access 97 que j'ai construite avec le gestionnaire de données
Marsh Posté le 21-03-2002 à 18:11:31
dim rs as new ADODB.RecordSet
rs.open "requete",connection a la base
Marsh Posté le 23-03-2002 à 19:34:12
dim cngestion As New ADODB.Connection
dim rsgestion As ADODB.Recordset
'Procedure de connection à la base '
cngestion.ConnectionString = " Provider=Microsoft.Jet.oledb.4.0;data source=c:\...."
cngestion.open
'Procedure d'initialisation du recordset '
Set rsgestion = New ADODB.Recordset
rsgestion.CursorLocation = adUseClient
rsgestion.open "select * from ...", cngestion, adOpenDynamic,adLockOptimistic
'Alimentation des zones du formulaire'
Set txtNoprop.DataSource = rsgestion
txtNoprop.DataField = "noprop"
Set txtNom.DataSource = rsgestion
txtNom.DataField = "Nom"
Set txtPrenom.DataSource = rsgestion
txtPrenom.DataField = "prenom"
Set txtAdres.DataSource = rsgestion
txtAdres.DataField = "adresse"
[jfdsdjhfuetppo]--Message édité par kvl--[/jfdsdjhfuetppo]
Marsh Posté le 23-03-2002 à 22:04:05
pfffffff c d'un compliqué votre truc !!
dim DB as DataBase
Dim Requete as String
Dim rs as recordset
set db=dbengine.opendatabase("c:\aa\aa.mdb" )
set rs=db.openrecordset(requete,dbopendynaset)
et hop !!
le résultat de la requête est dans rs.......
Marsh Posté le 20-03-2002 à 13:59:30
SAlut a tous, j'espere que vous allez pouvoir m'aider,
je connais pas la commande pour executer une requete.
Merci d'avance