Graymalkin

A maioria sim, mas já que até o Visual Studio 2003 está relacionado, eu arriscaria fazer um teste com o VB6. Quem sabe não funciona? Abraços, Graymalkin

E qual seria esse banco de dados? Access, SQL Server, MySQL, PostgreSQL, etc. Abraços, Graymalkin

Parabéns a ambos! :) Abraços, Graymalkin

Eu uso a RealSpeak Raquel (que tem uma pronúncia muito boa) com o SAPI: Dim k As Object = CreateObject("SAPI.SpVoice") k.Speak("Isto é um teste") Abraços, Graymalkin

O problema neste caso é que se o programa for ser utilizado em rede (ou seja, por mais de um computador), poderá haver duplicação de códigos. Neste tópico eu proponho uma solução para isso: http://scriptbrasil.com.br/forum/index.php?showtopic=28512 Abraços, Graymalkin

Nops... isso é ASP, então estou movendo para o lugar correto. Abraços, Graymalkin

Coloque o seguinte no evento KeyPress da caixa de texto: KeyAscii = Asc(UCase(Chr(KeyAscii))) Lembre-se de retirar o seu código do evento Change. Abraços, Graymalkin

Bem-vindo novamente, fercosmig! Abraços, Graymalkin

Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=104390 Abraços, Graymalkin

Exato, por esta razão é que existem os instaladores e a necessidade de se realmente "instalar" o aplicativo no sistema operacional. Abraços, Graymalkin

Realmente não está encontrando mesmo (se a caixa está ficando vermelha, esse é o motivo). Mas, você está digitando o *início* do que deve ser procurado? Porque se não for o início você pode colocar um * (asterisco) na frente do texto no código: If HF1.TextMatrix(i, 1) Like "*" & txtBusca.Text & "*" Then Experimente mudar essa linha e veja se dá certo. Abraços, Graymalkin

Repare no evento onde você colocou o código: StatusTextChange do WebBrowser. Este evento só vai ocorrer se o texto de status do mesmo mudar. Você deveria colocar este código no evento Load do form ou no Click de um botão. Abraços, Graymalkin

Por "base em sql" você quer dizer no SQL Server? Ou no MySQL? Ou em qualquer outro SGBD que suporte SQL (como o próprio PostgreSQL)? :rolleyes: Graymalkin

A própria DLL da máquina virtual do VB (msvbvm60.dll) é uma biblioteca do tipo COM/ActiveX, assim como 99% das outras bibliotecas usadas em um programa criado em VB. E este tipo de biblioteca necessita de registro no sistema operacional para ser localizada. Portanto acho difícil que você possa usar o VB6 sem registrar as DLLs (o que é feito na instalação do mesmo). Abraços, Graymalkin

Sim, você pode fazer algo assim (onde HF1 é uma Hierarchical Flexgrid): Private Sub txtBusca_Change() achou = False HF1.Col = 1 For i = 1 To HF1.Rows - 1 If HF1.TextMatrix(i, 1) Like txtBusca.Text & "*" Then HF1.Row = i HF1.TopRow = i achou = True Exit For End If Next i If Not achou Then txtBusca.BackColor = vbRed txtBusca.ForeColor = vbWhite Else txtBusca.BackColor = vbWhite txtBusca.ForeColor = vbBlack End If End Sub A parte do final (onde a cor da caixa de texto é alterada) é opcional, mas é legal para dar um aviso ao usuário de que ele não encontrará nada a partir do que está escrito. Abraços, Graymalkin

Seria melhor então você fazer assim: Set Tbl = cat.Tables("Tabela") achou = False For Each coluna In Tbl.Columns If coluna.Name = txtNome.Text Then achou = True Exit Sub End If Next If Not achou Then Tbl.Columns.Append txtNome.Text, adSmallInt End If Apenas um loop e um if. Abraços, Graymalkin

Coloca novamente o código todo que você está usando, que aí fica mais fácil para ajudar. Abraços, Graymalkin

Você viu o meu código ali em cima? É um exemplo de código identado. Só que quando você está digitando no interpretador ativo você tem que observar que o código pode ficar meio torto por causa da primeira linha (onde vai ter um >>> na frente). Experimente colocar o código em um arquivo .py e executá-lo e você verá que funciona. Veja como fica no interpretador: >>> x = raw_input('Informe a fase:') Informe a fase:vapor >>> if x=='líquido': print 'Menos de 100ºC' elif x=='vapor': print 'Mais de 100ºC' else: print 'Menos de 0ºC' Mais de 100ºC E veja como fica somente o código quando colocado em um arquivo .py: x = raw_input('Informe a fase:') if x=='líquido': print 'Menos de 100ºC' elif x=='vapor': print 'Mais de 100ºC' else: print 'Menos de 0ºC' Note que a diferença é só que o ">>>" do interpretador afeta a visualização da primeira linha. Abraços, Graymalkin

Os nomes estão certos? Da caixa de texto, por exemplo? Graymalkin

Você não parece estar identando o código. A identação é essencial em Python porque é a maneira de delimitar blocos de código: x = raw_input('Informe a fase: ') if x == 'líquido': print 'Menos de 100º C' elif x == 'vapor' : print 'Mais de 100º C' else: print 'Menos de 0º C' Repare os espaços na frente dos "print"s. Abraços, Graymalkin

Acho que você tem que colocar uma linha assim: host all all 192.168.1.1/100 md5 Quer dizer que vai de 192.168.1.1 até o 192.168.1.100. Eu fiz isso lá no serviço e posso te passar a dica amanhã, se não estiver certo. Abraços, Graymalkin

Acho que aqui... For Each Columns In Tbl.Columns If Columns = txtNome.Text Then ... ... deveria ser... For Each Columns In Tbl.Columns If Columns.Name = txtNome.Text Then ... ... não? Abraços, Graymalkin

Percorra a coleção Columns com um For Each. Abraços, Graymalkin

Mas, não é método Navigate() que você deve chamar? Abraços, Graymalkin

O que é o "en"? Não é com a hashtable "Cesta" que você está trabalhando? Abraços, Graymalkin