Pytanie : Operacja pozwolić gdy the przedmiot zamykać

I próbować SQL zapytanie od Przodować VB i I dostawać ten błąd gdy I próbować the rezultat. Móc someone pomoc? 
(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--------------------------------------------
ZMIENIAĆ proc [dbo]. [Month_compare2] @parmin varchar (7)

oznajmiać @year int, @month int  
oznajmiać @result stół (ivh_revtype1 varchar (10), [rok] int, imię varchar (100), sum_ivd_charge pławik)
ustawiać @year = 2009  
ustawiać @month = 06  
podczas gdy @year <= opuszczać (@parmin, 4)  
zaczynać  
wszywka w @result
wybiórka   
        h.ivh_revtype1,
		@year,  
		skrzynka gdy (i.cht_itemcode, 2) jak "LH%" wtedy "Kreskowy Łup" inny "Paliwowy Dopłata" końcówka,  
        (wybrany suma (i.ivd_charge))   
od invoicedetail gdy i wewnętrzny łączyć invoiceheader jako h na i.ivh_hdrnumber = h.ivh_hdrnumber  
dokąd miesiąc (h.ivh_deliverydate) = prawy (@parmin, 2) i 
	(i.cht_itemcode lubić "LH%" lub z lewej strony (i.cht_itemcode, 2) = "FS ") i  
    rok (h.ivh_deliverydate) = @year   
grupa h.ivh_revtype1, opuszczać (i.cht_itemcode, 2)
ustalony @year = @year + (1)  
końcówka
--Accessorials
ustalony @year = 2009  
ustawiać @month = 06  
podczas gdy @year <= opuszczać (@parmin, 4)   
zaczynać  
wszywka w @result
wybiórka   
        h.ivh_revtype1,
		@year,  
		"Accessorials",
		(wybrany suma (i.ivd_charge))  
od invoicedetail gdy i wewnętrzny łączyć invoiceheader jako h na i.ivh_hdrnumber = h.ivh_hdrnumber  
dokąd miesiąc (h.ivh_deliverydate) = prawy (@parmin, 2) i 
	(i.cht_itemcode nie lubić "LH%" i i.cht_itemcode nie jak "FS%") i  
    rok (h.ivh_deliverydate) = @year   
grupa h.ivh_revtype1
ustalony @year = @year + (1)  
końcówka
--Suma
ustalony @year = 2009  
ustawiać @month = 06  
podczas gdy @year <= opuszczać (@parmin, 4)   
zaczynać  
wszywka w @result
wybiórka   
        h.ivh_revtype1,
		@year,  
		"Suma,
		(wybrany suma (i.ivd_charge))  
od invoicedetail gdy i wewnętrzny łączyć invoiceheader jako h na i.ivh_hdrnumber = h.ivh_hdrnumber  
dokąd miesiąc (h.ivh_deliverydate) = prawy (@parmin, 2) i   
    rok (h.ivh_deliverydate) = @year   
grupa h.ivh_revtype1
ustalony @year = @year + (1)  
końcówka

wybiórka * od @result rozkaz 1,2,3 desc

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

Okręt podwodny Get_Revenue ()
Wywoławczy ClearForm
Ciemnawy rozkaz Sznurek
Ciemnawy parm Sznurek
parm = Sheet1.Range ("G7"). Wartość
'Tworzyć podłączeniowy przedmiot.
Ustawiać SuiteConn = Nowy ADODB.Connection
'Zapewniać the podłączeniowy sznurek.
Ćmić strConn Sznurek
'Używać the SQL Serwer DOSTAWCA DB Dostawca.
strConn = "PROVIDER=SQLOLEDB; "
'Łączyć the baza danych na daleki serwer.
strConn = strConn & "Dane Source=MyIp; Początkowy Catalog=MyDataBase; "
'Używać zintegrowany nazwa użytkownika.
strConn = strConn & "INTEGROWAĆ SECURITY=sspi; "
'Teraz otwierać the związek.
SuiteConn.Open strConn
'Tworzyć recordset przedmiot.
Ćmić rsCas Jako ADODB.Recordset
Ustawiać rsCas = Nowy ADODB.Recordset
'MsgBox parm
Z rsCas
    'Wyznaczać the Podłączeniowy przedmiot.
    .ActiveConnection = SuiteConn
    'Wydobywać the wymagany rejestr.
        . Otwierać "Month_compare2 "" & parm & "" "
        'Kopiować the rejestr w komórka A1 na Sheet1.
        Sheet1.Range ("A9") .CopyFromRecordset rsCas
    . Zakończenie
Końcówka Z
SuiteConn.Close
Ustalony rsCas = Nic
Ustalony RSuiteConn = Nic
Końcówka Okręt podwodny

Odpowiedź : Operacja pozwolić gdy the przedmiot zamykać

Cześć szturman,
I używać XPO dużo dużo rok temu i wciąż mieć zastosowanie na klient na górze i.

Od mój doświadczenie, XPO pracować dosyć dobrze jeżeli twój zapytanie potrzeba być zbyt kompleks.
The rozmieszczenie być także wielki, gdy ono tworzyć twój schemat automatycznie jeżeli the baza danych znajdować, ale zazwyczaj z the schemat iść niektóre brak dane zbyt i my kończyć wciąż pismo.

Inny różnica być że XPO praca na the inny kierunek najwięcej ORMs.
Zazwyczaj the ORM logika być the baza danych i ono wytwarzać the klasa, na XPO ty tworzyć the klasa i ono wytwarzać the baza danych che móc mnóstwo praca szczególnie jeżeli the DB być duży i z mnóstwo powiązanie.

Jednostka Struktura (EF), w mój opinia być o wiele więcej elastyczny jeśli chodzi o querying.
XPO także mieć Linq XPO ale chociaż ono patrzeć ładny, czuć jak ciężki.
The integracja z SQL Procedura i Funkcja być przejrzysty i the modelarski widok być sposób lepszy poprzedzający LINQ SQL wersja (che patrzeć jak swój wkrótce btw).

Także na EF, the kod wytwarzać using T4 szablon, che być templating język.
Ty właściwie mieć dostęp te szablon więc ty móc jeżeli ty potrzebować ono więcej kod, potrzebować odmianowy dla twój projekt.
Ty także mieć dostęp wszystkie the "akcja", wszystkie the kod wytwarzać, ty móc debug mieć który zdarzać się za the scena.

W Ten Sposób, dla, i jako duży DevX fan, I zadawalać ale I woleć EF XPO.

Boczny notatka tho być że I także używać Poddźwiękowy, obyczajowy generator który I robić i także MyGeneration.
Wszystkie chłodno kod generator.

Otucha!
Alex
Inne rozwiązania  
 
programming4us programming4us