Manwë Súlimo

Pessoal, como faz p/ não deixar um caractere aparecer numa caixa de texto??? com o keypress eu não consegui impedir... alguém pode me ajudar?? até mais

Eu tentei fazer assim como vocês disseram: char op[20]; mas no meu teste ele não deu certo, tipo eu pus if op=="listar" e ele não dava certo, como eu uso num if esse caso????? a palavra tem que ter o tamanho do array?? porque eu não sei que palavra o usuario vai digitar, podem ser varias e de varios tamanhos... como eu faço isso??

Fala Pessoal! gostaria de saber como cria uma OCX no visual basic, e qual é a diferença de um OCX para uma DLL? até mais

Pessoal, talvez seja uma pergunta bem estúpida, mas.... como se declara uma string no C??? até mais

Opa, gostaria sim, e se tiver algumas apostilas ou tutoriais gostaria mais ainda... até mais

Putz pessoal, que viagem.... eu tava colocando errado em vez de Line Input, estava pondo LineInput, por isso que dava erro, mas valeu deu certo agora... até mais

é o sqlserver 7

não é nem trial, acho q me expressei mau, mas nesse pacote de python que venho com o programa da p/ programa?? por tem tanto arquivo e programas que acho que da, tem documentos no menu iniciar tem: A pasta: ActiveState ActivePython 2.2 com outros programas dentro e outra pasta: wxPython 2.4 for Python 2.2, com mais programas dentro nisso dá pra programar??? e ela é boa mesmo ou não é?? até mais

Bom Décio, quando eu coloquei isso ai deu o seguinte erro quando fui digitar a próxima linha: Expected: line number or label or statement or end of statement o que pode ser??

mas ai é que tá, o servidor não é meu... então eu tenho que ligar para o servidor e pedi para eles fazerem isso?? e como eu instancio ela na pagina? con createobeject mesmo???

Pessoal, se eu crio uma classe no VB, como eu uso ela no ASP?? p/ usar no asp tem que registrar no servidor não é mesmo??? e como eu faço isso??

Pessoal, olhem meu código: Dim sValor As Variant n = FreeFile() Open App.Path & "\legendas.txt" For Input As #n ReDim sValor(0) Do While Not EOF(n) x = x + 1 ReDim Preserve sValor(x) 'Armazena cada linha em uma ocorrencia de sValor 'Ex.: Linha 1 está em sValor(1) Input #n, sValor(x) MsgBox sValor(x) Loop o objetivo ai é guardar cada linha no vetor sValor, a msgbox eu to usando só p/ ver o que está em cada linha... meu arquivo está assim: Legenda de motivos: 1-Fora do prazo. 2-Equipamento com defeito. 3-Certificado vencido. o proble é que ele ta guardando assim no vetor sValor(1)="Legenda de motivos:" sValor()="1" sValor()="-Fora do prazo." sValor()="2" sValor()="-Equipamento com defeito." sValor()="3" sValor()="-Certificado vencido." ou seja, ele ta separando o numero do texto, por que? eu queria que ele colocasse toda a linha, inclusive o traço, num indice do vetor parece que eu fiz um split(texto,"-"), com a diferença que ele mantém o traço (-) mas eu não to fazendo isso! por que ele separa assim?? não tem como eu colocar toda a linha num indice só? não importando qual tipo de caractere tenha??? alguém pode me dar uma luz? até mais

Pessoal, consegui resolver esse erro... troquei o tipo de dado da minha tabela, era ntext, e eu troquei para nvarchar, e assim deu certo, sem problema nenhum... alguém consegue me explicar por que isso?? não tem como fazer teste com ntext???? até mais

sim sim, já fiz esse teste, quando o faço, ele da o segundo erro, mas p/ tentar enteder, eu pus conteudo em todos os registros, e deu o type mismatch... já tente com Not isnull e da o segundo erro também... não tenho a menor idéia do que fazer, já testei como if rs("motivo")="" e também da esse erro... mas valeu... alguém mais tem alguma idéia?

ola, eu uso um programa aqui no serviço, que junto com ele vem um monte de coisa do Python... Coisas como Python Trial e por ai vai... por acaso p/ rodar um programa feito em Python tem que ter o Python instalado??

