bilalstar
Messages postés70Date d'inscriptiondimanche 27 mars 2005StatutMembreDernière intervention 3 octobre 2005
-
11 mai 2005 à 17:11
bilalstar
Messages postés70Date d'inscriptiondimanche 27 mars 2005StatutMembreDernière intervention 3 octobre 2005
-
11 mai 2005 à 17:59
bonjour,
dans une application, mon programme cherche un fichier text et extrait les donnees pour les mettre ensuite dans une table access.
Dim Table As Recordset
Dim tableau() As String
Dim a As String
Dim db As Database
Dim sql As String
Set db = OpenDatabase(App.Path & "\base.mdb")
Set Table = db.OpenRecordset(table, dbOpenDynaset)
Open (App.Path & "\fich.txt") For Input As #1
While Not EOF(1)
Input #1, a
tableau() = Split(a, ";", , vbTextCompare)
Table.AddNew
Table(1).Value = tableau(0)
Table(2).Value = tableau(1)
Table.Update
wend
mais a chaque fois il me rajoute les donnees sur ce qu'existait avant, par contrece que je veux c'est qu'il efface d'abord la table et rajoute ensuite les nouvelle donnees.
j'ai essaye avec;
dim rs as recordset
sql = "DELETE * FROM MO_Table"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
mais ca n'efface pas la table.
est ce que quelqu'un sait m'aider.
merci d'avance.
le savoir s'agrandit d'autant que l'on partage.
<TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 body UNSELECTAB<>
bilalstar
Messages postés70Date d'inscriptiondimanche 27 mars 2005StatutMembreDernière intervention 3 octobre 2005 11 mai 2005 à 17:15
<TD id=HB_Focus_Element vAlign=top width=\"100%\" background=\"\" height=250 body UNSELECTAB<>sorry;
il y a une erreur au dessus.
dim rs as recordset
sql = \"DELETE * FROM Table\"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
je travaille avec sql et pas avec les objets ADOB.