VBA Oracle UTF8
23.02.2006 11:10:42
Aykut
ich habe Probleme Text Dateien, gespeichert in UTF-8 Format,
deren Inhalt z.B. ü, ß, ... enthält ordentlich in der Oracle DB zu speichern.
Die Sonderzeichen werden nicht ordentlich gespeichert.
Wenn ich die Textdateien in ANSI-Format speichere dann klappt es.
Langfristig gesehen werden meine Dateien aber in UTF-8 Format sein,
daher benötige ich die Hilfe.
Derzeit greife ich wie folgt auf die DB zu.
// ----------------------
Function readDBValues() As Boolean
db_url = wsMetaData.Cells(ROW_DB_URL, 2)
db_user = wsMetaData.Cells(ROW_DB_USER, 2)
db_pass = wsMetaData.Cells(ROW_DB_PASSWORD, 2)
Set cnOra = New ADODB.Connection
Set rsOra = New ADODB.Recordset
'Making an ODBC connection according to ADO
conString = "Driver=Oracle in OraHome92; dbq=" + db_url + ";UID=" + db_user + ";PWD=" + db_pass + ";"
cnOra.Open conString
cnOra.Close
readDBValues = True
End Function
// ----------------------
' execute upsert statements
Function executeSQLStatement(sql As String) As Boolean
cnOra.Open conString
rsOra.Open sql, cnOra, adOpenForwardOnly
executeSQLStatement = True
cnOra.Close
End Function
// ----------------------
Was muß ich ändern, damit ich auch UTF-8 Formate in Oracle ordentlich speichern
kann.
Danke, Aykut