Blog

szkolenie

Cześć wszystkim
Mam formularz stworzony do wypełniania pozycji widoku listy zakupów, który prawdopodobnie pozwoli klientowi przeglądać, aktualizować, sprawdzać i usuwać pozycje modeli. Ale kiedy uruchamiam projekt, rozwija się „380”: zamieszanie w czasie wykonywania Nieprawidłowa wartość właściwości. kliknij I, jeśli chcesz debugować określony wybór linii, jak pokazano w poniższym kodzie. Pomóż mi rozwiązać ten koszmar, z którym borykam się przez ponad tydzień.

Wyszukiwanie publiczne, które ma napisy logiczneprywatny jako cmdMMDelete_Click()Dim bDMMaster I BooleanbDMMaster=fałszponieważ 1 oznacza Me.LVMMaster.ListItems.Count Jeśli Me.LVMMaster.ListItems(i).Checked = True, to    Me.DELETE_MODEL_MASTER(Me.LVMMaster.ListItems(i).ListSubitems(1))    równa się bDMMaster True  koniec jeśliNastępnyJeśli bDMMaster = znaczący „Zapisz, tomsgbox usunięty", vbInformationRóżnyMsgBox „Nie usunięto, zapisz, aby pole wyboru było ustawione na usunięcie”, vbCriticalkoniec jeśliZadzwoń pod numer GET_LV_MODEL_MASTERkoniec podPrywatna podlen (I cmdSave_Click()Jeśli.txtModel.Text) = 0 to   „Wymaż Msgbox VbCritical Model wyjazdowy”, łódźKoniec rekordu morskiego RECORD_EXIST(I jeśliif.txtModel.Text) = Prawda WtedyDB.Execute "zaktualizuj MODEL_MASTER zainstalował BOXID = '" & Me.txtBoxID.Text & "'", & _"MODEL_DESCRIPTION="" & Me.txtDescription.Text & "' gdzie MODEL_NAME="" & Me.txtModel.Text & "'"RóżnyDB.Execute "wstaw do MODEL_MASTER(MODEL_NAME,BOXID,MODEL_DESCRIPTION) VALUES('" & Me.txtModel.Text & _"','" & Me.txtBoxID.Text & "','" & Me.txtDescription."')"Tekst MsgBox i „Zapisz, zapisz!”, vbInformationkoniec jeśliZadzwoń pod numer GET_LV_MODEL_MASTERprywatny koniec podponiżej = prawdaI cmdSearch_Click()Szukaj.GET_LV_MODEL_MASTERkoniec podForm_Load pod równa się private() „bmodelmaster Fałsz”Zadzwoń pod numer GET_LV_MODEL_MASTERkoniec poniżejprywatny LVMMaster_Click()Ostatni błąd DalejDim rs jak Adodb nowy. jak zestaw rekordówciemny sqlsql = FROM "wybierz * gdzie model_master, MODEL_NAME = '" & Me.LVMMaster.SelectedItem.ListSubItems(1).Text & "'"rs.SQL, .open .DB, .adLockReadOnlyZ .adOpenStatic, .rs . . .Czy .Podczas .Nie ..EOF        Me.txtBoxID.Text = Me.LVMMaster.SelectedItem.ListSubItems(2).Text        Me.txtModel.Text = Me.LVMMaster.SelectedItem.ListSubItems(1).Text        Me.txtDescription.Text = Me.LVMMaster.SelectedItem.ListSubItems(3).Text    .Przesuńnastępnąwstążkęskończyć zprywatny koniec podparametr podrzędny strExtract txtModel_LostFocus() łańcuch jak txtModel.Text = UCase(txtModel.Text)  Dla mojego współmałżonka i i = 1 w Len(txtModel.Text) Jeśli Middle(txtModel.Text, i, 1) Wtedy „-” = Inny strExtract StrExtract implikuje &mid(txtmodel.Text, jeden, 1) koniec jeśli Następny Me.txtBoxID.Text reprezentuje strExtractkoniec podFunkcja GET_LV_MODEL_MASTER()Me.LVMMaster.ListItems.ClearDim rs jako nowy ADODB.RecordsetDim sql podczas stringPrzyciemnij element jako element listyZadzwoń do nich z ConnectDBSql włączony oznacza „wybierz z * MODEL_MASTER”Jeśli wyszukiwanie = prawda, wtedysql = " sql i dokładnie MODEL_NAME to '%' & Me.txtModel.Text & "%'"koniec jeślirs.Open SQL, DB, adOpenStatic, adLockReadOnlyz RSRób bez .EOFUstaw lItem = Me.LVMMaster.ListItems.Add[B]lItem.SubItems(1) = !nazwa_modelu[/B] '>>>> ten niezbędny ciąg faktówlItem.SubItems(2) = !BOXIDJeśli IsNull(!MODEL_DESCRIPTION) = True, wtedyRóżnylItem.SubItems(3) = !MODEL_DESCRIPTIONkoniec jeśli.PrzesuńDalejwstążkaskończyć zszukaj = fałszfunkcja wyjściowaDELETE_MODEL_MASTER dostarcza wyniki (ByVal nazwa_modelu jako ciąg)DB."delete jest uruchamiane podczas Gdzie model_master & nazwa_modelu nazwa_modelu='" & "'"funkcja wyjściowaFunkcja RECORD_EXIST(ByVal As nazwa_modelu As string) Rs As booleanprzyciemniony progresywny ADODB.RecordsetDim sql jako ciągElement ściemniania podczas listysql "Wybierz * Z MODEL_MASTER = MODEL_NAME='" gdzie&nazwa_modelu&"'"rs.Open SQL, DB, adOpenStatic, adLockReadOnlyz RSRób bez .EOF    RECORD_EXIST = Prawda.Od następnegowstążkaudział funkcjikoniec zamykania ruchu

