Vraag : De verrichting wordt niet toegestaan wanneer het voorwerp wordt gesloten

Ik probeer om een SQL vraag van Excel te roepen gebruikend VB en ik krijg deze fout wanneer ik probeer om de resultaten te selecteren. Kan iemand alstublieft helpen?
" codeBody " 
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:
36:
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
VERANDER proc [dbo]. [Month_compare2] varchar @parmin (7)
zoals
verklaar @year int., @month int.  
verklaar @result lijst (ivh_revtype1 varchar (10), [jaar] int., noemen varchar (100), sum_ivd_charge vlotter)
plaats @year = 2009  
plaats @month = 06  
terwijl @year <= wegging (@parmin, 4)  
begin  
tussenvoegsel in @result
selecteer   
        h.ivh_revtype1,
		@year,  
		geval wanneer verlaten (i.cht_itemcode, 2) als eind van de Brandstof van de „Afstand van de Lijn“ van „LH%“ toen het anders van de „Toeslag“,  
        (uitgezochte som (i.ivd_charge))   
van invoicedetail als I binnen treed invoiceheader toe als h op i.ivh_hdrnumber = h.ivh_hdrnumber  
waar maand (h.ivh_deliverydate) = juist (@parmin, 2) en 
	(i.cht_itemcode als „LH%“ of weggegaan (i.cht_itemcode, 2) = „FS“) en  
    jaar (h.ivh_deliverydate) = @year   
de groep door h.ivh_revtype1, ging weg (i.cht_itemcode, 2)
vastgesteld @year = @year + 1  
eind
--Accessorials
vastgesteld @year = 2009  
reeks @month = 06  
terwijl @year <= wegging (@parmin, 4)   
begin  
tussenvoegsel in @result
selecteer   
        h.ivh_revtype1,
		@year,  
		„Accessorials“,
		(uitgezochte som (i.ivd_charge))  
van invoicedetail als I binnen treed invoiceheader toe als h op i.ivh_hdrnumber = h.ivh_hdrnumber  
waar maand (h.ivh_deliverydate) = juist (@parmin, 2) en 
	(i.cht_itemcode als „geen LH%“ en i.cht_itemcode als „geen FS%“) en  
    jaar (h.ivh_deliverydate) = @year   
groep door h.ivh_revtype1
vastgesteld @year = @year + 1  
eind
--Totalen
vastgesteld @year = 2009  
reeks @month = 06  
terwijl @year <= wegging (@parmin, 4)   
begin  
tussenvoegsel in @result
selecteer   
        h.ivh_revtype1,
		@year,  
		„Totalen“,
		(uitgezochte som (i.ivd_charge))  
van invoicedetail als I binnen treed invoiceheader toe als h op i.ivh_hdrnumber = h.ivh_hdrnumber  
waar maand (h.ivh_deliverydate) = juist (@parmin, 2) en   
    jaar (h.ivh_deliverydate) = @year   
groep door h.ivh_revtype1
vastgesteld @year = @year + 1  
eind

selecteer * uit @resultorde door desc 1.2.3

VB

Sub Get_Revenue ()
Vraag ClearForm
Schemerig bevel als Koord
Schemerige parm als Koord
parm = Sheet1.Range („G7“). Waarde
'Cre�ër een verbindingsvoorwerp.
Plaats SuiteConn = Nieuwe ADODB.Connection
'Verstrek het verbindingskoord.
Verduister strConn als Koord
'Gebruik de SQL van de Server Leverancier van ole- OB.
strConn = „PROVIDER=SQLOLEDB; “
'Verbind met het gegevensbestand op verre server.
strConn = strConn & „Gegevens Source=MyIp; Aanvankelijke Catalog=MyDataBase; “
'Gebruik geïntegreerdek login.
strConn = strConn & „GEÏNTEGREERDET SECURITY=sspi; “
'Open nu de verbinding.
SuiteConn.Open strConn
'Cre�ër een recordsetvoorwerp.
Verduister rsCas als ADODB.Recordset
Plaats rsCas = Nieuwe ADODB.Recordset
'MsgBox parm
Met rsCas
    'Wijs het voorwerp van de Verbinding toe.
    .ActiveConnection = SuiteConn
    'Uittreksel de vereiste verslagen.
        . Open „Month_compare2 „“ & parm & „“ „
        'Exemplaar de verslagen in cel A1 op Sheet1.
        Sheet1.Range („A9“) rsCas .CopyFromRecordset
    . Sluit
Eind met
SuiteConn.Close
Vastgestelde rsCas = niets
Vastgestelde RSuiteConn = niets
Sub van het eind

Antwoord : De verrichting wordt niet toegestaan wanneer het voorwerp wordt gesloten

Hallo partner,
Ik gebruikte een XPO een paar jaar geleden en heb nog een toepassing op een klant bovenop dat.

Vanuit mijn ervaring, vrij goed werkt XPO als uw vraagbehoeften niet te complex zijn.
De plaatsing is ook groot, aangezien het tot uw schema automatisch leidt als het gegevensbestand niet wordt gevonden, maar gewoonlijk met het schema gaat ook sommige standaardgegevens en wij beëindigen nog het moeten manuscripten creëren.

Een ander verschil is dat werk XPO aangaande de tegenovergestelde richting van het meeste ORMs.
Gewoonlijk moet de logica ORM het gegevensbestand creëren en het zal de klassen produceren, op XPO cre�ërt u de klassen en het produceert het gegevensbestand dat heel wat werk kan zijn speciaal te vormen als OB en met heel wat relaties groot is.

Het Kader van de entiteit (EF), naar mijn mening is veel meer flexibel wanneer het over het vragen komt.
XPO heeft ook een Linq aan XPO maar hoewel het, voelt als zwaarder aan me aardig kijkt.
De integratie met SQL Procedures en Functies is transparant en de modelleringsmening is manier beter dan dan vorige LINQ aan SQL versie (die als zijn het gaan spoedig sterven btw kijkt).

Ook op EF, wordt de code geproduceerd gebruikend T4 malplaatjes, die een templating taal is.
U hebt eigenlijk toegang tot deze malplaatjes zodat kunt u hen aanpassen als u het nodig hebt om meer code, iets te produceren specifiek voor uw project.
U hebt ook toegang tot al „actie“, wordt al code geproduceerd, kunt u alles zuiveren die achter de scènes gebeurt.

Zo, voor me, en als grote ventilator DevX, ben ik niet tevreden maar ik verkies EF dan XPO.

Een zijnotatho is dat ik ook Subsoon gebruik, een douanegenerator die ik en ook MyGeneration heb gemaakt.
Allen koelen codegenerators.

Juicht toe!
Alex
Andere oplossingen  
 
programming4us programming4us