Buon giorno a tutti.
Il mio problema è questo:
Devo caricare in una combobox l'elenco dei comuni relativi ad una provincia che risiedono in un file dbf TeleAtlas; la codifica utilizzata dal DBF dovrebbe essere UTF-8
Utilizzo una connessione OLEDB e tutto funziona correttamente se nn fosse che i caratteri accentati vengono sostituiti da altri caratteri.
Ho cercato un po' nel web e nel forum, ma non ho trovato soluzioni a riguardo.
Ecco qui il mio codice...
codice:
Try
Dim SelectedConn As OleDb.OleDbConnection
Dim workDa As OleDb.OleDbDataAdapter
Dim workDT As DataTable
'Percorso del file
Dim DbfDirectory As String = "C:\"
'Nome del file DBF
Dim DbfFile As String = "DBFComuni.dbf"
'Creo la connessione ADO al database cartografico del layer
SelectedConn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DbfDirectory & _
";Extended Properties=dBASE IV;User ID=Admin;Password=;Locale Identifier = 1040;")
'Oppure: SelectedConn = New OleDb.OleDbConnection("Provider=VFPOLEDB.1;Data Source=" & DbfDirectory & "\" & DbfFile)
'Eseguo la select
workDa = New OleDb.OleDbDataAdapter("SELECT DISTINCT " & SelectedProv.FieldComune & " FROM " & DbfFile, SelectedConn)
workDT = New DataTable
'Apro il recordset
SelectedConn.Open()
'Passo da recordset ADO ad una DataTable
workDa.Fill(workDT)
'Chiudo il recordset
workDa.Dispose()
SelectedConn.Close()
cboComuni.SelectedIndex = -1
cboComuni.Items.Clear()
cboComuni.DataSource = workDT
cboComuni.DisplayMember = "COMUNE"
...
Grazie Mille e Buona giornata