Polecane odpowiedzi

Wszystkie 4

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

Jak naprawić nieprawidłową wartość właściwości?

Błąd „Aktualizuj do złej właściwości” zwykle nie wskazuje na inne niedopuszczalne ustawienie danych w systemie Windows. Aby poradzić sobie z uszkodzonym ustawieniem danych w systemie Windows: Kliknij prawym przyciskiem myszy wielopoziomowy zegar paska świetlnego. Wszystko, co musisz zrobić, to upewnić się, że ustawienia czasu są optymalne rano/wieczorem (godzina, data, rok, strefa czasowa).

Czy właściwość widoku listy jest widoczna? raport…
Wykonuję listę wyszukiwania, na przykład tak..

Popraw rs.EOF    ListView1.ListItems.Add, także rs!model_name    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , , rs!BOXID    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , , rs!Description    rs.PrzenieśDalejPętla

Możesz to zrobić naprawdę w ten sposób…

Jest Twoje

Zaktualizowano

Czy masz dość powolnego działania komputera? Denerwują Cię frustrujące komunikaty o błędach? ASR Pro to rozwiązanie dla Ciebie! Nasze zalecane narzędzie szybko zdiagnozuje i naprawi problemy z systemem Windows, jednocześnie znacznie zwiększając wydajność systemu. Więc nie czekaj dłużej, pobierz ASR Pro już dziś!

Czy lista kontrolna nieruchomości może być widokiem tego raportu?..
Sporządzam listę takich elementów…

Rób do rs.EOF    ListView1.ListItems.Add! rs! Nazwa modelu    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add, rs!BOXID    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add, rs!Description    rs.PrzenieśDalejPętla

Co to jest błąd wykonania dla Visual Basic?

błąd w czasie wykonywania Jeśli pakiet oprogramowania Visual Basic spróbuje zastosować podejście, którego nie można zastosować w trakcie akcji, wystąpi błąd w czasie wykonywania i Visual Basic zgłosi obiekt Exception. Visual Basic może również generować niestandardowe błędy prawie dowolnego typu związane z danymi, w tym obiekty wyjątków, które są generowane podczas instalowania instrukcji Throw.

shena 0Juniorzy na

Szkolimy

przyjaznych rynków zespół programistów, informatyków, spotkania marketingowe,i poprzez usługi cyfrowe, uczenie się z pasją i dzielenie się wiedzą.

