Update: Anwendung beendet bei der Tiefe des SHAPE Command untergeordnete Recordset ist groß

Schritte zum Reproduzieren des Verhaltens

1. Starten Sie Visual Basic 6.0. Klicken Sie im Menü Datei auf Neues Projekt . Klicken Sie im Dialogfeld Neues Projekt auf Standard Exe . Standardmäßig wird jetzt Form1 erstellt.
2. Klicken Sie im Menü Projekt auf Verweise . Klicken Sie auf Microsoft ActiveX Data Objects 2.7 Library , und klicken Sie dann auf OK .
3. Doppelklicken Sie auf Form1 , um die Codeansicht für Form_Load zu öffnen. Add the following code to the Form1_Load event.

   Private Sub Form_Load()
      Dim cn As New Connection
      Dim rs As New Recordset
      Dim str As String
      Dim shapestr1  As String
      Dim i As Integer
   
      cn.Open "Provider=MSDataShape;Data Provider=SQLOLEDB;User ID=sa;Persist Security Info=False;Initial Catalog=Northwind;Data source=10.150.144.131"
      
      On Error Resume Next
      
      cn.Execute ("DROP TABLE F1")
      cn.Execute ("CREATE TABLE F1 (id INT PRIMARY KEY, name VARCHAR (255))")
      cn.Execute ("INSERT INTO F1 (id, name) VALUES (1, '11111111111')")
      cn.Execute ("INSERT INTO F1 (id, name) VALUES (2, '22222222222')")
      cn.Execute ("INSERT INTO F1 (id, name) VALUES (3, '33333333333')")
      cn.Execute ("INSERT INTO F1 (id, name) VALUES (4, '44444444444')")
      cn.Execute ("INSERT INTO F1 (id, name) VALUES (5, '55555555555')")
      
      cn.Execute ("DROP TABLE F2")
      cn.Execute ("CREATE TABLE F2 (idx INT PRIMARY KEY, title VARCHAR (255))")
      cn.Execute ("INSERT INTO F2 (idx, title) VALUES (1, '11111111111')")
      cn.Execute ("INSERT INTO F2 (idx, title) VALUES (2, '22222222222')")
      cn.Execute ("INSERT INTO F2 (idx, title) VALUES (3, '33333333333')")
      cn.Execute ("INSERT INTO F2 (idx, title) VALUES (4, '44444444444')")
      cn.Execute ("INSERT INTO F2 (idx, title) VALUES (5, '55555555555')")
      
      On Error GoTo ErrHandler
         
      Dim hapestr1 As String, shapestr2 As String
         
      
      ' Construct SHAPE command
      shapestr1 = "SHAPE {select * from F1} APPEND ("
      shapestr2 = "RELATE id TO id) "
      For i = 2 To 11000
         shapestr1 = shapestr1 + "(SHAPE {select * from F1} APPEND ("
         shapestr2 = "RELATE id TO id)) " + shapestr2
      Next
      shapestr1 = shapestr1 + "{select * from F1} "
      
      shapestr1 = shapestr1 + shapestr2
      
      ' Try to open the recordset
      rs.Open shapestr1, cn, adOpenDynamic, adLockBatchOptimistic, -1
      rs.Close
      
      Exit Sub
      
   ErrHandler:
      MsgBox "Error Number: " & Err.Number
      MsgBox "Error Description: " & Err.Description
      
   End Sub
   

4. Klicken Sie im Menü Ausführen auf Starten .

Zum Anfang