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...
Grazie Mille e Buona giornatacodice: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" ...

Rispondi quotando