Profil de cs_imer - CodeS SourceS

Sql ne fonctionne pas avec les accents ?

Pourquoi cette Requete Sql ne fonctionne pas alors que j'ai bien la valeur clé dans la base RequeteSql = "Select * from MaBase where LIBELLE like 'clé%'"

suivant l'environnement, des fois c'est % et d'autres c'est * le caractère générique. essaie donc 'clé*'

probleme de jointure

bonjour voila j ai un projet de gestion de parc j ai cree des tables sous acces et fais des liens entre table avec clé etrangere, une table utilisateur et une autre materiel et je désirerais faire correspondre l utilisateur avec son materiel dc j ai tape le code suivant Private Sub Form_Load() Dim n As String Dim sss As String ... Lire la suite

Les champs MATERIEL.[numero] et UTILISATEUR.[numero] sont ils de même format ? Sinon essaie la requète sous Acces (sélectionner Affichage/Mode SQL) avec une valeur quelconque pour la variable n. Cela te donneras peut être plus d'infos. Ou bien construis ta requète avec l'assistant (Affichage/Mode création) et regarde le code SQL généré...

XML lecture ecriture suppression en VB6 Résolu

Bonjour je cherche un peu à la manière des fichiers ini à utiliser des fichiers xml, pour les intégrer ensuite dans une base de données. Cependant avant de les mettre dans la bases de données, ceux ci peuvent subir des modifications. Quelqu'un aurait-il une solution ??? Merci PS: j'ai bien vue une source qui fait ce que je veux... Lire la suite

Tu peux t'appuyer sur la référence XML de microsoft pour manipuler les fichiers xml => Projet/Références/Microsoft XML. Essaye de trouver et télécharger le SDK MsXml de Microsoft pour avoir l'aide sur les objets concernés. Exemple à main levée : Sub LireXML() Dim oxmlDoc as New DomDocument oxmlDoc.Load "d:\fichier.xml" msgbox oxmlDo...

Rechercher du texte dans un fichier word sans l'ouvrir

Bonjour, Je suis en train d'ecrire une petite fonction qui possede en parametres un nom de fichier, du texte et une variable resultat. Je voudrais ouvrir le fichier, chercher s'il possede le texte et renvoyer 1 si il l'a trouve. J'ai mis en commentaire les 2 lignes qui me posent probleme Pour l'instant mon code donne ceci : 'fonc... Lire la suite

Function Recherche(Fichier As String, texte As String) As Integer 'Déclaration de l'objet Word Dim WrdApp As Object 'Initialisation Recherche = 0 'Création de l'instance Word Set WrdApp = CreateObject("Word.Application") 'S'assurer que l'appli Word est invisible WrdApp.Visible = False 'Ouvrir le fichier WrdApp.document...

URGENT ! URGENT ! PLIZ ! PB avec VB - Excel !

Bonjour all ! Bon jsuis au bord de casser ma machine car j'ai un pb que je 'narrive pas à résoudre... SVP HELP ME ! Source : Public Sub Command1_Click() Dim classeurXLS As Object Dim fname As String 'Affichage des checkbox correspondants Set classeurXLS = CreateObject("Excel.application") classeurXLS.Workbooks.Open ("c:\ex... Lire la suite