Pessoal, estou fazendo esse código Do While Not rs.EOF Me.Controls.Add "VB.Label", "conce" & y Me.Controls("conce" & y).Appearance = 0 Me.Controls("conce" & y).BackStyle = 0 Me.Controls("conce" & y).BorderStyle = 1 Me.Controls("conce" & y).Caption = rs("concessionaria") Me.Controls("conce" & y).Height = 250 Me.Controls("conce" & y).Width = l_concessionaria.Width Me.Controls("conce" & y).Top = L_topo Me.Controls("conce" & y).Left = l_concessionaria.Left Me.Controls("conce" & y).ForeColor = &H80000008 Me.Controls("conce" & y).Visible = True Me.Controls("conce" & y).Tag = "tabela" Me.Controls.Add "VB.Label", "tipo" & y Me.Controls("tipo" & y).Appearance = 0 Me.Controls("tipo" & y).BackStyle = 0 Me.Controls("tipo" & y).BorderStyle = 1 Me.Controls("tipo" & y).Caption = rs("tipo") Me.Controls("tipo" & y).Height = 250 Me.Controls("tipo" & y).Width = l_tipo.Width Me.Controls("tipo" & y).Top = L_topo Me.Controls("tipo" & y).Left = l_tipo.Left Me.Controls("tipo" & y).Visible = True Me.Controls("tipo" & y).Tag = "tabela" Me.Controls.Add "VB.Label", "numero" & y Me.Controls("numero" & y).Appearance = 0 Me.Controls("numero" & y).BackStyle = 0 Me.Controls("numero" & y).BorderStyle = 1 Me.Controls("numero" & y).Caption = rs("n_cd") Me.Controls("numero" & y).Height = 250 Me.Controls("numero" & y).Width = l_numero.Width Me.Controls("numero" & y).Top = L_topo Me.Controls("numero" & y).Left = l_numero.Left Me.Controls("numero" & y).Visible = True Me.Controls("numero" & y).Tag = "tabela" Me.Controls.Add "VB.Label", "total" & y Me.Controls("total" & y).Appearance = 0 Me.Controls("total" & y).BackStyle = 0 Me.Controls("total" & y).BorderStyle = 1 Me.Controls("total" & y).Caption = rs("total") Me.Controls("total" & y).Height = 250 Me.Controls("total" & y).Width = l_total.Width Me.Controls("total" & y).Top = L_topo Me.Controls("total" & y).Left = l_total.Left Me.Controls("total" & y).Visible = True Me.Controls("total" & y).Tag = "tabela" Me.Controls.Add "VB.Label", "data" & y Me.Controls("data" & y).Appearance = 0 Me.Controls("data" & y).BackStyle = 0 Me.Controls("data" & y).BorderStyle = 1 Me.Controls("data" & y).Caption = rs("data") Me.Controls("data" & y).Height = 250 Me.Controls("data" & y).Width = l_data.Width Me.Controls("data" & y).Top = L_topo Me.Controls("data" & y).Left = l_data.Left Me.Controls("data" & y).Visible = True Me.Controls("data" & y).Tag = "tabela" Me.Controls.Add "VB.Label", "quantidade" & y Me.Controls("quantidade" & y).Appearance = 0 Me.Controls("quantidade" & y).BackStyle = 0 Me.Controls("quantidade" & y).BorderStyle = 1 Me.Controls("quantidade" & y).Caption = rs("qtd_imgs") Me.Controls("quantidade" & y).Height = 250 Me.Controls("quantidade" & y).Width = l_quantidade.Width Me.Controls("quantidade" & y).Top = L_topo Me.Controls("quantidade" & y).Left = l_quantidade.Left Me.Controls("quantidade" & y).Visible = True Me.Controls("quantidade" & y).Tag = "tabela" Me.Controls.Add "VB.TextBox", "descartadas" & (y) Me.Controls("descartadas" & (y)).Top = L_topo Me.Controls("descartadas" & (y)).Left = l_descartadas.Left Me.Controls("descartadas" & (y)).Visible = True Me.Controls("descartadas" & (y)).Height = 250 Me.Controls("descartadas" & (y)).Width = l_descartadas.Width Me.Controls("descartadas" & (y)).Appearance = 0 Me.Controls("descartadas" & (y)).Tag = "tabela" Me.Controls.Add "VB.TextBox", "motivo" & y Me.Controls("motivo" & y).Top = L_topo Me.Controls("motivo" & y).Left = l_motivo.Left Me.Controls("motivo" & y).Visible = True Me.Controls("motivo" & y).Height = 250 Me.Controls("motivo" & y).Width = l_motivo.Width Me.Controls("motivo" & y).Appearance = 0 Me.Controls("motivo" & y).Tag = "tabela" Me.Controls("motivo" & y).Text = rs("motivo") nessa ultima linha ta dando o erro de Type Mismatch, se eu trocar ela por Me.Controls("motivo" & y).Text = CStr(rs("motivo")) da o seguinte erro: Operação OLE DB de várias etapas gerou erros. Verifique cada valor de status OLE DB. Nada foi executado alguém pode me falar o que está acontecendo... ou uma outra forma de fazer isso?? até mais desde já agradeço

