Danleonhart

E aí Kuroi ! quanto tempo hein ! Beleza ! Era isso que estava procurando...já suspeitava que com a ADOX iria conseguir o que queria :rolleyes: . Falta só testar no SQL Server & Compact Edition...se bem que o Macorratti adiantou que "todas" funcionalidades da ADOX só são suportadas pelo provedor Jet OLEDB... mas todo provedor OLEDB suportam determinadas funcionalidades... Então, mãos aos testes ! ;).

Pessoal... Tem como através de comando VB-6 saber quantas tabelas há em uma base de dados ? Quantas tabelas e quais os nomes de cada... EX: Tenho uma Base de Dados Access que tem 3 Tabelas...então, quero listar em uma ListBox os Nomes das Tabelas existentes em meu BD. Tem como fazer isso ? :mellow:

Já encontrei a solução pessoal :blush: encontrei uma forma em SQL, foi só adaptar para o Access: Public Sub Pesquisar() Dim SQLcons As String Dim vVal1 As Variant Dim vVal2 As Variant vVal1 = Format(DPicker1.Value, "DD/MM/YYYY") vVal2 = Format(DPicker2.Value, "DD/MM/YYYY") SQLcons = "SELECT * FROM ProdGeral WHERE ProdData BETWEEN '" & vVal1 & "' AND '" & vVal2 & "'" script...... Fonte:http://www.w3schools.com/sql/sql_between.asp Fica a dica :rolleyes: .

Pessoal... Ajudinha aê :blush: Quero criar uma string de consulta ao BD entre período de datas... Assim: de 10/02/2011 a 20/02/2011... Peguei este exemplo: Public Sub Pesquisar() Dim SQLcons As String Dim vVal1 As Variant Dim vVal2 As Variant vVal1 = Format(DPicker1.Value, "DD/MM/YYYY") vVal2 = Format(DPicker2.Value, "DD/MM/YYYY") SQLcons = "SELECT * FROM ProdGeral WHERE ProdData= #" & vVal1 & "# AND #" & vVal2 & "#""" Só que está apresentando erro de sintaxe e aponta para linha da consulta: Onde foi que eu errei !!! :unsure:

Matheus... Cara tou no trabalho...estarei em casa só depois das 18:00...então, te envio um projeto e qualquer coisa ==> MSN :D VALEU !

Matheus Freitas: Explica melhor essa segunda dúvida...você quer fazer uma consulta na coluna Produtos... e postar o resultado no DataGrid ? é isso ? mais de um produto em uma mesma pesquisa ? é isso também ? Diz aê, como você está dando a opção de escolha da pesquisa ? é em TextBox, InputBox, CheckBox...quando faço uma busca com mais de uma variável (no caso aqui, produto), uso CheckBox...mas nesse caso eles são pré-definidos... Dê mais detalhes para nós :blush:

Fala Matheus-vb6 ! Não tenho total certeza mas acho que com o DataGrid não rola o Do While ou Do Until com o RecordSet...com o FlexGrid e a ListView sim...basta um Do Until e o script de preenchimento que vai embora ! :) Depois quem vai dá uma fuçada no MS Chart sou eu...ainda não tinha pensado em adicionar um em meus projetos... Se prepara Matheus-vb6 pra trocar umas idéias no MSN ;).

