title image


Smiley ADO VB6: Wieso hat ich keine Rechte zum
Ich greife per ADO auf eine Oracle DB zu. Ich Führe zuerst einen SQL_String aus, der die Daten die einen gewissen Status haben, in eine Exportdatei schreibt. Anschließend sollen diese Daten in einen anderen Status gesetzt werden.



Ich bekomme aber immer die folgende Fehlermeldung:

--------------------------------------------------------------------

Laufzeitfehler '3251':



Das aktuelle Recordset unterstützt keine Akualisierung. Hierbei handelt es sich möglicherweise um eine Einschränkung seitens des Providers oder des gewählten Locktypes.

--------------------------------------------------------------------



Ich denke aber das ich das Recordset richtig geöffnet habe. Oder nicht. Anbei einmal das Coding:







' *** Aufbau der Datenbankverbindung

Public Sub DB_Connection()

    



    Dim Userkrypt As String

    Dim Passwortkrypt As String

    Dim User As String

    Dim Passwort As String

    Dim FileNum As Integer

    Dim filename As String

    

    User = "asdf"

    Passwort = "123456"



    ' *** Aufbau der DB Verbindung

    Set db = New Connection

            

    ' *** Festlegen des Connection String

    Dim ConnectionString As String

    ConnectionString = "Provider=MSDAORA.1;Password=" _

                        & Passwort _

                        & ";User ID=" _

                        & User _

                        & ";Data Source=tns:powerpc"

                        ';Persist Security Info=false;DisableBind=1"

    

    ' *** Öffnen des Connection String

    db.Open ConnectionString

           

    ' *** Definieren des Recordset

    Set adoRecordset = New Recordset

    Sql_String = "SELECT tele_txt1, status FROM zztele1 WHERE status = '30'" & _

                 "ORDER BY kv_lief, satzart, sendpos"

    'adoRecordset.Open Sql_String, db, adOpenStatic, adLockOptimistic

    adoRecordset.Open Sql_String, db, adOpenDynamic, adLockPessimistic

    

    FileNum = FreeFile

    

    filename = "P:\t\CHD550\" & Format(Now, "mmddhhmm") & ".txt"

    Open filename For Append As FileNum

    

    Do Until adoRecordset.EOF

      Print #FileNum, adoRecordset.Fields("tele_txt1").Value

      'adoRecordset.Fields("status").Value = "91"

      adoRecordset.Update ("status"), "90"

      

      adoRecordset.MoveNext

    Loop

      Close FileNum

    

   MsgBox "fertig1"

   

   adoRecordset.MoveFirst

      

   adoRecordset.Close

   db.Close

      

End Sub





Code eingefügt mit Syntaxhighlighter 2.1












 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: