ARQUIVOS DBF VISUAL FOX 9

MHDSERAFS 15/09/2011 21:31:25
#384384
Galera, alguem sabe me dizer como abrir um arquivo dbf no datagridview...
grato
ALTAIR148 15/09/2011 21:45:33
#384387 Resposta escolhida
Boa noite,

Amigo faça assim:


 Dim oConn As New OleDbConnection()

        [ô]define a string de conexão com a fonte de dados Northwind.mdb
        oConn.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & caminhopasta & [Ô] ;Extended Properties=dBASE IV;[Ô]
        [ô] Cria uma string de conexão , um data adapter e um data table.
        Dim TableAdapterClientes As New OleDbDataAdapter([Ô]SELECT CODIGO, descricao FROM [Ô] & caminhobd & [Ô]  where descricao like  [ô][Ô] & txtdescricao.Text.ToUpper & [Ô]%[ô] [Ô], oConn)
        Dim tabelaCliente As New DataTable()
        [ô] preenche o adapter com o conteúdo da tabela Customers.
        TableAdapterClientes.Fill(tabelaCliente)
        [ô] Define a fonte de dados para o BindingSource1.
        BindingSource1.DataSource = tabelaCliente

        [ô] Ordena os itens pela cidade ascendente e nome da companhia em ordem descendente
        
        [ô] Define a fonte de dados para o dataGridView1 e o BindingSource1.
        DataGridView1.DataSource = BindingSource1


Agora basta adaptar e testar

Até mais.
MHDSERAFS 15/09/2011 21:47:46
#384390
amigo ... muito obrigado

consegui desta forma:

Dim oConn As New OleDbConnection()
oConn.ConnectionString = [Ô]Provider=VFPOLEDB.1;Data Source=c:\....;Extended Properties=dBase 5.0[Ô]
oConn.Open()
Dim oCmd As OleDbCommand = oConn.CreateCommand()
oCmd.CommandText = [Ô]SELECT * FROM clientes[Ô]
Dim dt As New DataTable()
dt.Load(oCmd.ExecuteReader())
oConn.Close()
DataGridView1.DataSource = dt
ALTAIR148 15/09/2011 21:48:46
#384392
Opa, que bom, conseguiu pesquisando?

Abraços!
Tópico encerrado , respostas não são mais permitidas
Voltar