Ir para conteúdo
Fórum Script Brasil

Andersonjb

Veteranos
  • Total de itens

    580
  • Registro em

  • Última visita

Tudo que Andersonjb postou

  1. Posta o seu código pra gente... Porque eu nunca fiz isto dessa maneira... Falows!
  2. Pessoal, olhem esse comando: SELECT SUM(Tabela481.Valor), Tabela481.Codigo, Tabela481.Indicador, Tabela495.Descricao, Tabela481.Valor FROM Tabela481, Tabela495 GROUP BY Tabela481.Codigo; Agora, olhem o erro: Me desculpem a ignorância, mais aonde eu errei???
  3. Andersonjb

    Mdi-child

    Nada, ficou complicado porque é uma plataforma nova pra você, a mesma coisa está acontecendo comigo, aprendi o .NET primeiro e agora to tendo que aprender o 6 por causa de umas aplicações no trampo, e pra mim o VB 6 é que é complicado, mais vamos lá: Do ADO pro ADO.NET não mudou muita coisa não, os príncipios continuam os mesmos, isso você pode ver aqui: http://www.macoratti.net/ado_adon.htm Se você ver o que o Macoratti escreveu, vai perceber que o .NET é muito melhor que o 6, em questão de acesso a BD's e tambem a linguagem. O que muda basicamente são os Objetos: ADODB.Connection = OLEDB.DataAdapter ADODB.RecordSet = OLEDB.DataSet Ai se você conhece os príncipios, é só programação... Sobre os comandos de movimentação de registros, o DataAdapter tem as devidas propriedades (InserCommand,DeleteCommand,UpdateCommand e SelectCommand) pra você brincar á vontade. Leia a página e não pense que o .NET é pior que o 6, porque realmente, não é... Falows!
  4. Valeew, Gente! To descendo o reio aqui no VB 6 no trampo, obrigado pela ajuda!
  5. Tenho, olha o código modificado: Dim preenche As New ADODB.Recordset Dim seleciona As String seleciona = "SELECT Nome, Endereço, Bairro FROM Funcionários;" Set preenche = conexao.Execute(seleciona) Me.DataGrid1.DataSource = preenche
  6. Não foi, Gray... O engraçado é que, usando um Data Enviroment para conectar ao banco de dados e preenchendo o Data Source na caixa de propriedades com o Data Enviroment, os dados aparecem, só em código que não vai. Alguma opnião?
  7. Bem, pessoal, prometo que essa é a ultima, huaauh. Bom, estou tentando carregar uma simples consulta (mas simples meeeesmo) em uma Data Grid. Olhem o código: Abrindo a conexão: Public conexao As New ADODB.Connection conexao.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bd1.mdb;") Preenchendo a Data Grid: Dim preenche As New ADODB.Recordset Dim seleciona As String seleciona = "SELECT Nome, Endereço, Bairro FROM Funcionários;" Set preenche = conexao.Execute(seleciona) Me.DataGrid1.DataSource = conexao Me.DataGrid1.DataMember = preenche E o erro: Como assim não existe? Tem alguma coisa errada no meu código ou estou errando na atribuição das propriedades da Data Grid?
  8. Deixa eu vê se eu entendi então: eu tenho que atribuir a instrução sql depois que eu atribuir os valores á variavel, certo? E olha só, eu coloquei porque falaram para mim que tem que colocar, mais como eu ainda não manjo muito no 6, o que significa esse operador "Set"? Por exemplo: Set com_insere = conexao.Execute(insere) Porque o Set? Não é só atribuir o valor á variavel?
  9. Pessoal, sei que eu to encheeeeendo o saco, mais é que linguagem nova, pra aprender no inicio, é uma desgraça, mais vamos lá. Olhem esse código, ele abre um txt, pega certos dados e insere no banco. Dim nome As String Dim endereco As String Dim bairro As String Dim insere As String Dim com_insere As New ADODB.Recordset insere = "INSERT INTO Funcionários (Nome, Endereço, Bairro ) VALUES ('" & nome & "', '" & endereco & "', '" & bairro & "');" arquivo = FreeFile Open "c:\teste.txt" For Input As arquivo Do While Not EOF(arquivo) Line Input #arquivo, Linha nome = Mid(Linha, 1, 3) endereco = Mid(Linha, 2, 3) bairro = Mid(Linha, 3, 3) Set com_insere = conexao.Execute(insere) Loop Close #arquivo MsgBox ("inseriu") Mais ele dá um erro nessa linha: Set com_insere = conexao.Execute(insere) Olha o Erro: O que isso significa? A variavel não fica vazia e ele dá esse erro. alguém sabe porquê?
  10. Olha, só, eu achei uma versão do Crystal pra baixar por torrent, baixei, instalei, e funcionou. O único problema é que não dá pra conciliar o Crystal com o VB, então, quando eu vou fazer um relatório, eu tenho que criar uma conexão dentro do Crystal. Se eu tivesse essa "conciliação", a conexão vinha automática pra mim, não é? Ou se pelo menos eu tivesse um OCX... E assim, agora, como eu vou chamar esse relatório dentro do VB, já que eles estão separados? OBS.: Link pra quem quizer baixar o Crystal por torrent: http://www.mininova.org/tor/75514
  11. Pessoal, como eu faço para instalar o Crystal Reports no meu Visual Studio Enterprise? Ouvi dizer que essa versão não tem o Crystal, procurei no CD, nas Referências, e realmente não o achei. Fiquei sabendo boatos tambem que uma DLL resolveria tudo, mais não sei qual é essa DLL e muito menos da onde baixá-la. Mas bem: é possível baixar o Crystal Reports de algum lugar e instála-lo no VB 6?
  12. Não, eu descobri o que era. Eu estava querendo executar varios comando em uma só variavel command. É mole? HUaha valeu! P.S.: Te adicionei no MSN! Falows!
  13. Não, isso eu sei, formulei mal minha pergunta, eu me refiro á essa parte do código: If Oficina.rscomando1.BOF Then Não entendi esse "Oficina.rscomando1.BOF", isso quer dizer que a propreidade está vazia?
  14. Já, e como a conexão já estava aberta, ele acusou o erro de que não posso abri-la se ela já está aberta...
  15. Pessoal, to enchendo o saco de novo, mais parece que esse VB 6 não gosta de mim. Bem, utilizo o seguinte código para adicionar uma tabela: Só que dá esse erro: Bem, no data enviroment, eu já deixei como Read/Write, desbloquei tudo que podia, já converti o banco de dados para access 97, porque pensei que incompatibilidade e nada. alguém tem uma idéia?
  16. Bem, eu não sei se era isso, mais eu consegui mesmo assim usando um DataEnviroment. Mais olhando esse código, e o que eu usei agora há pouco, queria tirar uma duvida: O que significa essa lógica? Oficina no caso é o meu DataEnviroment! Não entendi a lógica da budega...
  17. Pessoal, desculpa encher o saco, mais é que estou acostumado com o VB.NET e to apanhando no 6, mais vamos lá: Estou tentando movimentar registros de uma tabela. Codigo da Conexão: Código da Configuração: Código da Movimentação: De acordo com o código da movimentação, quando chegasse no ultimo registro, ele mostraria a messagebox. Mais isso não está acontecendo, o que está errado nesse código???
  18. Pessoal, eu queria saber como eu poderia acessar a porta do Modem (qual é o endereço), para pegar todos os dados que trafegam por ele. alguém tem alguma idéia de como eu possa fazer isso?
  19. Se eu não me engano, você não pode definir um valor no parâmetro, não é? E qual é o tipo dessa váriavel?
  20. Já, ele não está instalado na minha máquina. E 97? Que nada, 2003! Será que é isso???
  21. Pessoal, estou com um erro aqui no meu Banco de Dados. conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _ "Data Source=" & App.Path & "\bd1.mdb;" conexao.Open Erro: Ele simplesmente não reconhece o formato do Banco de Dados. Pra mim isso é muito estranho. alguém tem alguma idéia do que está acontecendo? valeu!
  22. há está. Faz o seguinte: passa o conteúdo para string, e existe uma função chamada Split(). Ela divide uma determinada string em parte (em um array de strings) de acordo com um caracter delimitador, ou mesmo quebrador de strings, que você tem que passar por parâmetro. Um exemplo aí: Eu não lembro bem se era assim porque eu to sem o Visual Studio aqui e não dá pra eu testar, mais é mais ou menos isso. Aqui tem um post de Exemplo: http://scriptbrasil.com.br/forum/index.php...95&hl=Split E se você pesquisar tem outros post's sobre isso! Falows!
  23. Se eu não me engano a referência IO.StreamReader tem um módulo ReadLine(), não tem?
  24. Mais eu uso o 6. E esse erro está dando nele. No seu está funcionando normalmente?
  25. Poxa, sacanagem isso dai, hein! E renato, se conhece algum outro gerenciador de emails bom e que vai me dar um bom suporte e que eu possa confiar para substituir o Outlook?
×
×
  • Criar Novo...