Graymalkin

Você poderia postar o código aqui (se não for grande) e dizer se ocorre algum erro ou algo do tipo quando você tenta com um banco do Excel 97? Abraços, Graymalkin

Você pode percorrer todas as textboxes do form através de um foreach, conforme eu mostro neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=73733 Abraços, Graymalkin

Então Gray, tem sim... primeiro você adiciona um StatusStrip e nele clica no botaozinho para adicionar e tem a opção de um ProgressBar que fica nele. E o nome padrão que dá é ToolStripProgressBar. Legal! Não sabia disso não... vivendo e aprendendo! :) Beleza então. :) Fechando o tópico. Abraços, Graymalkin

Rsrsrsrs... :D de repente você digitou "Form.", que mostra somente as propriedades compartilhadas (Shared) de um form. Abraços, Graymalkin

Por que não acessar as tabelas do próprio banco de dados em Access? Não acredito que o acesso seria lento, se acessado por OLEDB. E, se o arquivo ainda vai crescer muito, um XML não é uma boa opção. Isso porque um XML é igual a um arquivo texto, ou seja, se você precisar alterar apenas um único dado, você precisará gravar o arquivo inteiro no disco. Ou seja, um banco Access ainda é muito melhor do que isso. E, sim um programa em VB.NET roda legal no Win9x/ME. Pode demorar um pouco para abrir, mas depois que abre ele fica bastante "usável". Abraços, Graymalkin

Não, dá pra digitar *quantas letras você quiser* até pressionar o ENTER. Por isso é necessário aquele while. Não creio que isso seja possível. Pelo menos não da maneira que você quer. Abraços, Graymalkin

A idéia é a mesma, veja: Public Delegate Sub Delegação(ByVal b As Boolean) Public Sub Visível(ByVal b As Boolean) If ProgressBar1.InvokeRequired Then Dim d As New Delegação(AddressOf Visível) ProgressBar1.Invoke(d, b) Else ProgressBar1.Visible = b End If End Sub Public Sub TesteThread(ByVal obj As Object) Visível(False) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim t As New Threading.Thread(AddressOf TesteThread) t.Start() End Sub Mas, é mesmo um ToolStripProgressBar? Não achei isso aqui. Existem alguns ToolStrips e a ProgressBar, mas não os dois juntos. Abraços, Graymalkin

Você já experimentou fechar o Winsock com o método Close logo após enviar os dados e antes de fechar a janela? Abraços, Graymalkin

Qual o banco? PostgreSQL, Access, MySQL, SQL-Server, etc? E qual a versão do Visual Studio? (Leia este tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=76764) Abraços, Graymalkin

:) Sim, mas acho que não dá pra fazer com o scanf(). Veja um exemplo utilizando getch() e putch(): #include <stdlib.h> #include <stdio.h> #include <string.h> #include <ctype.h> #include <conio2.h> int main() { char c; printf("Digite o nome: "); while (c!=13) { c = getch(); putch(toupper(c)); } } Você tem que primeiro transformar o inteiro em um array de chars (em uma "string"). Para isso existe a função itoa(). Abraços, Graymalkin

Ah, é no Windows XP? Se for, ele exibe mais linhas do que o normal, e realmente pode ser que o clrscr() não as limpe. Mas, você já tentou fazer com o system("cls")? Abraços, Graymalkin

Como assim "não adiantou"? Graymalkin

Não bastaria limpar a tela? Se for o caso, você pode fazer isso chamando a função clrscr() da CONIO 2, ou system("cls"). Abraços, Graymalkin