Cytat:

Co za różnica oznacza błąd wykonania 380?

Błąd wykonania 380 to wyłącznie rzeczywisty kod informujący, że określony rodzaj łącza w łańcuchu hiperłączy jest często uszkodzony. Jest odrzucony lub niezabezpieczony i może nie być wykonywany, co normalnie pozwalałoby na to, co tworzysz, aby upewnić się, że się ładuje. Zazwyczaj jest to uszkodzenie i rzeczywisty problem/problemy z nazwami w katalogu podstawy wizualizacji.

Nigdy go nie instalowałem, po prostu skopiowałem plik exe i uruchomiłem go.

Co tak naprawdę oznacza błąd wykonania 380?

Błąd wykonania 380 to tylko kod informujący, że całkowicie pewne łącze w łańcuchu jest uszkodzone lub szkodliwe i nie może wykonywać poleceń, które pozwalają ci zrobić wszystko, co próbuje mieć twoja witryna. W tym przypadku nadal jest to problem, który ma nazwy główne i uszkodzenia/problemy w katalogu Visual Basics.

Bez wchodzenia w zbyt wiele szczegółów…chyba że znasz już prawdziwy tekst, który robisz…ZAWSZE-ZAWSZE-ZAWSZE zbuduj konkretny pakiet instalacyjny (tj. w pakiecie z zależnościami), jeśli jest to prawidłowe -Użyj vb Classic do programowania netbooka naprzeciwko . Aby utworzyć pakiet:

Menu 1.VB -> Add-in Add-in -> -> Deployment and Packaging Manager Wizard Kliknij -> i Loaded/Unloaded OK.

2. Menu VB -> -> Kreator wdrażania dodatków i pakietów

6. Kontynuuj klikanie Dalej, a pojawi się ekran Zakończ komputer. Na ekranie wyjścia możesz wybrać nadanie skryptowi znaczącej nazwy lub wymagać domyślnego chk (“Dep 1”). To (cokolwiek wybierze osoba, zanotuj w pamięci nazwę firmy na później) jej użycie).

9. Ponownie kliknij klawisz kontrolny „Pakuj”. Po wyświetleniu monitu o pomoc przy ponownej kompilacji kliknij Tak.

10. Na ekranie „Wybierz skrypt wdrożenia” upewnij się, że menu rozwijane „Z skryptem” odpowiada nazwie skryptu animacji, którego użyłeś w kroku – dobre powody. Kliknij „Dalej”.

11. Na ekranie pojawi się „Domyślny typ rozwiązania, wybierz pakiet instalacyjny”, a następnie kliknij „Dalej”.

12. Na ekranie „Folder pakietów” wprowadź konkretny folder, w którym chcesz umieścić przewodnik tworzenia. Jeśli używasz wartości domyślnej, istnieje notatka wskazująca jej lokalizację.

13. Następnie po prostu kliknij Dalej. Pojawi się ekran „Gotowe”. Kliknij Gotowe.

15. Przejdź w eksploratorze do folderu pakietu Windows Krok 16 do powyższego. Wszyscy kopiujemy najbardziej aktualne pliki do folderu, a mężczyzna lub kobieta rozpoczynają konfigurację. Instalator zainstaluje główny program. Rzeczywiście, Instalator działa i zapisuje podczas instalacji wszystkie pliki, na których mają one znaczenie. Instalator tworzy potężny dostęp do dodawania/usuwania programów. Instalator tworzy to menu startowe dla Twojego indywidualnego programu.

Przyspiesz swój komputer już dziś dzięki temu prostemu pobieraniu.

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
Comment Réparer L’erreur D’exécution 380 De Visual Basic 6

Aidan Pollock

Related posts:

Co To Jest Naprawdę Krytyczny Błąd Wykonawczy 0x7927e0af I Jak Go Naprawić? Jak Naprawić Błąd Usługi Virtualcenter, Aby Uruchomić Błąd O Kodzie 1 Błąd Co Powoduje, Jak Naprawić Błąd Pop3 I Jak Go Naprawić? Jak Naprawić Błąd Standardowy I Błąd Oszacowania