[(Resolvido)Listview]

Uso os dois, mas visualmente prefiro o listview, para outros casos prefiro o MsHflexgrid, segue exemplo para preencher o Listview com dados de uma consulta/recordset:

Private Sub preencher_listview()

With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "select cod, data, valor from fichario " & _
"where (isnull(recebido) or recebido = 0) and cod_cli = " & vCod_cliente & " order by data, valor"
Set rs = .Execute
End With

If rs.RecordCount > 0 Then

With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "Codigo", 1000
.ColumnHeaders.Add , , "Vencimento", 1400, 2
.ColumnHeaders.Add , , "Valor", 1500, 1
End With

With ListView1
rs.MoveFirst
Do While Not rs.EOF
Set itmx = ListView1.ListItems.Add(, , rs!cod)
itmx.SubItems(1) = Format(rs!Data, "dd/mm/yyyy")
itmx.SubItems(2) = Format(rs!valor, "currency")
rs.MoveNext
Loop
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.Font = "tahoma"
.MultiSelect = False
End With
End If
rs.Close

End Sub

[(Resolvido) Conectar e mostrar Tabela do Access em DataGrid]

No exemplo abaixo, é deletado toda linha da tabela onde o campo escolhido for igual ao que estiver aparecendo na primeira coluna da linha selecionada no datagrid

With cmd
        .ActiveConnection = NOME-DA-COEXAO
        .CommandType = adCmdText
        .CommandText = " delete from NOME-DA-ABELA where CAMPO-DA-TABELA = " & DataGrid1.Columns.Item(0) & ";"
        .Execute
        End With

[(Resolvido) Conectar e mostrar Tabela do Access em DataGrid]

Fez as alterações necessárias ? colocou o nome de sua conexão, o nome dos campos e da tabela no codigo ? o nome do datagrid também ? veja abaixo em caixa ALTA

Private Sub Form_Load()

Dim cmd As New ADODB.Command 
Dim rs As New ADODB.Recordset 

With cmd
.ActiveConnection = CON
.CommandType = adCmdText
.CommandText = "select CAMPO1, CAMPO2, CAMPO3 from SUA_TABELA"
Set rs = .Execute
End With
'preenchedo nosso Datagrid com os valores dos campos e configurando tamanho, nome, alinhamento e tipo dos campos
With rs
Set DATAGRID1.DataSource = rs
end with

end sub

[(Resolvido) Conectar e mostrar Tabela do Access em DataGrid]

Exemplo:

Private Sub preenche_grid()

Dim cmd As New ADODB.Command

Dim rs As New ADODB.Recordset

'o command retornando nossos campos e enchendo o Recordset

With cmd

.ActiveConnection = cnn

.CommandType = adCmdText

.CommandText = "select Cod, nome, nascimento from clientes"

Set rs = .Execute

End With

'preenchedo nosso Datagrid com os valores dos campos e configurando tamanho, nome, alinhamento e tipo dos campos

With rs

Set DataGrid1.DataSource = rs

end with

end sub

[Conexão com Access em Excel, Banco com Senha!]

Tente:

cnn.ConnectionString = "provider = microsoft.jet.oledb.4.0;" & _

"data Source = C:\BD.mdb; jet OLEDB:Database Password=minha_senha"

cnn.CursorLocation = adUseClient

cnn.Open

[Iniciando FIREBIRD]

Pessoal, estou tentando iniciar no FB e gostaria de uma mãozinha:

Ao abrir pelo prompt em iniciar\Firebird_isql Tool

estou tentando criar o BD com o comando que pegeui exemplo numa apostila:

CREATE DATABASE "C:\exemplo_Fire\BD.FDB" USER "SYSDBA" PASSWORD

"masterkey" DEFAULT CHARACTER SET ISO8859_1;

COMMIT;

ao dar o enter aparece uma mensagem de erro -904unavailable

alguém pode me ajudar a criar o primeiro BD e as tabelas assim pelo comando SQL no prompt ? não quero usar programas visuais neste momento, pois com o MYSQL aprendi bastante pelo prompt para depois partir para ferramentas auxiliares e acho que foi uma boa experiencia.

[(Resolvido) Calcular estoque em consulta]

Valeu Jonathan, obrigado camarada!

[(Resolvido) Calcular estoque em consulta]

Access

Agradeço desde já a atenção.

[ListBox]

tem certeza que é um ListBox ? colunas e linhas ta mais pra algum Grid

[(Resolvido) Calcular estoque em consulta]

Pessoal, tenho o select abaixo que retorna dados da tabela PRODUTO e ENTRADA no estoque, mas quero que retorne o estoque atual, que deve ser o somatorio do campo QUANT da tabela ENTRADA menos o somatorio do campo quant da tabela VENDA

With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "select Produto.cod, Produto.nome, " & _
"entrada.cod_prod, sum(quant) as TOTAL from produto " & _
"left join entrada " & _
"on produto.cod = entrada.cod_prod " & _
"group by produto.cod, produto.nome, entrada.cod_prod"
Set rs = .Execute
End With

[Instalador]

Pessoal, abraço a todos, fiquei ausente um bom tempo, mas estou voltando e preciso de uma ajudinha:

Peguei o exemplo no link abaixo do Macoratti:

http://www.macoratti.net/09/01/vbn_daw1.htm

Criei o pacote de instalação mas gostaria de saber como coloco para ser instalado o BD Access junto com a aplicação.

Verifiquei que em Aplication Files o mesmo não aparece, mas neste mesmo local não vi opção de acrescentar outro arquivo.

Agradeço desde já.

[Consultas em VB6]

LblData= year(date)

[data report]

utilize a propriedade DataFormat do textbox do DataReport e escolha o formato desejado

[Problema com soma de valores divididos]

O erro não é na soma e sim na divisão, utilize um SE, para só ocorrer a divisão caso exista um denominador diferente de ZERO

em seu exemplo seria assim:

EM C1

=SE(B1<>0;A1/B1;"")

EM C2:

=SE(B2<>0;A2/B2;"")

EM C3

=SE(B3<>0;A3/B3;"")

Agora quando não houver valor em uma das divisões o campo ficará em branco e a soma ocorrerá nas outras

[(Resolvido) C# Access]

Deu certo das duas formas juninnn, valeu cara!

[(Resolvido) C# Access]

Format of the initialization string does not conform to specification starting at index 49.

Apresentado em :

Conn.ConnectionString = StringConexao;

[(Resolvido) C# Access]

Pessoal, não estou conseguindo a conexão com o C#, abaixo o codigo:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Data.OleDb;

 private void tool_btn_produtividade_Click(object sender, EventArgs e)
        {
            groupBox1.Text = "Produtividade";
            string StringConexao = "Provider=Microsoft.jet.oledb.4.0;Data Source = c:\arquivos de programas\bdAgro.mdb;Jet OLEDB:Database Password=15945;";
            OleDbConnection Conn = new OleDbConnection();
            Conn.ConnectionString = StringConexao;
            Conn.Open();          
        }

[(Resolvido) Trabalhando com FORM Modelo C#]

Exatamente! saudações Grande Graymalkin.

[(Resolvido) Trabalhando com FORM Modelo C#]

Pessoal, criei os formularios modelo para meu aplicativo exemplo:

1 - FrmModeloConsulta

2 - FrmModeloCadastro

Agora nos formularios de cadastro e consulta das diferentes areas do projeto Herdei os componentes da seguinte forma, para não precisar desenhar novamente os controles nos inúmeros formularios.

1 - FrmCadastroCliente : FrmModeloCadastro

2 - FrmConsultaCliente : FrmModeloConsulta

Desta forma fiz com outras áreas que usarão o mesmo modelo de FORM, porem em alguns formularios, quando vou codificar eventos para alguns controles, como por exemplo um TextBox, aparece a mensagem abaixo avisando que o controle não esta acessivel, e no Designer do Form tento alterar a propriedade Lock Controls mas não adianta ele continua comum cadeado no campo superior esquerdo

Error1 'ControleDeVendas.Formulários.Modelos.frmModeloConsulta.txtDescricao' is inaccessible due to its protection level

[Ajuda Rotina de Consulta]

.Open "select * from fones where nome like '" & intnome & "', cn, adOpenKeyset, adLockOptimistic"

[VB6 Data Report]

Feche o espaço do REPORT HEADER, colocando o mouse na linha e puxando para baixo, faça o mesmo com o REPORT FOOTER que é o rodapé, deixando aberto apenas o DETAILS que é o relatorio e o PAGE HEADER que é o cabeçalho das paginas depois configure aos poucos os valores das propriedades de distância da parte inferior e superior BOTOMMARGIN e TOPMARGIN. até ficar da forma desejada.

[VB6 Data Report]

A quantidade de linhas será sempre a mesma ? ou seja, cada registro aparecerá sempre as quatro linhas conforme abaixo?:

NOME: jose

PASSAPORTE: 5478254

PAÍS: brasil

VALIDADE: 11/12/2015

[VB6 Data Report]

Para aparecer o cabeçalho igual em todas as paginas, utilize a seção PAGE HEADER, que é o cabeçalho de páginas, você deve estar utilizando a REPORT HEADER que é o cabeçalho único da primeira página, ou inicio do cabeçalho.

[VB6 Adodc]

Faltou apenas selecionar os dados que quer colocar no Datagrid, assim:

Obs: onde aparece TABELA, coloque o nome da tabela do Banco de Dados que deseja exibir no Grid, lembrando que pode exibir os dados de mais de uma tabela, ou restringindo dados etc, pois pode incrementar o select, com Union, Join's, Where 's etc . . .

Private Sub Form_Load()
       
        Adodc1.ConnectionString = conn
        Adodc1.RecordSource = "select * from TABELA"
        Set DataGrid1.DataSource = Adodc1
        
End Sub

Kuroi, como ele já possui uma conexão de nome CONN, ao passar a mesma para a propriedade "ConnectionString " do ADODC1, a mesma sera usada.

[VB6 Adodc]

Se o nome de sua conexao é (conn) então o codigo a ser colocado no form que contem o ADODC é :

Private Sub Form_Load()
Adodc1.ConnectionString = conn
End Sub

Veja que o codigo informa o nome da conexão ao ADODC, como você colocou da forma que postei (cnn) ele gerou erro pois o nome de sua conexão não é (cnn) e sim (conn), entendeu ?