Huhauhauhuaha... Bom, em relação ao seu comentário, não, seu conhecimento de ASP não vai para o lixo, seja com .NET ou com qualquer outra plataforma/linguagem. Todos os conceitos existentes em VBScript (utilizada no ASP) estarão presentes em outras linguagens. A diferença é só que outras linguagens (C# e VB.NET) serão muito mais ricas em recursos do que VBScript. Uma outra diferença está na organização do código. Enquanto que no VBScript o código era executado linearmente, por ser uma linguagem de *script* (do Inglês, roteiro), em um programa OO a coisa pode ser muito diferente; objetos são voláteis. E, como sabemos, as necessidades de um sistema são extremamente voláteis, e se a implementação do sistema não tiver o mesmo grau de volatilidade, ele acaba "morrendo". E prolongar sua "vida" é algo que a OO nos facilita. Mas, quando é que, efetivamente, um sistema "morre"? Quando sua implementação chega a níveis de complexidade tão altos, que alterar uma coisa aqui pode afetar outra coisa lá. É claro que isso varia muito de um programador para outro, mas a idéia de sair criando funções à esmo, pode ser um fator para a morte de um sistema. Hoje você cria uma função para calcular todas as compras de um cliente e retornar o resultado. Amanhã você precisa ter de uma forma prática todas compras do cliente, e não somente o total. E para cada um dos requisitos você vai fazendo uma função. Dependendo da sua organização, pode chegar um ponto em que você pode se perder. O encapsulamente e a visibilidade de objetos, conceitos de OO, lhe auxiliam nisso fazendo com que tudo que seja relacionado ao cliente fique na classe Cliente, por exemplo. Vale observar que eu *não* estou dizendo que um sistema não-OO está fadado a morte, e nem que a OO seja estritamente necessária. Eu mesmo faço manutenção e adiciono novas funcionalidade em um sistema não-OO (em Clipper). Apenas estou esclarecendo algumas das vantagens da OO. Certo? ;) (Nossa... me empolguei novamente... hehehe) Graymalkin

Bom, não tenho como recomendar algum curso ou coisa do tipo, mas já surgiram estas questões aqui no fórum mesmo. Portanto, posso recomendar alguns tópicos que poderão esclarecer o que é a programação orientada a objetos. O conceito realmente não é complicado, de forma que você vai poder ver que talvez nem precise de um curso para aprender isso. Os tópicos estão em linguagens variadas, mas o importante são os conceitos passados (que são os mesmos para qualquer linguagem). http://scriptbrasil.com.br/forum/index.php?showtopic=19625 http://scriptbrasil.com.br/forum/index.php?showtopic=67913 Abraços, Graymalkin

O tamanho da SQL gerada realmente cabe em 100 caracteres? Talvez ela esteja ficando maior do que isso, não? Outra coisa... por que você fecha a conexão ao final desta função? A idéia não é manter a conexão aberta o tempo todo enquanto o programa estiver sendo executado? Abraços, Graymalkin

Declare o... MYSQL conexao; ... logo depois dos includes (e antes de qualquer outra função). Daí, na função main() você abre a conexão... mysql_init(&conexao); mysql_real_connect(&conexao, "localhost", "root", "profjanio1", "cadastro", 0, NULL, 0); ... e vai poder utilizar o objeto "conexao" em qualquer outra função (deste arquivo fonte) sem precisar repetir as linhas acima. Abraços, Graymalkin

Eu *acho* que seria a função GetModuleFileName(), pela descrição dela que vi no API-Guide (http://www.allapi.net/ ou http://www.mentalis.org/), mas nunca a utilizei realmente. Abraços, Graymalkin

Não, o console do XP não mostra caracteres piscantes. Se sua intenção é apenas piscar em um dado momento (e não o tempo todo), você poderia simplesmente fazer: #include <stdio.h> #include <stdlib.h> #include <conio2.h> #include <string.h> #include <windows.h> int main() { int i = 0; textcolor(YELLOW); textbackground(BLACK); while (i<10) { cputsxy(10, 10, "Teste"); Sleep(300); cputsxy(10, 10, " "); Sleep(300); i++; } } Certo? ;) Graymalkin

Basta somar +128 ao valor da cor. Exemplo: textcolor(BLUE + 128); Vale lembrar que se você estiver utilizando o Windows XP, você *não* vai ver o texto piscando. E no Win9x você só vê quando o programa é executado em tela cheia. Abraços, Graymalkin

Como assim? :blink: Ela está lá. É do mesmo jeito... Um WinForm tem uma propriedade ActiveControl que é uma referência para o controle ativo. Abraços, Graymalkin

Provavelmente o arquivo está ficando aberto da primeira vez que você o utiliza. Você deveria chamar o método Quit do Excel.Application para fechar completamente o Excel (e os arquivos utilizados por ele). Onde você viu isso? Poderia ser: xlw.Sheets("Produtos").Range("RA").Value = valor Onde "RA" é a célula e o valor é uma variável com o valor a ser colocado na célula. Abraços, Graymalkin

Efetivamente, isso não "lê" o que está no arquivo, mas sim apenas abre o mesmo em uma instância do Excel. E para salvar esse mesmo arquivo aberto, bastaria fazer algo como: xlw.Save Existe também o método SaveAs (que é o equivalente ao "Salvar Como..."). Certo? ;) Graymalkin

Não seria só uma questão de concatenar as strings? :huh: Graymalkin

Sim, de fato falta um arquivo chamadao Dados.xls que é requerido. Mas, vamos ao caso do Range. Acho que com um exemplo é mais fácil de explicar. Portanto, crie um novo projeto no VB e coloque um o seguinte no evento Click de um botão no form: Set excel = CreateObject("Excel.Application") Set pasta = excel.WorkBooks.Add() Set planilha = pasta.WorkSheets("Plan1") planilha.Range("A2").Value = 2 planilha.Range("A3").Value = 5 excel.Visible = True MsgBox planilha.Range("A3").Value Execute e clique no botão. Você verá que o Excel será aberto, uma nova pasta de trabalho será criada e as células A2 e A3 da Plan1 serão preenchidas. Note que o preenchimento é aqui... planilha.Range("A2").Value = 2 planilha.Range("A3").Value = 5 ... e como você pode ver, eu estou efetivamente chamando o método Range de um objeto "planilha" que se refere a Plan1 na pasta de trabalho. Sacou? ;) Graymalkin