[VBA-E]Base de données

Version imprimable

24/02/2006, 15h26
PIERRE57

[VBA-E]Base de données

BONJOUR,

EXECEL 97- visual basic

je débute et déjà HELP !!!!

je n'arrive pas à enregistrer de nouvelles lignes dans une base de données. A chaque fois la sauvegarde n'enregistre rien sauf si je supprime des enregistrements

Merci de m'informer
24/02/2006, 15h28
Invité

Salut,

Base de Donnée : Laquelle ?

Tu parles de Excell, VB et ...

Starec
24/02/2006, 15h35
ouskel'n'or

Hello PIERRE57,
Bienvenue sur le forum
Tu n'as pas lu les règles du forum et pourtant elles sont bien et donnent plein de conseils utiles pour tes recherches.
Par contre, certaines exigences sont à respecter, "pas de sujet en majuscule", "une description claire de ton problème"...
Si maintenant tu pouvais nous en dire plus... :wink:

A tout'
24/02/2006, 15h40
PIERRE57

Base de données *.dbf (d'Excel 97) d base IV

(Référence à l' "autoforamtion pour développeurs" Manul de Microsoft
24/02/2006, 16h10
AlainTech

1- Change ton titre (pas de majuscules)

2- Ton programme est écrit dans l'éditeur d'Excel?

3- Donne-nous ton code (entre balises code) pour qu'on puisse comprendre ce que tu essaye de faire.

bonjour

tu peux utiliser une procedure de ce type pour ajouter un enregistrement dans un fichier .dbf

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub piloterDBase_ajoutEnregistrement()
'necessite d'activer la reference
'Microsoft ActiveX Data Objects x.x Library
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Chemin As String, Cible As String, laBase As String
 
Chemin = "C:\Documents and Settings\michel\dossier"
laBase = "Table1.dbf"
 
Set Cn = New ADODB.Connection
Cn.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & _
Chemin & ";"
 
Cible = "SELECT * FROM " & laBase & ";"
 
Set Rs = New Recordset
Rs.Open Cible, Cn, adOpenKeyset, adLockOptimistic
 
    With Rs
    .AddNew
    .Fields(0) = "Texte"
    .Fields(1) = CDate("2005-07-04")
    .Fields(2) = 10001
    .Fields(3) = "un commentaire"
    .Update
    End With
 
Rs.Close
Cn.Close
End Sub

bonne soiree
michel