Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ado fehlermeldung "abfrage zu komplex"
Autor: _-]]] DJ.K [[[-_
Datum: 31.03.04 08:57
hallo leute, ich hab da so n schäbbiges problem .... ich schreib gerade ein prog das mit 3 verschiedenen ado steuerelementen und 2 winsockets arbeitet soweit so gut meine ado's heißen recordset,recordset1 und recordset2 das problem istr folgendes ich habe beim recordset1 drei textfelder die je die gleiche spalte der tabelle einer datenbank bearbeiten ... nennen wir sie mal kg die drei textfelder sollen nacheinander beschriftet werden und jedes für sich einen neuen datensatz erstellen mit den daten die in das ans ado gebundene textfeld vom winsocket geschrieben werden ... nur sobald von winsocket die daten gesendet werden werden alle textfelder mit diesem daten vollgeschrieben und recordset1 versucht alle gleichzeitig anzulegen .... und so entsteht der fehler abfrage zu komplex .... hier der ausschnitt des quelltextes ... ich kann da soweit keinen fehler entdeken ... ----------------------------- Option Explicit Dim intMax As Integer Dim Kg_Lieferfertig As String Dim x As String Dim l As Integer Dim r As String Private Sub Form_Load() frm3rollen.Text4.Text = " " frm3rollen.Text2.Text = " " frm3rollen.Text3.Text = " " frm3rollen.txtFields(17) _ = frmKopievonERFURT_PRISM.datPrimaryRS.Recordset.Fields("ORDNO") frm3rollen.txtFields(16) _ = frmKopievonERFURT_PRISM.datPrimaryRS.Recordset.Fields("TNKN") frm3rollen.txtFields(27) _ = frmKopievonERFURT_PRISM.datPrimaryRS.Recordset.Fields("ABRUF") txtauftrag = frmmoeglichkeit1.txtauftrag intMax = 1 'Auf die Verbindung warten: wiso_1(0).LocalPort = 1001 wiso_1(0).Listen End Sub Private Sub wiso_1_ConnectionRequest(Index As Integer, ByVal requestID As Long) 'Wenn sich ein neuer Client einloggt: If Index = 0 Then intMax = intMax + 1 Load wiso_1(intMax) 'Erstellt neues Winsock-Control wiso_1(intMax).LocalPort = 1001 wiso_1(intMax).Accept requestID End If End Sub Private Sub wiso_1_DataArrival(Index As Integer, ByVal bytesTotal As Long) 'Wenn einer der Clienten einen Text sendet: Dim data As String Dim i As Integer wiso_1(Index).GetData data 'ab hier wirds wichtig If l = 0 Then frm3rollen.Texta.Text = Val(data) frm3rollen.Textb.Text = "" frm3rollen.Textc.Text = "" frm3rollen.Text4.Text = Val(data) frm3rollen.Text2.Text = "" frm3rollen.Text3.Text = "" If frm3rollen.Text4.Text = Val(data) Then datPrimaryRS1.Recordset.AddNew '<---<<< hier tritt der fehler auf End If End If If l = 1 Then frm3rollen.Text2.Text = Val(data) frm3rollen.Textb.Text = Val(data) If frm3rollen.Text2.Text = Val(data) Then datPrimaryRS1.Recordset.AddNew End If End If If l = 2 Then frm3rollen.Text3.Text = Val(data) frm3rollen.Textc.Text = Val(data) If frm3rollen.Text3.Text = Val(data) Then datPrimaryRS1.Recordset.AddNew End If l = -1 End If l = l + 1 End Sub Private Sub cmdende_Click() frm3rollen.Hide Unload Me 'Schließt frm3rollen End Sub Private Sub datPrimaryRS1_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 'Hier können Sie Ihre Fehlerbehandlungsroutine einfügen 'Wenn Sie Fehler ignorieren möchten, kommentieren Sie die nächste Zeile aus 'Wenn Sie die Fehler auffangen möchten, fügen Sie an dieser Stelle Code ein, um Fehler zu behandeln MsgBox "Data error event hit err:" & Description End Sub Private Sub datPrimaryRS1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'Hierdurch wird die aktuelle Datensatzposition für diese Datensatzgruppe angezeigt datPrimaryRS1.Caption = "Record: " & CStr(datPrimaryRS1.Recordset.AbsolutePosition) End Sub Private Sub datPrimaryRS1_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'Hier können Sie Code zur Überprüfung einfügen 'Dieses Ereignis wird aufgerufen, wenn die folgenden Aktionen eintreten Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub hey ho letz go

ado fehlermeldung "abfrage zu komplex"

651

_-]]] DJ.K [[[-_

31.03.04 08:57

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen