Aller au contenu

patyom

Membres
  • Compteur de contenus

    372
  • Inscription

  • Dernière visite

  • Jours gagnés

    1

patyom a gagné pour la dernière fois le 8 avril 2013

patyom a eu le contenu le plus aimé !

À propos de patyom

  • Date de naissance 14/04/1954

Contact Methods

  • Website URL
    http://
  • ICQ
    0

Profile Information

  • Sexe
    Masculin
  • Localisation
    Livernon (Lot)

patyom's Achievements

Newbie

Newbie (1/14)

1

Réputation sur la communauté

  1. Peut-être faut-il créer une table et stocker le résultat dedans et l'appeler à la place de l'autre ? Qu'en pensez-vous ?
  2. Bonjour à tous, Dans XOJO, est-il possible de sauvegarder une liste issue d'une requette Sqlite pour pouvoir l'appeler postérieurement pour éviter d'attendre indéfiniment le calcul de la recherche à chaque fois. Dans ma jeunesse je me suis servi de base de données (Pick) et on avait cette fonction en stock du genre : SAUVE-LISTE NOM (par exemple) Merci A+
  3. Le post n'est pas très récent mais j'ai absolument besoin de comprendre comment faire ce shell pour lancer ma deuxième appli. Je m'y pers un peu, beaucoup même. j'essaie de comprendre le code et de l'appliquer mais un problème intervient. y-à-t'il quelqu'un qui pourrait me guider sur ce code ou un autre d'ailleurs. Merci
  4. Avec beaucoup de retard, Efficace : Oui Je vais te résumer ce que je suis en train de créer : Grand Fada de sport et de statistiques, l'appli que je crée me permet de rapatrier d'internet toutes les rencontres sportives et de pronostiquer des résultats en pari simple,combiné etc.. résultats que je stocke dans une base de données (2 bases pardon). Donc, je crée 1 container pour la création des bases, 1 pour la visualisation, 1 pour la saisie etc... (un peu comme le page panel, je crois) ensuite par exemple pour la saisie des paris, je crée dans le container saisie, des containers "pari" et dans chacun de ces containers, des containers "rencontre" que j'alimente à partir d'une listbox appartenant au container "saisie". Comme je ne suis pas encore au point avec les containers je m'y perds un mais depuis que j'ai commencé à les utiliser je maitrise beaucoup mieux En fait, tu dois créer des variables tableaux pour stocker tous les éléments du container que incrémentes à chaque fois que tu décides de mettre un nouveau container : . Dans container "saisie" une variable tableau : TBPari() . Dans container "pari" une variable tableau : TBRencontre() . Etc ... et ainsi de suite. Le plus embêtant c'est quand tu veux faire référence à une donnée qui se trouve dans un container différent de celui où tu te trouves. Voilà, je ne sais pas comment tu aurais procédé, il y a surement des solutions beaucoup plus simples. Ha, ne surtout pas oublier de mettre à jour le TabIndex du container avec l'indice de l'"Append", important pour s'y retrouver. C'est une appli créée pour mon plaisir et surtout pour avoir quelque chose à programmer en Xojo, je me suis mis à Swift un peu mais je n'accroche pas. A+
  5. J'ai réussi, Il faut d'abord faire l'intégration dans la table "TB(1).EmbedWithin(Self,X,Y)" du containerB parent (par exemple) et ensuite dans cet indice de table y inclure les 3 containers (containerC). Schéma : 1 - Window 2 - ContainerA inclus normalement car il y en a qu'un seul 3 - Ajout d'une position dans la table appartenant au containerA (Append) EmbedWithin sur cet indice du containerB 4 - Ajout d'une position dans la table appartenant au containerB (Append) EmbedWithin sur cet indice du containerC et non l'étape 4 avant la 3 c'était mon erreur Voilà, je ne sais pas si c'est assez clair. A+
  6. Bonjour, Dans mon appli je tente d'implanter des containers dans des containers dynamiquement : un croquis : une Window --> dans laquelle je mets un container non dynamiquement --> dans ce container je mets 5 containers dynamiquement --> et enfin dans chacun de ces 5 containers je mets 4 containers dynamiquement aussi. J'arrive à inclure les 5 containers avec l'instruction "EmbedWithin(Self,X,Y)" et ensuite quand j'essaie d'y inclure les 4 autres containers çà Bug. Le message d'erreur : Cannot embed within a ContainerControl that has not yet been embedded on the Window c'est bizarre, je l'ai pourtant ce container dans le container "parent" Je n'ai pas oublié de créer les propriétés "table" pour la création dynamique. Là, je sèche et bien entendu est-ce que c'est faisable ?
  7. J'ai un élément de réponse, je passe par le TabIndex du container pour savoir où je suis mais je n'arrive toujours pas à extraire le nom. Bon, je ne suis peut-être pas obligé de l'extraire ce nom et de me contenter du TabIndex, ça fonctionne c'est le principal A+
  8. Bonjour, J'utilise depuis peu les containers et bien entendu il y a beaucoup de questions non résolues entre autres : L'utilisation du même container plusieurs fois d'où ma question : Comment savoir dans quel container je suis ? J'ai mis des tops pour visualiser les données et j'arrive à une ligne de ce type Self Window1._wrapper_NomDuContainer Je le vois bien mais je n'arrive pas à l'extraire. Une idée Merci
  9. Bonjour, Une question sur les Databases, Quelle est la meilleure solution : - Faire plusieurs database - ou Faire une seule Database qui regroupe plusieurs Tables
  10. Ho Sorry, Je n'avais pas vu les autres réponses après le "Heu" de Zekiller. çà fonctionne, bien !! Vous êtes Top Vous pourriez décomposer un peu la Manip Comment se fait le cadrage (la découpe de la phrase) dans la colonne ?
  11. Bonjour, Est-il possible d'afficher dans une listbox, une cellule sur plusieurs lignes ? sur plusieurs lignes parce que le texte est trop long par rapport à la largeur de la colonne. simuler un retour à la ligne quoi A+
  12. A force de persévérance, on y arrive : Dim dbFile As FolderItem dbFile = GetOpenFolderItem("") If dbFile <> Nil Then Dim db As New SQLiteDatabase db.DatabaseFile = dbFile if db.Connect Then Dim indexRS As RecordSet indexRS = db.fieldSchema("NomTableStr") // A table with indexes in the SQLite DB listbox2.DeleteAllRows Listbox2.Visible = true Listbox2.ColumnWidths = "40%,25%,20%,20%" If indexRS <> Nil Then While Not indexRS.EOF Listbox2.AddRow indexRS.IdxField(1).StringValue indexRS.MoveNext Wend indexRS.Close End If End If End If
  13. Bonjour, Après consultation des posts sur les databases, je n'arrive toujours pas à lister le nom des colonnes des tables de ma DataBase. avec ce code j'arrive à lister les tables : // Gestion des tables de la database Tables = MGestionTables(mDB) for i = 1 to Tables.CountFields(";") Listbox1.AddRow Tables.NthField(";",i) next i //--------- MGestionTables(DB as database) // DB est la Database connectée Dim Tab as string if DB.Connect then Dim tables As RecordSet tables = DB.TableSchema If tables <> Nil Then While Not tables.EOF Tab = Tab + tables.IdxField(1).StringValue + ";" tables.MoveNext Wend tables.Close End If Tab = Left(Tab,len(Tab)-1) return Tab end if //--------- Mais pour les colonnes arghhhhh! Une idée pour m'aiguiller a+
  14. Merci Borak, la première ligne de code à suffit. C'est toujours un plaisir, j'ai perdu un certain temps à chercher mais bon çà permet de se replonger un peu dans Xojo que j'avais un peu délaissé (beaucoup de méga bricolage). Tu es toujours présent, c'est sympa Bonne soirée
  15. Bonjour, j'ai quelques souc d'affichage de données dans mon prog du genre : Etant assez FOOT j'essaie de récupérer des données pour mon compte personnel sur tout ce qui concerne le ballon rond (une passion). Là, comme vous pouvez le constater, après avoir pris le code source et que je le manipule pour en extraire ce dont j'ai besoin, il m'affiche plein de point d'interrogations. Là, c'est mon résultat dans un textarea, à la place des "�" il devrait y avoir des chr(13). voilà mon code de récupération source de la page internet avec le CleURL : "https://www.pronosoft.com/fr/lotofoot/repartition/lf7/2019-grille-255/"par exemple. 'Extraction data d'une URL Dim secureSite As New HTTPSecureSocket Dim data As String secureSite.Secure = True secureSite.ConnectionType = SSLSocket.TLSv12 data = secureSite.Get(CleUrl, 30) data = data.ReplaceAll(" "," ") data = data.ReplaceAll("é","é") data = data.ReplaceAll("ê","ê") data = data.ReplaceAll("€","€") data = data.ReplaceAll("&","&") data = data.ReplaceAll("è","è") Return data Peut-être que ma commande Socket n'est pas adaptée. Merci pour vos futures réponses a+
×
×
  • Créer...