[prog] pb lecture / insertion dans base à partir d'une macro

Thu, 07 Sep 2006 02:40:07 -0700 

bonjour,

je cherche à insérer des enregistrement dans une base (bdd_projet) à partir de
fichier texte.
la lecture fichier texte fonctionne

mais je n'arrive pas à executer une requete simple (select * from Clients,
requete qui fonctionne dans editeur de requetes de base) sans avoir une erreur :

table not found in statemùent [SELECT * FROM Clients]

le code utlisé est le suivant :

global maConnexion as object
global monDocBase as object

Sub ConnecterSource()
        Dim oDBSource As String, login As String, password As String, dbURL As 
String
        Dim oDataSource As Object, oDBContext As Object

        
dbURL=ConvertToUrl("/home/stef/donnees_stef/Professionnel/bdd_projet.odb")
        
        If NOT FileExists(dbURL) Then
                Msgbox "Problème de disponibilité de la base de données..." & 
chr(13) &
"Alerte!!!"
        End If
        
        REM Use the DatabaseContext to get a reference to the database.
        oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
        oDataSource = oDBContext.getByName(dbURL)
        'Les paramètres de connexion
        login = ""
        password = ""

        maConnexion = oDataSource.getConnection(login, password)
        monDocBase = oDataSource.DatabaseDocument
        'xray maconnexion
        if IsNull(maConnexion) then
          MsgBox("Connexion impossible", 16)
          Stop
        else
                msgbox("connexion ok ?!?")
        end if
        
End Sub

'==================================================================
Sub DeconnecterSource()
        monDocBase.store
        maConnexion.close
        maConnexion.dispose
End Sub


Sub majDonnees()
rem     On Error GoTo Erreurs
dim debug as boolean
debug = true

        dim maRequete As Object, resuQuery As Object
        dim nbre
        dim instrSQL As String, monSignet As Variant
        dim i as integer

        'connecter base projet
        ConnecterSource
        maRequete = maConnexion.createStatement()
        maRequete.ResultSetConcurrency=1008 

        'Mise à jour des signataires
        nbre = maRequete.executeUpdate("SELECT * FROM Clients")

if debug=true then
 msgbox("nb clients : " & nbre)
end if
        'deconnecter base
        DeconnecterSource()

end sub

mais que se passe-t-il donc ?

merci de votre réponse
SG



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à