Discussion :

[Papy Octet]

Bonjour,

J'ai créé une base de données "TrocVelo.odb"

J'ai une table appelée "Clients" qui contient diverses colonnes dont une appelée "NumClient". Ce champ continent des entiers.
Je veux trouver la nombre maximum contenu dans ce champ "NumClient" sachant que chaque numéro est unique.

J'ouvre ma base de données puis j'accède aux macros contenue dans la base de données (j'enregistre la macro dans le fichier de la base de données).
Actuellement, la macro est en cours de développement et donc je la fait se dérouler ligne par ligne via Macro - Editer puis, une fois la macro choisie F8 pour exécuter chaque ligne.

Mais dès le début, ça coince !

Je tente de me connecter à la base de données par :

Code :

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

1
2
3
 
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("TrocVelo")

Si j'écris "TroVelo.odb" au lieu de "TrocVelo" j'ai le même problème : je reçois ce message d'erreur :

Une exception s'est produite :
Type: com.sun.star.container.NoSuchElementException
Message: TrocVelo.

En fait, je veux trouver le nombre maximum puis l'incrémenter de 1 lorsque je créerai un nouvel enregistrement. Cela m'évitera d'avoir des doublons dans ces numéros de clients.

Pouvez-vous m'aider à résoudre ce problème ?
Version: 4.3.3.2
Build ID: 430m0(Build:2)

Merci

[zoom61]

Salut,

Si tu es dans la même base, il suffit de faire quelque chose comme cela :

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
sub dernierEnregistrement()
    'Attention, il ne faut pas qu'il y est d'espace dans le chemin et le nom du fichier sinon le mettre en dur
    cheminBdd = ConvertFromURL(ThisComponent.getURL) 
    oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
    oDB = oDBContext.getByName(cheminBdd)
    oBase = oDB.getConnection("","") 
    oStatement = oBase.createStatement() 
    strSQL = "SELECT max(NumClient) dernier FROM Clients"
    oRequete = oStatement.executeQuery( strSQL )
    If Not IsNull(oRequete) Then
      While oRequete.next
        MsgbBx "Le nouveau numéro est : " & Cint(oRequete.getString(1))+1
      Wend
    End If
    oRequete.Close
    oStatement.Close
    oBase.Close
    oBase.Dispose   
end sub

[Papy Octet]

Bonjour zoom61,

Merci pour ta suggestion mais j'ai encore le même problème :
J'exécute la macro ligne par ligne (F8).
À la ligne de code :

Code :

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

cheminBdd = ConvertFromURL(ThisComponent.getURL)

cheminBdd a bien l'adresse de la base de données en question

"/media/CORSAIR/Base_donnees_Troc_velos/TrocVelo.odb"

mais à l'exécurion de la ligne de code :

Code :

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

1
2
 
oDB = oDBContext.getByName(cheminBdd)

Pan ! le message d'erreur :

Erreur d'exécution BASIC.
Une exception s'est produite :
Type: com.sun.star.container.NoSuchElementException
Message: /media/CORSAIR/Base_donnees_Troc_velos/TrocVelo.odb

Il avait des espaces dans le nom du chemin vers la base de donnée => j'ai remplacé par le trait de soulignement _.
Puis j'ai supprimé les traits de soulignement.
Il y avait des accents dans ce même nom => j'ai supprimé.

Mais rien ne change quant aux résultats : même sanction.

LibreOffice 4.3.3.2

A+

[zoom61]

As-tu essayé avec :

Code :

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

cheminBdd = ConvertFromURL("/media/CORSAIR/Base_donnees_Troc_velos/TrocVelo.odb")

[Papy Octet]

Bonsoir,

Hélas, même sanction.

Erreur d'exécution BASIC.
Une exception s'est produite :
Type: com.sun.star.container.NoSuchElementException
Message: /media/CORSAIR/Base_Donnees_Troc_Velos/TrocVelo.odb

et avec

Code :

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

1
2
 
oDB = oDBContext.getByName("/media/CORSAIR/Base_Donnees_Troc_Velos/TrocVelo.odb")

même sanction.

Et même si je déplace la base de données de la clé USB vers mon disque dur, même sanction.

A+

[zoom61]

Rajoute au début :

Code :

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

1
2
3
Dim oDBContext As Object , oDB As Object , oBase As Object  
Dim oStatement As Object , oRequete As Object 
Dim strSQL As String

[Papy Octet]

Bonjour zoom61,

Merci pour ton aide mais j'y avais pensé mais la sanction reste la même.

Une question : comme je suis déjà dans la base de données, et que j'essaie d'atteindre une de ses tables, comment se fait-il que je ne puisse pas y arriver ? Me connecter à une table dans laquelle je me trouve ... je ne comprends pas trop.
Avec Calc, une fois le classeur ouvert, on peut accéder directement aux feuilles et aux cellules. Pourquoi pas ici dans Base ?

A+

[zoom61]

Une question : comme je suis déjà dans la base de données, et que j'essaie d'atteindre une de ses tables, comment se fait-il que je ne puisse pas y arriver ? Me connecter à une table dans laquelle je me trouve ... je ne comprends pas trop.
Avec Calc, une fois le classeur ouvert, on peut accéder directement aux feuilles et aux cellules. Pourquoi pas ici dans Base ?

Ce qui est étrange, c'est que cela fonctionne parfaitement, chez moi.

[Papy Octet]

Bonjour zoom61,

Merci pour ton aide précieuse. C'est en effet assez "curieux" ce dysfonctionnement.

Je joins la base de donnée sous un nom .odt (pour qu'il soit accepté pas le site. Il suffit de le renommer .odb.
Peut-être que cela aidera à trouver une solution ?

A+

[zoom61]

Je pense avoir trouvé, je me suis trompé c'est pas ConvertFromURL mais il faut mettre ConvertToURL

[Papy Octet]

Bonjour zoom61,

Maintenant, ça fonctionne (après avoir corrigé les 2 petites fautes de frappe à "MsgbBx" qui devient "MsgBox".
Un tout grand MERCI.

Entre-temps, j'ai aussi posté ailleurs ici où de nombreux conseils m'ont été faits.
On ne sait jamais. Ça peut toujours servir

Encore Merci.
A+