DBGRID or not DBGRID

Question

Bonjour à tous.

Voila je suis nouveau dans le VB et je cherche à afficher le contenu d'une table dans une DBGRID.

Le seul probleme c'est que ma db access est protégée et en mettant le login et le pass dnas les propriété de l'adodc ca ne marche pas.

Donc si quelqu'un avait la salution ca m'aiderai beaucoup.

Merci

cboulas · Answer

Utilise le mode manuel de ADODB.

Look This :

============================================
Public wscltb As Workspace 'variable de base de données
Public rscltb As Recordset 'variable de base de données
Public dbcltb As Database 'variable de base de données

Set wscltb = DBEngine.Workspaces(0)
Set dbcltb = wscltb.OpenDatabase("Chemin de la base"), False, False, "MS Access;PWD=MOTDEPASSE")

Set rscltb = dbcltb.OpenRecordset("Select * from user", dbOpenDynaset)

etc...

puis on referme la base.

Chris

cs_kurky · Answer

merci mais je comprend pas trop le lien entre ca et l'adodc 

 :shock)

cboulas · Answer

Dans l'exemple que je t'ai citer je charge la base Access avec le mot de passe, et mes enregistrement sont dans le recordset : rscltb

Chris...
Firstruner

cs_kurky · Answer

Oui j'avai compris mais dans ce cas j'attribut quel nom a mon adodc ?

dsl j'débute g pas encore la logique VB dans la tete. Suis plus C :)

cboulas · Answer

Bhà j'ai regarder au sujet de AdoDC dans la MSDN, et il n'en parle pas spécialement ils préconise de passer par la AdoDB.

C'est ce que j'utilise pour charger, modifier, ajouter, supprimer dans une base access. il faut aller également dans 'Projet' puis 'référence' puis cocher : 'Microsoft Jet Ado 3.6'
Afin d'accéder aux module AdoDB

Chris...
Firstruner

cs_kurky · Answer

mais le but général du truc c'est d'arriver à afficher une base protégée dans un dbgrid.

Ca se trouve suis parti sur un truc un peu compliqué alors k'il y a plus simple....

PS : G pas Jet ado 3.6 g le 3.51 et 4.0 et je ne trouve pas AdoDB :p

cboulas · Answer

Salut,

Je pense qu'une mise à jour de VB serais nécéssaire, je suis en SP6, c'est peut-être cela. mais essai en 3.51, je pense que cela doit marcher, je vais tester.

Chris...
Firstruner

cs_kurky · Answer

arf vi sur ce poste il est pas a jour lol  :blush)

cs_kurky · Answer

T sur que c micorsoft jet 3.6 ?