Matheus Freitas... Sinceramente não cheguei a usar este recurso do VB-6...ando dividindo minha atenção entre VB-6 e .NET (VB.NET & C#), então só o que posso fazer é te indicar este artigo que encontrei no site do Macoratti: http://www.macoratti.net/ado_graf.htm Espero que te ajude, se é que você já não leu ele :D .

Frata : O VB-6 Portable é incompleto cara...eu costuma usá-lo no trabalho, mas nele só tem o básico dos básicos...provavelmente foi o mesmo que aconteceu comigo...a falta de uma OCX ou DLL...no meu caso foi uma OCX. Instalei a versão full e pronto :closedeyes: !

Pessoal... Estudando sobre o System.Diagnostic do VS-2008, assistí em uma video-aula como lançar o resultado todo em um DataGridView...na video-aula dá tudo certinho, mas na prática o meu projeto tá apresentando o seguinte erro sempre que tento percorrer o DataGrid: Importei tudo direitinho como diz a video-aula... Imports System Imports System.Text Imports System.Windows.Forms Imports System.Data Imports System.Drawing Imports System.Collections.Generic Imports System.ComponentModel Imports System.Diagnostics :unsure:

Matheus Freitas... Em relação ao DataGrid, eu não uso o Refresh...não conseguí me adaptar nem bolar uma maneira de usá-lo com eficiência...mas segue abaixo, uma video-dica minha...de como utilizo um DataGrid para mostrar dados de uma Tabela em Access... não espere muita coisa, pois estou iniciando também...e sou até o momento auto-didata...aprendendo com base em apostilas, video-aulas e muitas dicas e informações que consigo com a boa vontade dos feras deste excelente site :lol:. Então, segue aqui a Video-dica...está compactado em ".RAR", e no host Deposit Files: Video-dica ADO & DataGrid - VB-6 Espero que te ajuda cara! :D

Olá Matheus ! Olha, sempre que surge essa mensagem: "method or data member not found" pelo menos comigo, era algo errado relacionado com o script de procedimentos do BD... veja a linha abaixo: A Coluna "Endereço" do seu BD está realmente com a letra "ç" ? Pelo menos comigo quando fiz isso com BD Access deu problema...e com SQL nem falo :wacko: Tenta substituir por "Endereco" e ver no que dá ^_^ .

Fiz assim em um dos meus projetos com BD Access e deu certo...se vai salvar só o caminho no BD vai funfá beleza, independente do BD. Testei no SQL Server 2000 da empresa onde trabalho e também funcionou. :closedeyes:

OKs ! Deu certo ! Mas tive que usar o Setup Project do próprio VS-2008 para ele me mostrar as "dependencias" que meu projeto necessitava. Depois disso fiz uma busca no sistema, e copiei o necessário para uma pasta, onde já tinha colocado o executável, o arquivo do BD (SQLCE), o pack do SQLCE e o pack do NET Framework. Pronto ! foi só criar da maneira tradicional usando o Inno Setup e o ISTool. Detalhe: Para que o "Instalador" execute packs de instalação embutidos nele, é necessário os packs serem também no formato ".EXE"...se for no formato ".MSI (Microsoft Installer)", ele dá erro na hora da instalação...só na parte do pack, o restante ele instala normal. :rolleyes:

Tá ! eu já ví... :) Minha dúvida é porque não vou colocar uma DLL ou OCX...mas sim o instalador completo...sem falar que ele não executa no formato ".MSI" (instalador Windows), tem de ser ".exe" mesmo. Já tinha marcado essa caixa, porém tinha configurado também para executar na Instalação...então, vou tentar marcando apenas a caixa que você citou...depois posto uma resposta ;) VALEU !

Bem pessoal, Gostaria de saber como se faz para antes de instalar a aplicação fazer-se uma varredura para ver se há no PC as bibliotecas e OCX's necessárias para rodar a aplicação... Tipo assim: vou colocar junto a minha aplicação um pacote do NET Framework e SQLCE, mas só quero que instale se no PC do usuário não existir...

Seja bem vindo CarlosGP :) Amigo, tens aí dois grandes "Usuários" que entendem do assunto e já me ajudaram bastante :D (Kuroi & Matheus VB-6) Acho que o erro pode está ocorrendo na variável... se for Números que está colocando nas TextBoxes faça assim: rsdados.Open "select * from TABELA where IN=" & txtcodigo.Text, cn ou tente assim : rsdados.Open "select * from TABELA where IN=' & txtcodigo.Text & '", cn Minha opinião cara... Valeu !!! :D

