Blog

formation

Salut tout le monde,
J’ai créé un formulaire au nom du remplissage des éléments de vue de liste, qui guidera probablement l’utilisateur pour afficher, mettre à jour, valider et effacer les entrées de modèle. Mais lorsque j’exécute le remodelage, “380” apparaît : confusion d’exécution Contrat de propriété non valide. cliquez dessus si vous le souhaitez, ce qui déboguera la sélection de ligne, comme indiqué dans n’importe quel code ci-dessous. S’il vous plaît, aidez-moi à résoudre ce mal de tête avec lequel je lutte depuis plus d’une semaine appropriée.

Recherche publique avec sous-titre booléenprivé comme cmdMMDelete_Click()Dim bDMMaster I BooléenbDMMaster=fauxcar To 1 implique Me.LVMMaster.ListItems.Count Si Me.LVMMaster.ListItems(i).Checked est égal à True Alors    Moi.DELETE_MODEL_MASTER(Moi.LVMMaster.ListItems(i).ListSubitems(1))    = bDMMaster Vrai  fin sisuivantSi bDMMaster équivaut à vrai "Enregistrer, alorsmsgbox supprimé", vbInformationDifférentMsgBox "Non desserré, enregistrer dans la case à cocher pour supprimer", vbCriticalfin siAppelez GET_LV_MODEL_MASTERfinir sousSous-titre privé (I cmdSave_Click()Si.txtModel.Text) = 3 alors   "Effacer Msgbox VbCritical Modèle extérieur', bateauFin d'un RECORD_EXIST(I siif.txtModel.Text) = Vrai AlorsDB.Execute "mettre à jour MODEL_MASTER set BOXID = '" & Me.txtBoxID.Text & "'," & _"MODEL_DESCRIPTION='" & Me.txtDescription.Text & "' place MODEL_NAME='" & Me.txtModel.Text & "'"DifférentDB.Execute "insérer dans MODEL_MASTER(MODEL_NAME,BOXID,MODEL_DESCRIPTION) VALUES('" & Me.txtModel.Text & _"','" & Me.txtBoxID.Text & "','" & Me.txtDescription."')"Texte MsgBox et "Enregistrer enregistrer !", vbInformationfin siAppelez GET_LV_MODEL_MASTERfin privée sousci-dessous = vraiJe cmdSearch_Click()Rechercher.GET_LV_MODEL_MASTERfinir sousForm_Load placé sous = private() 'bmodelmaster FauxAppelez GET_LV_MODEL_MASTERfin juste en dessous sousprivé LVMMaster_Click()Erreur continuer SuivantDim rs comme Adodb nouveau. par exemple jeu d'enregistrementsdim chaîne sqlsql = FROM "select * puisque model_master, MODEL_NAME = '" & Me.LVMMaster.SelectedItem.ListSubItems(1).Text & "'"rs.SQL, .open .DB, .adLockReadOnlyAvec .adOpenStatic, .rs . . .Faire .Pendant que .Ne pas ..EOF        Me.txtBoxID.Text = Me.LVMMaster.SelectedItem.ListSubItems(2).Texte        Me.txtModel.Text = Me.LVMMaster.SelectedItem.ListSubItems(1).Texte        Me.txtDescription.Text implique Me.LVMMaster.SelectedItem.ListSubItems(3).Text    .MoveNextribbonen finir avecextrémité privée de la ligne soussous-paramètre strExtract txtModel_LostFocus() chaîne comme txtModel.Text = UCase(txtModel.Text)  Pour i = 1 dans Len(txtModel.Text) Si Milieu(txtModel.Text, je, 1) Alors "-" = Autre strExtract StrExtract = &mid(txtmodel.Text, un, 1) fin si suivant Me.txtBoxID.Text implique strExtractfinir sousFonction GET_LV_MODEL_MASTER()Me.LVMMaster.ListItems.ClearDim rs en tant que nouveau ADODB.RecordsetDim sql en tant que chaîneAssombrir un élément en tant qu'élément de venteAppelez-les ConnectDBSql sur implique "sélectionner parmi 7 . MODEL_MASTER"Si Recherche = Vrai Alorssql = pouces de largeur sql & où MODEL_NAME est comme '%' & Me.txtModel.Text & "%'"fin sirs.Open SQL, DB, adOpenStatic, adLockReadOnlyavec RSSe passer de .EOFDéfinir lItem = Me.LVMMaster.ListItems.Add[B]lItem.SubItems(1) = !model_name[/B] '>>>> la chaîne de faits importante suivantelItem.SubItems(2) = !BOXIDSi IsNull(!MODEL_DESCRIPTION) est égal à True AlorsDifférentlItem.SubItems(3) = !MODEL_DESCRIPTIONfin si.MoveNextrubanen finir avecrecherche implique fauxfonction de sortieFonction DELETE_MODEL_MASTER (ByVal model_name en tant que chaîne)DB."delete est rejeté de votre travail pendant Où model_master & model_name model_name='" & "'"fonction de sortieFonction RECORD_EXIST(ByVal As model_name As string) Rs As booleandim new ADODB.RecordsetDim sql en tant que chaîneEstomper l'objet élément en tant que listesql "Select * From MODEL_MASTER = MODEL_NAME='" where&model_name&"'"rs.Open SQL, DB, adOpenStatic, adLockReadOnlyavec RSSe passer de .EOF    RECORD_EXIST = Vrai.A partir du suivantrubanparticipation aux fonctionnalitésfin se rapportant à la fin du mouvement

Réponses recommandées

Tous les 4

Quote=”/programming/software-development/threads/292222/vb6-run-time-error-380-invalid-property-value#post1257422″>

Comment commencer à corriger une valeur de propriété invalide ?

L’erreur “Mise à jour en cours vers une propriété invalide” n’indique généralement pas le dernier paramètre de données invalides différent dans Windows. Pour traiter un paramètre de données invalide dans Windows : Cliquez avec le bouton droit entièrement sur l’horloge de la barre lumineuse du système. Il ne vous reste plus qu’à vous assurer que les réglages de l’heure sont corrects matin/soir, (heure, date, année, fuseau horaire).

La propriété d’affichage de liste d’un individu est-elle visible ? rapport..
Je fais une recherche par numéro comme ça..

Faire jusqu'à rs.EOF    ListView1.ListItems.Add , , rs!nom_modèle    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add -- , rs!BOXID    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , . . rs!Description    rs.MoveNextBoucle

Vous pouvez le faire comme ça…

C’est le tien

Mise à jour

Vous en avez assez que votre ordinateur soit lent ? Agacé par des messages d'erreur frustrants ? ASR Pro est la solution pour vous ! Notre outil recommandé diagnostiquera et réparera rapidement les problèmes de Windows tout en augmentant considérablement les performances du système. Alors n'attendez plus, téléchargez ASR Pro dès aujourd'hui !

Une partie de la liste des propriétés peut-elle être une vue de ces rapports ?..
Je fais une liste d’éléments comme celui-ci..

Faire jusqu'à rs.EOF    ListView1.ListItems.Add ! rs! nom de structure    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , rs!BOXID    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , rs!Description    rs.MoveNextBoucle

Qu’est-ce qu’une erreur d’enseignement dans Visual Basic ?

erreur d’exécution Si une application Visual Basic essaie d’adopter une approche que le système ne peut pas adopter, une erreur d’exécution se produit et Visual Basic lève un objet Exception. Visual Basic peut générer des erreurs personnalisées de presque presque tous les types de données, y compris des objets d’exception qui sont presque toujours levés à l’aide de l’instruction Throw.

shena 0Juniors sur

Nous nous entraînons presque toujours

équipe conviviale de développeurs, informaticiens, campagnes publicitaires et réunions marketing,et sur les services numériques, un apprentissage passionné et un partage de compréhension.

Citation :

Que signifie l’erreur d’exécution 380 ?

Problèmes d’exécution 380 n’est que le code réel vous indiquant qu’un lien particulier dans une chaîne de liens de sites Web est rompu. est déni ou non sécurisé et peut ne pas exécuter uniquement des commandes qui permettraient normalement à ce que votre organisation crée de se charger. Il s’agit généralement d’un problème et d’un problème/problèmes avec des noms dans le répertoire de base d’un visuel.