'Fait référence à l'application dans laquelle tu à ouvert le classeur (si tu as plusieurs appli excel, il prendra celle où s'exécute la macro par défaut 'donc : classeurXLS.Workbooks("excel.xls").Worksheets("feuil1").Activate

créer une recherche par initiale...

Bonjour, J'ai une serie de lettres sur laquelle je clique pour n'afficher les resultats qui commencent par cette meme lettre. Je cherche donc à comparer la première lettre des valeurs de ma tables avec la lettre cliquée et passée en variable dans mon url. J'ai essayé ca, mais rien n'y fait! Rscarte.Open "Select * from carte where... Lire la suite

Pour tester une requete et comprendre pourquoi elle ne fonctionne pas, fait un Response.Write . Copie ensuite le résultat du Response.Write dans un anlyseur de requète pour l'exécuter. En ce qui concerne ta reqète, si la lettre passée en paramètre est par exemple "r" alors cela donnerait : Select * from carte where Left(rscarte("ccas"...

copier coller dans excel

Bonjour à tous, Voila j'aurai juste besoin d'un petit tuyau. Je cherche à copier une portion de feuille excel vers une autre. Petit problème la potion source se calcule grâce à des formules. Donc qd je recopie sur l'autre feuille il ne me fait pas apparaitre la valeur mais m'indique(#REF!) ce qui est normal puisque il doit coller la f... Lire la suite

'voici le code de la commande Edition/collage spécial/Valeurs Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False

Exécuter code d'un fichier

Existe t'il un moyen , pour lorsque l'applacation démare , d'ouvrir un certain ficheir(crée auparavant) contenant quelque ligne de code et de les éxécuté ? (tjr quand l'application tourne) J'arrive a ouvrir un fichier le lire , mais pas a éxécuter le text(qui est le code)

Lorsque ton PC exécute du code VB, il ne lit pas le code et l'exécute. Il ne comprend pas le VB, il ne comprends que le langage machine. Avant de pouvoir exécuter du code VB, il faut donc le traduire en langage accessible à ta machine (=compiler). Dans ton programme VB, tu n'as plus qu'à interpréter le texte pour lancer les commandes (si ...

Activer un onglet donné du contrôle SSTab Résolu

Y a il un moyen d’activer un onglet donné du contrôle SSTab ? Jusqu'à présent la solution que j’utilise est l’envoies de touches. Exemple : Mon SSTab contient deux onglets : &Affichage et &Général Pour activer l’onglet ‘Affichage’ --> SendKeys ("%a") Pour activer l’onglet affichage --> SendKeys ("%g") Peut être y a une autre solut... Lire la suite

Votes

En effet c'est pas terrible. TonSSTab.Tab = 0 'Active le premier Onglet TonSSTab.Tab = n - 1 'Active le n ième onglet TonSSTab.Tab = TonSSTab.Tabs - 1 'Active le Dernier Onglet

Problème avec mémoire Vive

avec VB6 je fait une création de fichier textes d'une taille de 40 Mo environs. avec une boucle For le prog crée un fichier texte à chaque tour de boucle. mon problème c'est que au fur et à mesur que le programme crée les fichiers texte, la quantité de mémoire vive disponible diminue aussi. et au bout de 20 fichiers créés je suis à ... Lire la suite

Faire un DoEvents ou utiliser l'API "sleep" pour laisser souffler le système ?....

Aïe en effet. J'ai Windows 2000 et aucun problème. Il ne doit pas gérer l'écriture sur disque de la même façon. Essaie avec FileSystemObject (cf MSDN) sinon tente ce code pour voir. Il ferme et ouvre le fichier au bout d'un certain nombre de lignes écrites. A toi de faire varier "Nb_EcritureMax". C'est plus long à l'exécution Dim Fi...

'Le code suivant crée 35 fichiers textes de 40 Mo environ 'Pendant l'exécution, dans le gestionnaire des taches, l'UC est à 100% et la mémoire reste stable -> 112000K environ/256 Mo Ram) Dim FileNumber As Long Dim i_ligne As Long Dim j_fichier As Long For j_fichier = 1 To 30 FileNumber = FreeFi...

Peut être cela pourra t'aider: Si, pour créer tes fichiers textes, tu ouvres le fichier (avec l'instructuion Open ou la méthode OpenTextFile de l'objet FileSystemObject, par exemple), alors pense à le refermer avant d'en ouvrir un autre.

Compacter une base de donnée access sous VB Résolu

Comment compacter une base de donnée access sous VB ? -=-[ Golden-X] -=-

'Il y a une méthode CompactDatabase dans DAO. 'Elle permet de compacter une base access avec un autre nom (on se retrouve alors avec deux bases, une non compactée et une compactée) 'Dans le menu Projet/Références... cocher "Microsoft DAO X.X ..."

Votes

Public Sub Compactage(BaseSource As String, Compact As Boolean, Optional Repair As Boolean = False) On Error GoTo CompactageErreur Dim LignErreur As Integer Dim BaseCompact As String Dim BaseAvCompact As String LignErreur = 0 'réparation de la base source 'méthode disponible que pour les bases Acc...

Comment classer une base de donne access sans utiliser Acces ???

tout d'abord slt a tous Voila : j'ai une base de donne en access 2000 avec des nom de personne. Je voudrais y classer par ordre alphabetique avec du codes VB6 sans passer par access. Comment dois-je faire ???? Merci d'avance :)

Et 4 lignes avant la fin, il faut écrire "Set AdoRec = Nothing" au lieu de "Set ado = Nothing"

C'est pas dans Outils/Références... qu'il faut cocher Microsoft ActiveX Data Objects 2.5 Library" mais dans Projets/Références (j'ai confondu avec Access)

Tu peux effectivement lire une table ordonné sur un champ voulu. Mais que veux tu faire de cette lecture ? La mettre dans un fichier ? Pour exemple, crée un projet sous VB et colle ce code dans le code de la feuille Option Explicit 'Pour que ca marche il faut cocher "Microsoft ActiveX Data Objects 2.5 Library" dans le menu Outils/Ré...

Mise en Blob

Salut, Tout est dans le titre quasiment. Comment mettre des docs en BLOB via VB sous Oracle 8 ? Merci !

Pour mettre un fichier dans un champ BLOB et pour mettre le contenu du BLOB dans un fichier (je n'ai pas testé). Sinon il y à la méthode appendchunk et getchunk de l'objet Field dans ADO

remplacer un mot dans des fichiers excels sans les ouvrir

est-t-il possible de rechercher un mot dans plusieurs fichiers excel d'un dossier, sans les ouvrir et ensuite de remplacer ce mot par un autre, puis de sauvegarder le fichier modifié?? merci

Oui: 'Pour le parcours de répertoires cf exemple de la fonction Dir dans MSDN 'Voici une fonction pour traiter un fichier: 'cocher Microsoft Excel X.X Object Library dans le menu Outils/Références... Private Sub RemplacerMot (FichierSource As String, FichierCible As String, MotSource As String, MotCible As String) 'FichierSource ...