Blog

Treinamento

Olá a todos,
Eu tenho um formulário construído para preencher itens de exibição de lista, que provavelmente permitirá ao usuário visualizar, atualizar, validar, mas excluir entradas de modelo. Mas quando executo o próprio projeto, aparece “380”: confusão de tempo de execução Valor de posição inválido. clique em I nele se você pretende depurar a seleção de linha, conforme mostrado em todo o código abaixo. Por favor, ajude-me a resolver este excelente pesadelo com o qual estou lutando há mais de uma semana.

Pesquisa pública com legenda booleanaprivado Como cmdMMDelete_Click()Dim bDMMaster I BooleanbDMMaster=falsoporque Para 1 implica Me.LVMMaster.ListItems.Count Se Me.LVMMaster.ListItems(i).Checked = True Então    Me.DELETE_MODEL_MASTER(Me.LVMMaster.ListItems(i).ListSubitems(1))    = bDMMaster Verdadeiro  acabar sePróximoSe bDMMaster = true "Salvar, entãomsgbox removido", vbInformationDiferenteMsgBox "Não removido, salve na caixa de seleção definida para remover", vbCriticalfim seLigue para GET_LV_MODEL_MASTERterminar sobSublen privado (I cmdSave_Click()If.txtModel.Text) = nil então   "Apagar Msgbox VbCritical Modelo ausente', barcoFim do RECORD_EXIST subaquático(I seif.txtModel.Text) = Verdadeiro EntãoDB.Execute "update MODEL_MASTER set BOXID = '" & Me.txtBoxID.Text & "'," & _"MODEL_DESCRIPTION='" & Me.txtDescription.Text & "' exatamente onde MODEL_NAME='" & Me.txtModel.Text & "'"DiferenteDB.Execute "insira diretamente em MODEL_MASTER(MODEL_NAME,BOXID,MODEL_DESCRIPTION) VALUES('" & Me.txtModel.Text & _"','" & Me.txtBoxID.Text & "','" & Me.txtDescription."')"Texto da MsgBox e "Salvar salvar!", vbInformationfim seLigue para GET_LV_MODEL_MASTERfim privado sobabaixo = verdadeiroEu cmdSearch_Click()Pesquisar.GET_LV_MODEL_MASTERterminar sobForm_Load em = private() 'bmodelmaster FalsoLigue para GET_LV_MODEL_MASTERterminar não mais do que sobprivado LVMMaster_Click()Erro continuar AvançarDim rs como Adodb inovador novo. como conjunto de registrosdim string sqlsql = FROM "select 2 . where model_master, MODEL_NAME = '" & Me.LVMMaster.SelectedItem.ListSubItems(1).Text & "'"rs.SQL, .open .DB, .adLockReadOnlyCom .adOpenStatic, .rs . . . .Faça .Enquanto .Não ..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    .MoveNextribbonterminar comparte privada sobsubparâmetro strExtract txtModel_LostFocus() cadeia como txtModel.Text = UCase(txtModel.Text)  Para i = 1 em Len(txtModel.Text) If Middle(txtModel.Text, i, 1) Then "-" = Outro strExtract StrExtract = &mid(txtmodel.Text, one, 1) fim se Próximo Me.txtBoxID.Text implica strExtractterminar sobFunção GET_LV_MODEL_MASTER()Me.LVMMaster.ListItems.ClearDim rs como outro ADODB.RecordsetDim sql como stringEscurecer um elemento como um elemento de listaLigue para o ConnectDB para elesSql on implica "selecionar nas mãos de * MODEL_MASTER"Se Pesquisa = Verdadeiro Entãosql = " sql & onde MODEL_NAME é como '%' & Me.txtModel.Text & "%'"fim sers.Open SQL, DB, adOpenStatic, adLockReadOnlycom RSFaça sem .EOFDefinir lItem = Me.LVMMaster.ListItems.Add[B]lItem.SubItems(1) é igual a !model_name[/B] '>>>> esta importante string de fatolItem.SubItems(2) = !BOXIDIf IsNull(!MODEL_DESCRIPTION) = True EntãoDiferentelItem.SubItems(3) = !MODEL_DESCRIPTIONfim se.Mover Próximofitaterminar compesquisa significa falsofunção de saídaFunção DELETE_MODEL_MASTER (ByVal model_name como string)DB."delete será acionado durante Where model_master & model_name model_name='" & "'"função de saídaFunção RECORD_EXIST(ByVal As model_name As string) Rs As booleandim novo ADODB.RecordsetDim sql como stringEscurecer parte do elemento como listasql "Selecione * De MODEL_MASTER igual a MODEL_NAME='" onde&model_name&"'"rs.Open SQL, DB, adOpenStatic, adLockReadOnlycom RSSerá necessário .EOF    RECORD_EXIST = Verdadeiro.A partir do próximofitaparticipação do recursofim do fim do movimento

Respostas recomendadas

Todos os 4

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

Como faço para corrigir um valor de propriedade inválido?

O erro “Atualizar para propriedade inválida” geralmente não mostra uma configuração de dados inválida diferente no Windows. Para lidar com uma configuração de dados inválida no Windows: Clique com o botão direito do mouse no relógio da barra de luzes do sistema. Tudo o que você precisa fazer é garantir que as possibilidades de tempo estejam corretas de manhã/noite (hora, data, ano, fuso horário do dia).