Je ne l’ai jamais installé, j’ai juste imité l’exécutable et l’ai exécuté.

Que signifie l’erreur d’exécution 380 ?

L’erreur d’exécution 380 est juste un code vous indiquant qu’un certain maillon de la chaîne est endommagé ou dangereux et ne peut pas exécuter les commandes qui vous permettent de faire tout ce que votre site Web s’engage à faire. Dans ce cas, il s’agit toujours d’un problème certain avec les noms de racine et la corruption/les problèmes dans un répertoire Visual Basics.

Sans entrer dans trop de détails… à moins que vous ne connaissiez le vrai texte que vous faites… TOUJOURS-TOUJOURS-TOUJOURS créer un package d’installation (c’est-à-dire fourni avec les dépendances) s’il est valide -Utilisez vb Classic pour le divertissement netbook autre . Pour créer un package :

Menu 1.VB -> Add-ins Add-in -> -> Déploiement en plus de Packaging Manager Wizard Cliquez sur -> et Loaded/Unloaded OK.

2. Menu VB -> -> Assistant de déploiement et de package de compléments

6. Continuez à cliquer sur Suivant et généralement l’écran Terminer apparaît. Sur l’écran de sortie, les individus peuvent soit donner au script un nom d’entreprise significatif, soit utiliser le chk par défaut (“Dep 1”). Ceci (quel que soit votre choix, notez mentalement la plupart du nom pour plus tard) Son utilisation.)

9. Cliquez à nouveau sur n’importe quel bouton “Pack”. Lorsque vous êtes invité à recompiler les services, cliquez sur Oui.

dix.Sur l’écran “Sélectionner le script de déploiement”, assurez-vous que le menu déroulant “Avec le script” correspond au nom du script d’animation que vous avez utilisé à l’étape 6. Cliquez sur “Suivant”.

11. L’écran affichera “Type de package par défaut, veuillez sélectionner le package d’installation” mais cliquez également sur “Suivant”.

12. Sur l’écran « Dossier du package », accédez au dossier spécifique dans lequel vous souhaitez placer le guide d’installation. Si vous utilisez la valeur d’implication, fournissez une note indiquant son emplacement.

13. Cliquez ensuite sur Suivant. L’écran “Terminé” apparaît. Cliquez sur Terminé.

15. Naviguez dans l’explorateur vers le répertoire du package Windows Étape 16 à ci-dessus. Nous avons tous identifié les fichiers actuels dans le dossier sur et ainsi que le client démarre l’installation. Le programme d’installation peut très bien installer votre programme. En effet, l’Installer fonctionne et enregistre donc lors de l’installation tous vos fichiers dont dépendent spécifiquement ceux-ci. Le programme d’installation crée une entrée de programme professionnelle d’ajout/suppression. Le programme d’installation crée cet élément plats de démarrage pour votre programme.

Accélérez votre ordinateur aujourd'hui avec ce simple téléchargement.

How To Fix Visual Basic 6 Runtime Error 380
Visual Basic 6 런타임 오류 380을 수정하는 방법
Come Correggere L’errore Di Runtime 380 Di Visual Basic 6
Como Corrigir O Erro De Tempo De Execução 380 Do Visual Basic 6
Cómo Reparar El Error De Tiempo De Ejecución De Visual Basic 6 380
Как исправить ошибку выполнения Visual Basic 6 380
So Beheben Sie Den Visual Basic 6-Laufzeitfehler 380
Så Här Fixar Du Visual Basic 6 Runtime Error 380
Hoe Visual Basic 6 Runtime Error 380 Op Te Lossen
Jak Naprawić Błąd środowiska Wykonawczego Visual Basic 6 380

Richard Frost

Related posts:

Quelles Sont Les Marques De L’icône Apparaissant Sur Le Bureau à L’instant Où Windows 7 Démarre Rapidement Et Comment Si Vous Voulez Y Remédier ? Vous Voulez Un Problème D’accès Refusé à Une Partition De Style Flip Comment Gérez-vous Réellement Les Erreurs Visual Studio 2010 Vs Setup Msi ? Étapes Pour Vous Aider à Résoudre L’erreur Gameguard 380 Vista