DBF EM GRID
Olá...
Eu Criei uma tabela (as recordset ) que pega os dados de um select feito de um arquivo .dbf
gostaria de saber se é possÃvel exibir em um Grid esta tabela ou o resultado da seleção executada
Obrigado
Eu Criei uma tabela (as recordset ) que pega os dados de um select feito de um arquivo .dbf
gostaria de saber se é possÃvel exibir em um Grid esta tabela ou o resultado da seleção executada
Obrigado
DAO
Acopla um data ao grid e faça
set DATA1.RECORDSET = RS
ADO
set GRID.DATASOURCE = RS
Acopla um data ao grid e faça
set DATA1.RECORDSET = RS
ADO
set GRID.DATASOURCE = RS
Pode colocar um treçho do código?
Usando ADO não daria faça assim, nem precisa de DATA
Function OpenDBFConn(Path)
Dim Conn As Connection
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Path & ";" & _
"Extended Properties=""DBASE IV;"";"
Set OpenDBFConn = Conn
End Function
Dim DBConn As Connection
Set DBConn = OpenDBFConn("C:\cartoes")
Dim Cartoes As Recordset
Set Cartoes = DBConn.Execute("Select * from [Cartoes#DBF]")
Set Tabela.datasource = Cartoes
Tabela.refresh
Function OpenDBFConn(Path)
Dim Conn As Connection
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Path & ";" & _
"Extended Properties=""DBASE IV;"";"
Set OpenDBFConn = Conn
End Function
Dim DBConn As Connection
Set DBConn = OpenDBFConn("C:\cartoes")
Dim Cartoes As Recordset
Set Cartoes = DBConn.Execute("Select * from [Cartoes#DBF]")
Set Tabela.datasource = Cartoes
Tabela.refresh
Em qual linha dá este erro
Se lembra que eu disse que o DBGrid é dao
Use o FlexGrid ou o Hieraquical
Use o FlexGrid ou o Hieraquical
Vou fazer aqui um exemplo e te envio
Nunca usei DBF com ADO mas faça e veja o que aparece na msgbox
Private Sub Command3_Click()
'Abrir recordset da Tabela Persons
Dim DBConn As Connection
Set DBConn = OpenDBFConn("C: estes")
Dim Persons As ADODB.Recordset
Set Persons = DBConn.Execute("Select * from [Persons#DBF]")
msgbox Persons.Recordcount
Set FlexGrid1.DataSource = Persons
End Sub
Private Sub Command3_Click()
'Abrir recordset da Tabela Persons
Dim DBConn As Connection
Set DBConn = OpenDBFConn("C: estes")
Dim Persons As ADODB.Recordset
Set Persons = DBConn.Execute("Select * from [Persons#DBF]")
msgbox Persons.Recordcount
Set FlexGrid1.DataSource = Persons
End Sub
Apenas configurando ela, senão é igual a tradicional. pode usar normalmente.
Tópico encerrado , respostas não são mais permitidas