Parce que meme sur le net je trouve pas :(

C'est pas microsoft DAO 3.6 ?

cboulas · Answer

Oupss, Effectivement, pardon c'est bien DAO 3.6

Encore sorry

Chris...
Firstruner

cs_kurky · Answer

ui nan ca je lai depuis longtemps sinon j'pourrai pas me connecter a la base access :)

mais en fait le truc c que je suis connecter a ma base depuis bel lurette. En grfos me resterai juste le recordset a faire mais ce que g fai chie :



Dim rs As New adodb.Recordset
Dim SQL As String

SQL = "SELECT * FROM TabPMNomINCI"

rs.Open SQL, dBaseDeDonnées, adOpenDynamic, adLockOptimistic

Set DBGridParf.DataSource = rs



 %-6

cboulas · Answer

Pour récup les datas d'un recordset, utilise :

Recordset.fields("colonne")

Chris...
Firstruner

cs_kurky · Answer

mais deja avec ce que g tapé ca me met :

"les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres"

est ce que c normal ? :s

cboulas · Answer

Est-ce une base SQL ? ou Access ?
Car je n'est jamais pratiquer sur SQL.

Chris...
Firstruner

cs_kurky · Answer

nan c une base access
Mais la difficulté c kelle est protégé par mot de passe
Sans quoi j'avai reussi a afficher une base sans pass

Mias la je bloc

cs_kurky · Answer

C'est bon g reussi a faire marché cette grille ! Enfin

Now g un autre probleme ! Enfin ce n'est pas un probleme en soit mais c'est au nivo des propriété de la DBGrid

Lorsque l'on modifie un chan, des kil perd le focus la donnée est suvegardée dans ma DB Access. 
Je voudrai donc savoir sil est possible de descativer cette option et de faire la mise a jour de la DB par un bouton

Merci

cs_kurky · Answer

Ca y est j'ai reussi a la charger :D

Now un probleme est survenu !
Des qu'on modifie un chan et kil perd le focus, il sauvegarde dans la DB Access ! Ce qui ne me plait pas du tout

C'est pourquoi jorai voulu savoir s'il y avai un moyen dempecher cette sauvegarde automatique et de la basculer sur un bouton a part

Merci

cboulas · Answer

ça depend du script.
qu'el est t'il ?

Chris...
Firstruner

cs_kurky · Answer

Hum...

Qu'est ce que tu appel un script ?

cboulas · Answer

Script = Code

Dans un LostFocus

Chris...
Firstruner

cs_kurky · Answer

Nan mais j'utilise rien !
Le truc c que dès que tu modifie une chan de la table, et que tu click autre part la valeur que ta modifiée est directement entrée dans la DB.
Et c'est pas génial. Donc ce que je veux c'est de savoir s'il y a un moyen deviter cet enregistrement automatique dans la DB

cs_kurky · Answer

...

cboulas · Answer

Bhà dans mes bases, lorsque je fait une mise à jour, je recherche les enregistrements avec une requette SQL du style : "Select * from tables where....." puis pour modifier j'utilise la méthode ".Edit" de mon recordset, puis la méthode ".Update" pour mettre à jour et temps que je n'ai pas fait le ".Update" je n'est rien d'enregistrer.

Chris...
Web :Firstruner - eMail : [mailto:support@firstruner.com Support]

cs_kurky · Answer

ok c'est ce qui me semblai logique ossi mais la j'utilise pas de .Update et ca se met a jour direct

Justement c'est le ".Update" qu'il fodrai ke jutilise mais fo dabord trouver comme enlever "lupdate pseudo automatique"

cboulas · Answer

Ah, va faloir que je fasse un test sans le UpDate pour voir.
As-tu mis VB6 à jour, peut-être est-ce le pb.

Chris...
Web :Firstruner - eMail : [mailto:support@firstruner.com Support]

cs_kurky · Answer

ui je suis a jour (SP6)

Mais je pensai qu'il y avai une propriété qui permettai de ne pas sauver directement dès que le champs perdait le focus.

Je sais pas ce que tu utilise avec ta dbgrid mais moi jutilise un Data control pour la DB. Je c pas si ca peu taider.

cboulas · Answer

Bhà j'ouvre ma base avec ça :


Public ws As Workspace
Public rs As Recordset
Public db As Database
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("Chemin de la base", False, False, "MS Access;PWD=ABCD")
Set rscltsrc = db.OpenRecordset("Select * from clients Where tel like '" tel1 & "' ORDER BY nliv ASC", dbOpenDynaset)

'La j'ai fait ma recherche dans la base et mon recordset contient mes réponses.

Ensuite j'utilise ".addnew" ou ".edit" et ".Update"

Et enfin :

db.close()


Chris...
Web :Firstruner - eMail :  [mailto:support@firstruner.com Support]

cs_kurky · Answer

ah oaui dans ce cas tu ne passe pas par un Data control
C'est peu etre de la que vien mon prob.
Ba je v test comme ca

merki

cboulas · Answer

J'ai eu plein de pb avec les DataControl, et puis un ricain m'a appris à utiliser cette méthode et du coup je n'est plus aucun pb.
N'oubli pas d'activé la référence : Microsoft DataJet 3.6.

Chris...
Web :Firstruner - eMail :  [mailto:support@firstruner.com Support]

cs_kurky · Answer

mais ... tutilise quand meme un datacontrol pour remplir ta dbgrid nan ?

tu pourrai pas me faire un exemple de code qui rempli une DBGrid vite fai an utilisan le .addnew etc ? lol commen c la galere le VB comparé au C :s

cboulas · Answer

Heu salut, Moi c'est chris ------ Bonjours Chris !!!
Et en fait je débute dans les DBGrids.

Non je déconne en fait je n'est jamais utiliser de DBGrid, alors il faut que j'étudi un peu ça avant. Car ce que je faisait c'est que je travaillais directement avec mon recordset et également des listbox. Laisse moi un peu de temps et je te pond ça soit dans la soirée, soit demain.
Pour me facilité la tache, comment inscrit tu une ligne dans une dbgrid et comment passe tu à la suivante.

-- Echange de bon procédés --

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

DBGRID or not DBGRID

31 réponses

Discussions similaires