Scribd
Upload
173 views1 page

Lire Des Fichiers DBF À Partir Du

This VB.NET code displays dBASE files by connecting to a dBASE IV database using an OleDb connection, executing a SQL query to select all records from the specified table, filling a dataset, and binding the dataset to a datagrid to display the table contents. It handles errors by displaying a message if the table cannot be found.

Uploaded by

kzelda
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as RTF, PDF, TXT or read online on Scribd
Download as rtf, pdf, or txt
173 views1 page

Lire Des Fichiers DBF À Partir Du

This VB.NET code displays dBASE files by connecting to a dBASE IV database using an OleDb connection, executing a SQL query to select all records from the specified table, filling a dataset, and binding the dataset to a datagrid to display the table contents. It handles errors by displaying a message if the table cannot be found.

Uploaded by

kzelda
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as RTF, PDF, TXT or read online on Scribd
Download as rtf, pdf, or txt
Download as rtf, pdf, or txt
You are on page 1/ 1

'VB.

NET Create By k++


'Afficher des fichier DBASE (dbf)
Imports System
Imports System.Data
Imports System.Data.OleDb

Private Sub Afficher_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles Afficher.Click
Try
If TB_TABLE.Text = "" Then
Exit Sub
End If

Dim repertoire As String = "c:\ip-pharm\"

Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data


Source='" & repertoire & "';Extended Properties=dBASE IV;User
ID=Admin;Password="

Dim cmd As String = "Select * from " & TB_TABLE.Text

Dim adapter As New OleDbDataAdapter(cmd, conn)

Dim topics As New Data.DataSet

adapter.Fill(topics)

With DataGrid1
.DataSource = topics
.DataBind()
.AutoGenerateColumns = True
End With

Catch ex As Exception
LB_Erreur.Visible = True
LB_Erreur.Text = "La Table '" & TB_TABLE.Text & "' est
introuvable.<br>" & ex.Message
End Try
End Sub

You might also like