HELP ! URGENT BASE DE DONNEES !!!!! :-(

cs_LaMiss Messages postés 4 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 17 mars 2002 - 12 mars 2002 à 18:01
cs_LaMiss Messages postés 4 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 17 mars 2002 - 13 mars 2002 à 17:04
Help ! je suis debutante en VB et je dois creer des fenetres de saisie et de gestion de tables gérées sous Access 97. Comment faire pour me connecter à la base ? comment faire pour associer une table à des champs texte ?????? Comment enregistrer les modifications dans la base access??? Il me faut un truc performant (capable de gerer un grand nombre de données)
MERCI !!! :kisses)

La Miss

4 réponses

cs_vish Messages postés 82 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 12 mars 2003
13 mars 2002 à 11:29
Option Explicit
Public strDatabase As String
Public strbase As String
Public Cn As ADODB.Connection

Public Sub Connection()
Set Cn = New ADODB.Connection
On Error GoTo errFind

Set Cn = New ADODB.Connection
''On Error GoTo errFind
With Cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
'"P:\DELIVERY\database\DNT_DB.mdb"
.ConnectionString
.Open
End With

Exit Sub
errFind:
MsgBox "Impossible to connect to database", vbExclamation, "Error"
End
End Sub
" connection" que tu vas mettre dans un module

apres pour enregistrer et modifier dans ta base apres de champs text tu utiliose SQL.
exemple
connection
cn.execute " insert into table values (' " & text1.text & "')"
voila
cs_vish Messages postés 82 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 12 mars 2003
13 mars 2002 à 11:29
Option Explicit
Public strDatabase As String
Public strbase As String
Public Cn As ADODB.Connection

Public Sub Connection()
Set Cn = New ADODB.Connection
On Error GoTo errFind

Set Cn = New ADODB.Connection
''On Error GoTo errFind
With Cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
'"P:\DELIVERY\database\DNT_DB.mdb"
.ConnectionString
.Open
End With

Exit Sub
errFind:
MsgBox "Impossible to connect to database", vbExclamation, "Error"
End
End Sub
" connection" que tu vas mettre dans un module

apres pour enregistrer et modifier dans ta base apres de champs text tu utiliose SQL.
exemple
connection
cn.execute " insert into table values (' " & text1.text & "')"
voila
cs_CapCaverne Messages postés 12 Date d'inscription mercredi 6 février 2002 Statut Membre Dernière intervention 17 juin 2005
13 mars 2002 à 11:31
Bon ben 2 solutions :

1] la plus simple, la plus rapide mais la plus crade :
tu utilises tous les composants de VB qui gère ça :
Data , grid ...

2] la plus complexe mais la plus propre et donc la plus valorisante si c'est professionnel : tu crées des fiches que tu gères comme une grande : lecture et écriture , accès aux données ... (object Database , recordset ...)

Voila bonne chance !
cs_LaMiss Messages postés 4 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 17 mars 2002
13 mars 2002 à 17:04
Merci beaucoup !!!

:big)

LaMiss
Rejoignez-nous