1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Dim NomColonne As String = "email"
Using cn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =d:\data\personnes\personnes.accdb")
Try
Dim sqlBuilder As OleDbCommandBuilder = New OleDbCommandBuilder()
sqlBuilder.QuotePrefix = "[" ' définition obligatoire
sqlBuilder.QuoteSuffix = "]"
Using cmd As New OleDbCommand(String.Format("select {0} from personnes ", sqlBuilder.QuoteIdentifier(NomColonne)), cn)
cn.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader
If reader.HasRows Then
Do While reader.Read()
If Not reader.IsDBNull(0) Then MessageBox.Show(reader.GetString(0))
Loop
End If
reader.Close()
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Using |
Partager