então p/ eu mudar a cor do meu mdi, eu tenho que mudar a cor de todos os aplicatios do windows??? até

Pessoal, não tem como eu trocar a cord do MDIForm??? a cor principal, não a cor do fundo.... tipo a cor das bordas e tal.... tem como?? até mais

Valeu Garcia, acho que a sua resposta deve resolver e Graymalkin, como usaria essa propriedade??? eu dei um F2 p/ ver como poderia ser usado, e acha que ele retorna se a mesma aplicação está rodando ou não e eu preciso saber se outra aplicação está rodando... é assim que ela funciona mesmo??? até mais

Pessoal, tem como eu saber se determinado exe está rodando no momento?? tipo, eu quero saber se o aplicativo triagem.exe está rodando no momento, tem como? esse executavel está na mesma pasta do que verificaria.... até mais

pessoal, o problema do SP funcionar consegui resolver... ficou assim: Set proc = New ADODB.Command With proc .ActiveConnection = cn .CommandType = adCmdStoredProc .CommandText = "sp_atualiza_estisticas" End With proc.Parameters.Append proc.CreateParameter("@primeiro", adVarChar, adParamInput, 10, primeiro1) proc.Parameters.Append proc.CreateParameter("@ultimo", adVarChar, adParamInput, 10, ultimo1) proc.Execute Set proc = Nothing mas agora, como a ação do SP é muito longa, da tempo limite expirado, mas quando a gente executa um SP, o trabalho não fica a cargo do servidor e não da aplicação?? minha conexão não poderia ser fechada, mesmo antes de terminar a execução do SP, pois o camando já foi passado p/ o servidor? como funciona exatamente isso??

Pessoal, só estou acustumado a usar SP com um paramentro, agora eu tenho que passar dois, mas não consigo fazer o código... ele ta assim Set proc = New ADODB.Command With proc .ActiveConnection = cn .CommandType = adCmdStoredProc .CommandText = "sp_atualiza_estisticas" End With Set parametro = proc.CreateParameter("@primeiro", adVarChar, adParamInput, 4, primeiro1) proc.Parameters.Append parametro Set parametro = proc.CreateParameter("@ultimo", adVarChar, adParamInput, 4, ultimo1) proc.Parameters.Append parametro Set paramentro = Nothing proc.Execute mas fala que o procedure sp_atualiza_estisticas precisa do parametro primeiro e este não está sendo passado... como eu faço p/ esse código funcionar?? alguém pode me ajudar? até mais

valeu mano também vou ficar atento e posto aqui caso descubra algo... até mais

você não precisa usar um campo data/hora para amarzenar total de horas.... é claro que em 1 dia sõ tem 24 horas.. usa campo numerico p/ amarzenar total de horas que é melhor, as contas você faz na aplicação... até

Para alterar: update [tabela] set [campo]="novo valor" [aqui você pode por as condições...] Para deletar: delete * from [tabela] where ..... até