private void btn1_Click(object sender, EventArgs e) { // Se 1ª caixa e 2ª caixa estão vazias if ((this.txt1.Text == string.Empty) & (this.txt2.Text == string.Empty)) { // Apresenta a mensagem: lb1.Text = "Ambas as caixas estão vazias."; this.txt1.Focus(); return; } // Senão se apenas a 1ª caixa estiver vazia else if (this.txt1.Text == string.Empty) { // Apresenta a mensagem: lb1.Text = "1ª caixa vazia."; this.txt1.Focus(); return; } // Senão se apenas a 2ª caixa estiver vazia else if (this.txt2.Text == string.Empty) { // Apresenta a mensagem: lb1.Text = "2ª caixa vazia."; this.txt1.Focus(); return; } // Declarando variáveis int A = Convert.ToInt32(txt1.Text); int B = Convert.ToInt32(txt2.Text); // Se variavel A for igual a variavel B if (A == B) { // Label mostra o texto: lb1.Text = "Os valores das caixas são iguais."; } // Se variavel A for MAIOR que a variavel B if (A > B) { // Label mostra o texto: lb1.Text = "O valor da 1ª caixa é maior."; } // Se variavel A for 'menor' que a variavel B if (A < B) { // Label mostra o texto: lb1.Text = "O valor da 1ª caixa é menor."; } } Era assim que estava procurando :closedeyes: FUI !!! :P

Olá Matheus ! tudo beleza ! Estou também a iniciar na arquitetura .NET...tem suas dificuldades, mas tem muito mais recursos ! Bem tentando responder sua pergunta (já que também sou iniciante), você tem de declarar no inicio do script, acima de "Public Class", onde fica o "Declarations"...lá você põe: Imports System.Data.OleDb ' Este faz referência a objeto OLEDB; Imports System.Data.DataSet ' Este ao DataSet (RecordSet do VB-6 muito melhorado). Imagem para facilitar: Quanto a criar uma Função, eu ainda não parei para fazer...mas utilizo este script para me conectar e fazer consultas a dados de um banco sem precisar configurar "Visualmente": Public Sub PreencherLista() ' Estas declarações eu coloco no inicio do script para serem válidas por todo ele; Dim Con As OleDbConnection Dim Da As OleDbDataAdapter Dim Ds As DataSet ' Aqui, seto as variáveis (Conexão com ADO); Con = New OleDbConnection("Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=" & Application.StartupPath & "\DBase2.sdf") ' Objeto de conexão com Banco de dados em SQLCE (SQL Compact Edition via código) Dim SQL As String = "select * from data01" ' Consulta toda tabela; Da = New OleDbDataAdapter(SQL, Con) 'Defino o Objeto "Adapatdor"; Ds = New DataSet ' Variável que armazena todas as informações do Banco (RecordSet do "VB-6" melhorado); ' Utilizando o Adaptador preencho o DataSet definindo a tabela ("data01"); Da.Fill(Ds, "data01") ' Como exemplo, vou configurar como preencher um ListBox (LB1) com os dados da tabela "data01": Dim Linha As Integer For Linha = 0 To Ds.Tables("data01").Rows.Count - 1 ' Setando preenchimento da minha ListBox: LB1.Items.Add(Ds.Tables("data01").Rows(Linha)("ID") & vbTab & (Ds.Tables("data01").Rows(Linha)("Nome") & vbTab & (Ds.Tables("data01").Rows(Linha)("Endereco") & vbTab & (Ds.Tables("data01").Rows(Linha)("Cidade"))))) Next End Sub ' Lembrando que "data01" é o nome de minha "TABELA", e "ID, Nome, Endereco e Cidade", são "COLUNAS" desta tabela. No exemplo, estou a utilizar o SQLCE 3.5... se quiser usar o Access como BD, basta substituir o script do Objeto "Con" por: Con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\bd1.mdb") Onde "bd1.mdb" é o BD... e para utilizar o script "Application.StartupPath" (primo 'rico' do "App.Path" no VB-6), o BD tem de estar na pasta do aplicativo (óbvio <_<), que por padrão fica em: Meus documentos\Visual Studio 2008\Projects\"Nome do seu Projeto"\"Nome do seu projeto"\bin\Debug Qualquer coisa, trocamos uns "scripts" pelo Messenger :D

Descobrí o que resulta neste problema... o arquivo do BD (.SDF) está no servidor (\\svr02\Dados\DBase.sdf) e minha aplicação de inicio já abre o banco...observei que ele não suporta duas consultas identicas sem que seja obrigado a fechar antes o objeto de conexão. O interessante é que isso só ocorre quando o BD está locado em um PC externo (servidor)...quando está no PC local (pasta do aplicativo "App.Path") funciona perfeitamente, sem precisar fechar o objeto de conexão... Isso é estranho...deve ser um dos pequenos detalhes que o SQLCE tem... se alguém já passou por isso e encontrou a solução, peço que deixe a dica...pois estou a pensar em reescrever todo o script do aplicativo para incrementar o "fechar conexão"...

:) Pessoal Sou inicante em DotNet...gostaria de saber como faço para criar uma condição com o tipo <, > e <> (Maior que, Menor que e Diferente)... Tipo : Se A for igual a B então: OK ! Se A for menor que B então: Ruim. Se A for maior que B então: Ótimo ! Se A for diferente de B então: Fora de contexto. Com VB-6 é facinho facinho mas DotNET é outra coisa <_<.

Olá pessoal... Vou começar a estudar C#... e gostaria de saber se posso postar dúvidas sobre tal, aqui neste local. :)

Pessoal... Preciso de uma aula básica... tou me enrolando... No script: Public Function CarregaDados(NumeroField As Integer, ByVal IMG As Image, ByVal TXT As TextBox) As String .....código..... End Function Esse termo "ByVal" quer dizer o quê mesmo ??? lí sobre isso, mas não estou encontrando na Apostila que tenho :( . Obrigado!

Conseguí ! :lol: Alterei o script para o que estava no site do Macoratti: http://www.macoratti.net/vb6_exp.htm Vou testar os demais depois ! :D

Eu me adaptei ao MSFlexGrid e sempre que preciso, utilizo ele nos projetos...