Discussion :

[PIERRE57]

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

[Invité]

Salut,

Base de Donnée : Laquelle ?

Tu parles de Excell, VB et ...

Starec

[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...

A tout'

[PIERRE57]

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

(Référence à l' "autoforamtion pour développeurs" Manul de Microsoft

[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.

[SilkyRoad]

bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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