Sua propriedade de visualização de lista está visível? relatório..
Eu faço uma pesquisa de lista completa como esta..

Faça até rs.EOF    ListView1.ListItems.Add , , rs!model_name    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , , rs!BOXID    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add -- , rs!Descrição    rs.Move NextLoop

Você poderia muito bem fazer assim…

É seu

Atualizado

Você está cansado de ver seu computador lento? Irritado com mensagens de erro frustrantes? ASR Pro é a solução para você! Nossa ferramenta recomendada diagnosticará e reparará rapidamente os problemas do Windows, aumentando drasticamente o desempenho do sistema. Então não espere mais, baixe o ASR Pro hoje mesmo!

A lista de propriedades em particular pode ser uma visualização do meu relatório?..
Eu faço uma lista de elementos por exemplo assim ..

Faça até rs.EOF    ListView1.ListItems.Add! rs! nome do carro    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , rs!BOXID    ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , rs!Descrição    rs.Move NextLoop

O que é simplesmente erro de tempo de execução no Visual Basic?

erro de tempo de execução Se por aplicativo Visual Basic tentar tomar uma atitude que o sistema não pode tomar, um erro em tempo de execução ocorre e o Visual Basic lança um conceito de exceção. O Visual Basic pode gerar erros personalizados de quase qualquer tipo de dados, incluindo objetos de exceção que são lançados usando a instrução Throw.

shena 0Juniores em

Certamente estaremos treinando

equipe amigável da indústria de desenvolvedores, mestres de TI, reuniões de marketing,e em serviços digitais, aprendizado apaixonado para compartilhamento de conhecimento.

Citação:

O que significa o erro de tempo de execução 380?

O erro de tempo de execução 380 é apenas o código real informando que um link específico em uma cadeia com relação aos hiperlinks está quebrado. É negação ou inseguro e provavelmente não pode executar comandos que normalmente permitiriam que tudo o que você criasse fosse carregado. Normalmente, isso é qualquer tipo de corrupção e um problema/problemas com nomes no diretório base do visual específico.

Nunca instalei, sempre copiei o executável e executei.

O que significa erro de tempo de execução 380?

O problema de tempo de execução 380 é apenas um código informando que um determinado link na cadeia definitivamente está corrompido ou inseguro e não pode executar comandos que permitem que você faça tudo o que seu site está tentando fazer. Nesse caso, continua sendo um problema com nomes de raiz e corrupção/problemas presentes no diretório Visual Basics.

Sem entrar em muitos detalhes… a menos que você conheça o texto real que está conduzindo… SEMPRE-SEMPRE-SEMPRE crie um pacote de instalação ( ou seja, empacotado com as dependências) se for válido -Use vb Classic para o netbook de programação other . Para criar um presente:

Menu 1.VB -> Add-ins Add-in -> -> Deployment and Packaging Manager Wizard Clique em -> e Loaded/Unloaded OK.

2. Menu VB -> -> Add-Ins Deployment ainda Package Wizard

6. Continue a clicar em Avançar quando a tela Concluir for exibida. No monitor de saída, você pode dar ao script um nome importante ou usar o chk padrão (“Dep 1”). Este (o que você escolher, faça uma anotação mental do nome para mais tarde)Seu uso.)

9. Clique no botão “Pack” novamente. Quando solicitado a ajudá-lo a recompilar, clique em Sim.

dez.No filme “Select Deployment Script”, verifique se o menu suspenso “With Script” é o mais adequado para o nome do script de animação que você criou na etapa 6. Clique em “Next”.

11. A tela certamente exibiria “Tipo de pacote padrão, selecione o pacote do sistema” e clique em “Avançar”.

12. Na tela “Package Folder screen”, insira a pasta específica onde deseja colocar o guia de instalação. Se você usar o valor padrão específico, forneça uma nota indicando seu endereço físico.

13. Em seguida, clique em Avançar. A tela “Concluído” é exibida. Clique em Concluído.

15. Navegue no explorer para guiar a pasta Windows Step 16 acima. Quase todos copiamos os arquivos atuais para a pasta e o cliente inicia a configuração. O software de instalação instalará seu programa. De fato, o Instalador obtém resultados e salva durante a instalação todos os seus arquivos dos quais dependem. O instalador cria uma entrada de programa sólida para adicionar/remover. O instalador cria todos esses itens do menu iniciar para o seu programa.

Acelere seu computador hoje mesmo com este download simples.

How To Fix Visual Basic 6 Runtime Error 380
Visual Basic 6 런타임 오류 380을 수정하는 방법
Come Correggere L’errore Di Runtime 380 Di 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
Comment Réparer L’erreur D’exécution 380 De Visual Basic 6

Jeremy O\'May

Related posts:

Corrigido: Como Corrigir O Erro De Tempo De Execução 6106. Erro De Tempo De Execução Do Microsoft Jscript Erro De Sintaxe Em Expressões Regulares Solução De Correção Fácil A Melhor Maneira De Corrigir O Erro De Tempo De Execução Do Windows XP R6009 Maneira Mais Fácil De Ajudá-lo A Corrigir O Erro Filho De Tempo De Execução -139