Jump to content
Fórum Script Brasil

Macêdo

Membros
  • Posts

    303
  • Joined

  • Last visited

Everything posted by Macêdo

  1. 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
  2. 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
  3. 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
  4. 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
  5. 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
  6. 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.
  7. Valeu Jonathan, obrigado camarada!
  8. Access Agradeço desde já a atenção.
  9. Macêdo

    ListBox

    tem certeza que é um ListBox ? colunas e linhas ta mais pra algum Grid
  10. 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
  11. Macêdo

    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á.
  12. utilize a propriedade DataFormat do textbox do DataReport e escolha o formato desejado
  13. 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
  14. Macêdo

    (Resolvido) C# Access

    Deu certo das duas formas juninnn, valeu cara!
  15. Macêdo

    (Resolvido) C# Access

    Format of the initialization string does not conform to specification starting at index 49. Apresentado em : Conn.ConnectionString = StringConexao;
  16. 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(); }
  17. Exatamente! saudações Grande Graymalkin.
  18. 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
  19. .Open "select * from fones where nome like '" & intnome & "', cn, adOpenKeyset, adLockOptimistic"
  20. 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.
  21. 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
  22. 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.
  23. Macêdo

    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.
  24. Macêdo

    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 ?
×
×
  • Create New...