Fichier ini vers tableRésolu

Question

Voila j&#146;ai des fichiers de configuration d&#146;une machine qui se trouve sous la forme 


 


[Carte01]


x=120


y=423


z=46


speed=12


[Carte02]


x=95


y=322


z=46


speed=16


&#133;.


Je voudrais en fait basculer &#231;a sous acces dans une table qui ressemblerai a ca :


Cartexyzspeed


Carte011204234612


Carte02953224616


Mais malheuresement mais connaissance en vb access sont un peu limit&#233; c&#146;est pour cela que je fais appel &#224; vous


Cordialement 


Lexa

lexa87 · Accepted Answer

Et bien en fait j'ai trouv&#233; ma r&#233;ponse tout seul en fait pas tout &#224; fait c'est surtout grace a toi aussi It@li@ dans un de tes autres post ;). Sinon l'erreur pr&#233;cedement cit&#233; venait d'une mauvaise d&#233;claration des tables. Donc je laisse mon d&#233;but de code ici ca pourra toujours servir &#224; quelqu'un. Donc la on viens juste lire le x dans de la carte 1 pour le mettre dans la table test de la base:


Option Compare Database




Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long


Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long




Function LireINI(Entete As String, Variable As String) As String




Dim Retour As String


Fichier = "C:\Documents and Settings\cousseda\Mes documents	est.ini"


Retour = String(255, Chr(0))


LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), Fichier))




End Function




&#145; La function Imporation est lanc&#233;e via un bonton dans un formulaire Call Importation_INI


Sub Importation_INI()




Dim db As Database


Dim Longueur As String


Dim tampon As String


Dim Buffer As String






Dim test As DAO.Recordset






Set db = CurrentDb


Set test = db.OpenRecordset("t_test", dbOpenDynaset)




test.AddNew


tampon = LireINI("Carte01", "x")


test![x] = tampon






test.Update


test.MoveLast


test.Edit


End Sub

Et encore merci &#224; toi It@li@

cs_ITALIA · Answer

tu as d&#233;ja cr&#233;&#233; ta BAse ?

It@li@

cs_ITALIA · Answer

Tu sais lire des . INI en VB ?

It@li@

lexa87 · Answer

Et bien en fouinnant j'ai bien trouv&#233; quelques trucs le code que j'ai &#233;crit est le suivant :

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long



Private Sub Commande1_Click()


Dim Longueur As String
Dim x As String


Dim test As DAO.Recordset


Set test = db.OpenRecordset("T_test", dbOpenDynaset)


Longueur = GetPrivateProfileString("Carte1", "x", Buffer, 255, App.Path & "C:\Documents and Settings\cousseda\Mes documents	est.ini")


x = Left(Buffer, 255)
test![x] = x
End Sub

T_test &#233;tant la la table de ma base et le code suivant a &#233;t&#233; cr&#233;er dans un formulaire tout simple avec un bouton

Mais lorsque je test il m'&#233;crit le message suivant :

lexa87 · Answer

Arf il n'a pas mis l'image :

http://lexacooling.free.fr/erreuraccess.jpg

cs_ITALIA · Answer

De Rien lexa87

It@li@

Fichier ini vers table

6 réponses

Discussions similaires