Pytanie : I potrzebować VB pismo na SQL Serwer

Pomyślnie rozwijać VB pismo Rezultat stół (dzięki EE pomoc), ono ustalać ono potrzebować adaptować w SQL.  The VB pismo być podążać: 

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:

Public Funkcja GroupRecords ()

Ciemnawy SQL Sznurek
Ciemnawy StartDate Sznurek
Ciemnawy rs Jako Recordset
Ciemnawy rs2 Jako Recordset

StartDate = InputBox ("Zadawalać wchodzić do the rok i miesiąc w the członek rejestr." & vbCrLf & vbCrLf & "(Używać the YYYYMM daktylowy format.)", "Data Początkowa")

DoCmd.SetWarnings Fałszywy

Dla i = (0) CurrentDb.TableDefs.Count - (1)
  Jeżeli CurrentDb.TableDefs (i). Imię = "Tmp_Group_Recordset" Wtedy
      DoCmd.DeleteObject tmp_Group_Recordset, "Tmp_Group_Recordset"
      Wyjście Dla
  Kończyć Jeżeli
Następnie

Dla i = (0) CurrentDb.TableDefs.Count - (1)
  Jeżeli CurrentDb.TableDefs (i). Imię = "Tmp_Group_Results" Wtedy
      DoCmd.DeleteObject tmp_Group_Results, "Tmp_Group_Results"
      Wyjście Dla
  Kończyć Jeżeli
Następnie

SQL = "WYBRANY dbo_Source.* W Tmp_Group_Recordset"
SQL = SQL & "OD dbo_Source"
SQL = SQL & "DOKĄD (((dbo_Source.YearMonth) = "" & StartDate & "")) "
SQL = SQL & "ROZKAZ YearMonth; "

DoCmd.RunSQL SQL

SQL = "TWORZYĆ STOŁOWY Tmp_Group_Results (ContractNumber varchar (5) Nieobowiązujący, YearMonth varchar (6) Nieobowiązujący, MemberNumber varchar (12) Nieobowiązujący,"
SQL = SQL & "LastName varchar (25) Nieobowiązujący, FirstName varchar (25) Nieobowiązujący, MI varchar (1) Nieobowiązujący,"
SQL = SQL & "DOB Status Nieobowiązujący, Rodzaj integer Nieobowiązujący, SSN varchar (9) Nieobowiązujący, Status varchar (25) Nieobowiązujący); "

DoCmd.RunSQL SQL

Ustalony rs = CurrentDb.OpenRecordset ("Tmp_Group_Recordset")
Set rs2 = CurrentDb.OpenRecordset ("Tmp_Group_Results")

rs.MoveFirst
Do rs.EOF
  Dla j = 13 Rs. Fields.Count - (1)
      Jeżeli rs (j) = -1 I rs (5) = StartDate Wtedy
        Z rs2
          .AddNew
          ! ContractNumber = rs (3)
          ! YearMonth = rs (5)
          ! MemberNumber = rs (6)
          ! LastName = rs (7)
          ! FirstName = rs (8)
          ! MI = rs (9)
          ! DOB = rs (10)
          ! Rodzaj = rs (11)
          ! SSN = rs (12)
          ! Status = rs (j). Imię
          . Aktualizacja
        Końcówka Z
      Kończyć Jeżeli
  Następnie
rs.MoveNext
Pętla
rs. Zakończenie
rs2.Close

Ustalony rs = Nic
Set rs2 = Nic

DoCmd.SetWarnings Prawdziwy
 
Końcówka Funkcja


The nadzieja być the "Tmp_Group_Results" stół na the SQL Serwer, dane bezpośrednio od the źródło ("dbo_Source"). The źródło stół być OGROMNY (milion rejestr). Dodatkowo, the sumaryczny liczba rejestr w the rezultat stół, I pytać MINUTA i MAX na the YearMonth pole, grupować na the inny pole. The pole podążać:

ContractNumber
YearMonth
MemberNumber
LastName
FirstName
MI
DOB
Gender
SSN
Status
FromDate
ToDate

While I być znajomy z SQL, I być ekspert jakaś rozciągliwość.  Jakaś pomoc I móc być ogromnie appreciated.

Odpowiedź : I potrzebować VB pismo na SQL Serwer

I musieć, zakładać the Serwer Usługa ustawiać Automatyczny i zaczynać.
Inne rozwiązania  
 
programming4us programming4us