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
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
Salut,
Base de Donnée : Laquelle ?
Tu parles de Excell, VB et ...
Starec
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'
Base de données *.dbf (d'Excel 97) d base IV
(Référence à l' "autoforamtion pour développeurs" Manul de Microsoft
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 : 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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager