Frage : Betrieb wird nicht erlaubt, wenn der Gegenstand geschlossen ist

Ich versuche, eine SQL-Frage von Excel using VB zu benennen und ich erhalte diese Störung, wenn ich versuche, die Resultate vorzuwählen. Kann jemand bitte helfen? 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:

SQL--------------------------------------------
Proc [dbo] ÄNDERN. @parmin [Month_compare2] varchar (7)
wie
@year int, @month int erklären  
@result Tabelle (ivh_revtype1 varchar (10), [Jahr] erklären int, der Name varchar (100), die sum_ivd_charge Hin- und Herbewegung)
@year = 2009 einstellen  
@month einstellen = 06  
wenn @year, verließ <= (@parmin, 4)  
anfangen  
in @result einsetzen
vorwählen   
        h.ivh_revtype1,
		@year,  
		Fall, wenn sie verlassen werden (i.cht_itemcode, 2) wie „LH%“ dann „Kraftstoff-Zuschlag“ Ende „der Linien-Ziehen“ sonst,  
        (auserwählte Summe (i.ivd_charge))   
vom invoicedetail, wie inneres i invoiceheader als h auf i.ivh_hdrnumber = h.ivh_hdrnumber sich anschließen  
wo Monat (h.ivh_deliverydate) = recht (@parmin, 2) und 
	(i.cht_itemcode mögen „LH%“ oder nach links (i.cht_itemcode, 2) = „Rumpfstation ") und  
    Jahr (h.ivh_deliverydate) = @year   
Gruppe durch h.ivh_revtype1, gelassen (i.cht_itemcode, 2)
gesetztes @year = @year + 1  
Ende
--Accessorials
gesetztes @year = 2009  
@month einstellen = 06  
wenn @year, verließ <= (@parmin, 4)   
anfangen  
in @result einsetzen
vorwählen   
        h.ivh_revtype1,
		@year,  
		„Accessorials“,
		(auserwählte Summe (i.ivd_charge))  
vom invoicedetail, wie inneres i invoiceheader als h auf i.ivh_hdrnumber = h.ivh_hdrnumber sich anschließen  
wo Monat (h.ivh_deliverydate) = recht (@parmin, 2) und 
	(i.cht_itemcode nicht mögen „LH%“ und i.cht_itemcode nicht wie „FS%") und  
    Jahr (h.ivh_deliverydate) = @year   
Gruppe durch h.ivh_revtype1
gesetztes @year = @year + 1  
Ende
--Gesamtmengen
gesetztes @year = 2009  
@month einstellen = 06  
wenn @year, verließ <= (@parmin, 4)   
anfangen  
in @result einsetzen
vorwählen   
        h.ivh_revtype1,
		@year,  
		„Beläuft sich“,
		(auserwählte Summe (i.ivd_charge))  
vom invoicedetail, wie inneres i invoiceheader als h auf i.ivh_hdrnumber = h.ivh_hdrnumber sich anschließen  
wo Monat (h.ivh_deliverydate) = recht (@parmin, 2) und   
    Jahr (h.ivh_deliverydate) = @year   
Gruppe durch h.ivh_revtype1
gesetztes @year = @year + 1  
Ende

* vom @result Auftrag durch desc 1.2.3 vorwählen

VB-------------------

Sub Get_Revenue ()
ClearForm benennen
Schwacher Befehl als Schnur
Schwaches parm als Schnur
parm = Sheet1.Range („G7“). Wert
'Ein Verbindungsobjekt verursachen.
SuiteConn einstellen = neues ADODB.Connection
'Die Anschlussschnur zur Verfügung stellen.
strConn als Schnur verdunkeln
'Den SQL-Server ALTEN DB-Versorger benutzen.
strConn = „PROVIDER=SQLOLEDB; “
'An die Datenbank auf Fernbediener anschließen.
strConn = strConn u. „Datenquelle =MyIp; AnfangsCatalog=MyDataBase; “
'Einen integrierten LOGON verwenden.
strConn = strConn u. „INTEGRIERTEN SECURITY=sspi; “
'Den Anschluss jetzt öffnen.
SuiteConn.Open strConn
'Einen recordset Gegenstand verursachen.
rsCas als ADODB.Recordset verdunkeln
rsCas einstellen = neues ADODB.Recordset
'MsgBox parm
Mit rsCas
    'Das Verbindungsobjekt zuweisen.
    .ActiveConnection = SuiteConn
    'Die erforderlichen Aufzeichnungen extrahieren.
        . „Month_compare2 „“ u. parm öffnen u. „“ „
        'Die Aufzeichnungen in Zelle A1 auf Sheet1 kopieren.
        Sheet1.Range („A9“) .CopyFromRecordset rsCas
    . Abschluss
Ende mit
SuiteConn.Close
rsCas einstellen = nichts
RSuiteConn einstellen = nichts
Unterseeboot beenden

Antwort : Betrieb wird nicht erlaubt, wenn der Gegenstand geschlossen ist

Hallo Gehilfe,
Ich verwendete XPO viel vor einigen Jahren und habe noch eine Anwendung auf einem Kunden auf die.

Von meiner Erfahrung arbeitet XPO recht gut, wenn Ihre Fragennotwendigkeiten nicht zu kompliziert sind.
Die Entwicklung ist auch groß, da sie Ihr Schema automatisch herstellt, wenn die Datenbank nicht gefunden wird, aber normalerweise zum Schema gehören etwas Rückstellungsdaten auch und wir beenden Indexe verursachen noch müssen.

Ein anderer Unterschied ist dass XPO Arbeit über die entgegengesetzte Richtung vom meisten ORMs.
Normalerweise ist die ORM Logik, die Datenbank zu verursachen und sie erzeugt die Kategorien, auf XPO verursachen Sie die Kategorien und es erzeugt die Datenbank, die besonders zusammenzubauen Arbeit sein kann viel, wenn das DB und mit vielen Relationen groß ist.

Wesen-Rahmen (EF), ist meiner Meinung nach viel mehr flexibel, wenn er zum Fragen kommt.
XPO auch hat ein Linq zu XPO aber, obgleich es nett schaut, glaubt wie schwereres zu mir.
Die Integration mit SQL-Verfahren und Funktionen ist transparent und die modellierende Ansicht ist Weise besser als als vorhergehendes LINQ zur SQL-Version (die aussehen wie sein Gehen, BTW bald zu sterben).

Auch auf E-F, wird der Code using Schablonen T4 erzeugt, der eine templating Sprache ist.
Sie haben wirklich Zugang zu diesen Schablonen, also können Sie sie, wenn Sie ihn, benötigen mehr Code zu erzeugen, etwas besonders anfertigen, die für Ihr Projekt spezifisch ist.
Sie haben auch Zugang zur ganzer „Tätigkeit“, der ganzer Code werden erzeugt, Sie können alles ausprüfen, das hinter den Kulissen geschieht.

So für mich und als grosser DevX Ventilator, bin ich nicht erfreut, aber ich bevorzuge E-F als XPO.

Ein seitliche Anmerkung tho ist, dass ich auch Unterschall verwende, ein kundenspezifischer Generator, den ich und auch MyGeneration hergestellt habe.
Alle kühlen Textgeber.

Beifall!
Alex
Weitere Lösungen  
 
programming4us programming4us