Macêdo

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

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

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

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

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

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.

Valeu Jonathan, obrigado camarada!

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

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

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

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á.

LblData= year(date)

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

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

Deu certo das duas formas juninnn, valeu cara!