DBGRID SEM CONTROLE ADO

USUARIO.EXCLUIDOS 27/03/2005 15:43:11
#75193
Ola!,

estou tentando usar o dbgrid mas sem o controle DATA, atraves do banco de dados aberto por código...

naum estou consiguindo, sera q tem como?

estou usando o MS DAO 2.5/3.1 Compatiblity Library

t+
DIOGENES.DIAS 27/03/2005 16:24:21
#75195
Utilize outro controle que não trabalhe vinculado, como o MSFLEXGRID, ou o DATAGRID.

ThatÂÂÂ's All
USUARIO.EXCLUIDOS 27/03/2005 21:37:27
#75227
Ola!,

pode postar como?

t+
LREZANI 28/03/2005 07:17:28
#75242
Este é um exemplo para MHFLEXGRID.

  
Private Sub Form_Load()
Set BD = OpenDatabase("c:\Teste.mdb", False, False, ";pwd=" & "123")
Set rst = BD.OpenRecordset("Tabela", dbOpenSnapshot)

    MSHFlexGrid1.Cols = 11

MSHFlexGrid1.FormatString = "^Documento |<Descrição                 |<Data             |>Entrada            |>Saída            "

DoEvents

While Not rst.EOF
    MSHFlexGrid1.AddItem Format(rst.Fields(3).Value, "000000000") & Chr(9) & _
                         rst.Fields(4).Value & Chr(9) & _
                         rst.Fields(5).Value & Chr(9) & _
                         Format(CStr(rst.Fields(6).Value), "##,###.00") & Chr(9) & _
                         Format(CStr(rst.Fields(7).Value), "##,###.00") & Chr(9) & _
                         rst.Fields(8).Value & Chr(9) & _
                         rst.Fields(9).Value & Chr(9) & _
                         rst.Fields(14).Value & Chr(9) & _
                         rst.Fields(16).Value & Chr(9) & _
                         rst.Fields(18).Value
                         
                         MSHFlexGrid1.Row = rst.AbsolutePosition + 2
                         If UCase(rst.Fields(14).Value) = "CRéDITO" Then
                            MSHFlexGrid1.Col = 3
                            MSHFlexGrid1.CellForeColor = &H8000&
                            MSHFlexGrid1.CellFontBold = True
                            Else
                            MSHFlexGrid1.Col = 4
                            MSHFlexGrid1.CellForeColor = &H80&
                            MSHFlexGrid1.CellFontBold = True
                         End If

    rst.MoveNext

Wend

MsgBox rst.RecordCount


Pode ser adaptado para MSFLEXGRID.
ESPERO TER AJUDADO JULIOHB.
USUARIO.EXCLUIDOS 29/03/2005 14:27:06
#75586
Ola!,

pra ficar mais facil eu apenas quero usar um GRID,
pode ser DataGrid, MsflxGrig, DBGrid, tanto faz, porem quando eu tento atribuir a propriededa datasource do objeto naum consigo...

vejam o código:

Public RS As Recordset
Public DB As Database

Set DB = OpenDatabase(App.Path & "\data.mdb")
SQL = "SELECT * FROM PECA ORDER BY CODIGOPECA"
Set RS = DB.OpenRecordset(SQL)



Referencias: MS DAO 2.5/3.51 Compability Library

peço por favor que me ajudem..

t+

muito obrigado.
USUARIO.EXCLUIDOS 01/04/2005 14:09:48
#76178
Ola!,

utilizaei um controle data

t+
Tópico encerrado , respostas não são mais permitidas
Voltar