Hallo zusammen,
ich möchte aus einer Exceltabelle bestimmte Wert auslesen - soweit
kein Problem - und diese Werte dann in eine Oracletabelle schreiben -
was für mich ein Problem ist-.
Kennt einer eine Möglichkeit dieses zu tun.
Das Problem bei der Sache ist, dass keine CSV-Datei genutz werden
kann, da keine Möglichkeit besteht diese auf den Datenbankserver zu
übertragen. Ausserdem kann an dem ausführenden Rechner keine
Konfiguration von TNSnames-Einträgen usw. vorausgesetzt werden.
Vielen Dank vorab
Ein Freund hat mir folgendes Statment geschrieben - funktioniert aber
leider nicht- :
Private Sub CommandButton1_Click()
Dim oCN As ADODB.Connection ' Object
Dim oRS As ADODB.Recordset 'object
Dim sService As String
Dim sUser As String
Dim sPwd As String
Dim sVerbindung As String
Dim sSQL As String
Dim iZeile As Integer
sService = Sheets("Tabelle1").Range("B1").Value
sUser = Sheets("Tabelle1").Range("B2").Value
sPwd = Sheets("Tabelle1").Range("B3").Value
sVerbindung = Sheets("Tabelle1").Range("B5").Value
sSQL = Sheets("Tabelle1").Range("B6").Value
Set oCN = CreateObject("adodb.connection")
Call oCN.Open(sVerbindung) ', "test", "test")
Set oRS = CreateObject("ADODB.Recordset")
oRS.ActiveConnection = oCN
Call oRS.Open(sSQL)
iZeile = 12
While Not oRS.EOF
Sheets("Tabelle1").Range("A" & iZeile).Value =
oRS.Fields(0).Value
iZeile = iZeile + 1
oRS.MoveNext
Wend
Call oRS.Close
End Sub
MIT DEN VERBINDUNGSDATEN:
Servicenameorcl
Usernametest
Passwort (Klartext)test
Verbindungfiledsn=c:\test.dsn
SQLSelect shapetext from NeuTabelle where shapeText <> ""
Es scheint so, dass die Datei test.dsn probleme bereitet.
|