Frage : Ich muss VB Index Durchlauf auf SQL-Server anpassen

VB Index erfolgreich, entwickelnd, um eine Resultatstabelle (dank EE-Unterstützung) entschlossen, war es herzustellen es muss Durchlauf in SQL angepasst werden.  Der VB Index ist, wie folgt: 

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:

Public Funktion GroupRecords ()

Schwacher SQL als Schnur
Schwaches StartDate als Schnur
Schwache rs als Recordset
Schwaches rs2 als Recordset

StartDate = InputBox („das wenn Sie feststellen verwendet zu werden Jahr und den Monat bitte erreichen, die Mitgliedsaufzeichnungen.“ u. vbCrLf u. vbCrLf u. „(das YYYYMM Datumformat verwenden.),“, „Anfangsdatum“)

DoCmd.SetWarnings falsch

Für i = 0 zu CurrentDb.TableDefs.Count - 1
  Wenn CurrentDb.TableDefs (i). Name = „Tmp_Group_Recordset“ dann
      DoCmd.DeleteObject acTable, „Tmp_Group_Recordset“
      Für herausnehmen
  Beenden wenn
Zunächst

Für i = 0 zu CurrentDb.TableDefs.Count - 1
  Wenn CurrentDb.TableDefs (i). Name = „Tmp_Group_Results“ dann
      DoCmd.DeleteObject acTable, „Tmp_Group_Results“
      Für herausnehmen
  Beenden wenn
Zunächst

SQL = „AUSERWÄHLTE dbo_Source.* IN Tmp_Group_Recordset“
SQL = SQL u. „vom dbo_Source“
SQL = SQL u. „, WO (((dbo_Source.YearMonth) = „“ u. StartDate u. „")) „
SQL = SQL u. „AUFTRAG DURCH YearMonth; “

DoCmd.RunSQL SQL

SQL = „STELLEN TABELLE Tmp_Group_Results her (ContractNumber varchar (5) Null, YearMonth varchar (6) Null, MemberNumber varchar (12) Null,“
SQL = SQL u. „LastName varchar (25) Null, FirstName varchar (25) Null, MI varchar (1) Null,“
Sql-= SQL-u. „DOB-Datum/Uhrzeit-Null, Geschlechtsganze zahl Null, SSN varchar (9) Null, Status-varchar (25) Null); “

DoCmd.RunSQL SQL

Rs = CurrentDb.OpenRecordset („Tmp_Group_Recordset“) einstellen
Einstellen rs2 = CurrentDb.OpenRecordset („Tmp_Group_Results“)

rs.MoveFirst
Tun bis rs.EOF
  Für J = 13 zu den rs. Fields.Count - 1
      Wenn rs (j) = -1 und rs (5) = StartDate dann
        Mit rs2
          .AddNew
          ! ContractNumber = rs (3)
          ! YearMonth = rs (5)
          ! MemberNumber = rs (6)
          ! LastName = rs (7)
          ! FirstName = rs (8)
          ! MI = rs (9)
          ! DOB = rs (10)
          ! Geschlecht = rs (11)
          ! SSN = rs (12)
          ! Status = rs (j). Name
          . Update
        Ende mit
      Beenden wenn
  Zunächst
rs.MoveNext
Schleife
rs. Abschluss
rs2.Close

Rs einstellen = nichts
Einstellen rs2 = nichts

DoCmd.SetWarnings zutreffend
 
Enden-Funktion


The Hoffnung ist, die „Tmp_Group_Results“ Tabelle auf dem SQL-Server herzustellen und zieht Daten direkt von der Quelle („dbo_Source“). Die Quelltabelle ist- SEHR GROSS (Millionen Aufzeichnungen). Zusätzlich die Gesamtzahl Aufzeichnungen in der Resultatstabelle vermindern, bin ich gebeten worden, eine MINUTE und ein max auf dem YearMonth Feld herzustellen, gruppierend auf den anderen Feldern. Die Felder, die sind, wie folgt:

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

While, das ich mit SQL, ich vertraut bin, sind nicht ein Experte durch irgendeine Ausdehnung.  Jede mögliche Hilfe, die ich erhalten kann, würde groß appreciated. sein

Antwort : Ich muss VB Index Durchlauf auf SQL-Server anpassen

Ich sollte erwähnen, annimmt dieses s, dass der Bediener-Service auf automatisches eingestellt und begonnen.
Weitere Lösungen  
 
programming4us programming4us