Vraag : Ik moet manuscript aanpassen VB op SQL Server in werking te stellen

Met succes heeft ontwikkeld manuscript VB om een lijst van Resultaten te creëren (dankzij de hulp van EE), werd het bepaald het moet worden aangepast om in SQL te lopen.  Het manuscript VB is als volgt: 

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 Functie GroupRecords ()

Schemerige SQL als Koord
Schemerige StartDate als Koord
Schemerige rs als Recordset
Schemerige rs2 als Recordset

StartDate = InputBox („te gaan gelieve het jaar en maand dat in het bepalen van de lidverslagen de moet worden gebruikt in.“ & vbCrLf & vbCrLf & „(gebruik het YYYYMM datumformaat.)“, de „Datum van het Begin“)

DoCmd.SetWarnings Vals

Voor I = 0 aan CurrentDb.TableDefs.Count - 1
  Als CurrentDb.TableDefs (I). Naam = „Tmp_Group_Recordset“ toen
      acTable DoCmd.DeleteObject, „Tmp_Group_Recordset“
      Uitgang voor
  Eind als
Daarna

Voor I = 0 aan CurrentDb.TableDefs.Count - 1
  Als CurrentDb.TableDefs (I). Naam = „Tmp_Group_Results“ toen
      acTable DoCmd.DeleteObject, „Tmp_Group_Results“
      Uitgang voor
  Eind als
Daarna

SQL = „UITGEZOCHTE dbo_Source.* IN Tmp_Group_Recordset“
SQL = SQL & „VAN dbo_Source“
SQL = SQL & „WAAR (((dbo_Source.YearMonth) = „“ & StartDate & „“)) „
SQL = SQL & „ORDE DOOR YearMonth; “

DoCmd.RunSQL SQL

SQL = „CRE�ëR LIJST Tmp_Group_Results (varchar (5) Ongeldig ContractNumber, varchar (6) Ongeldig YearMonth, varchar (12) Ongeldig MemberNumber,“
SQL = SQL & „varchar (25) Ongeldig LastName, varchar (25) Ongeldig FirstName, MI varchar (1) Ongeldig,“
SQL = SQL & „DOB Ongeldig Datetime, Ongeldige het geheel van het Geslacht, varchar (9) Ongeldige SSN varchar (25) Ongeldig), van de Status; “

DoCmd.RunSQL SQL

Reeks rs = CurrentDb.OpenRecordset („Tmp_Group_Recordset“)
Reeks rs2 = CurrentDb.OpenRecordset („Tmp_Group_Results“)

rs.MoveFirst
Doe tot rs.EOF
  Voor j = 13 aan rs. Fields.Count - 1
      Als rs (j) = -1 en rs (5) = StartDate toen
        Met rs2
          .AddNew
          ! ContractNumber = rs (3)
          ! YearMonth = rs (5)
          ! MemberNumber = rs (6)
          ! LastName = rs (7)
          ! FirstName = rs (8)
          ! MI = rs (9)
          ! DOB = rs (10)
          ! Geslacht = rs (11)
          ! SSN = rs (12)
          ! Status = rs (j). Naam
          . Update
        Eind met
      Eind als
  Daarna
rs.MoveNext
Lijn
rs. Sluit
rs2.Close

Plaats rs = niets
Plaats rs2 = niets

DoCmd.SetWarnings Waar
 
De Functie van het eind
lijst


The moet de „Tmp_Group_Results“ aangaande de SQL creëren Server, die gegevens direct uit de bron („dbo_Source“) trekken. De bronlijst is REUSACHTIG (miljoenen verslagen). Bovendien, om het totale aantal verslagen in de resultatenlijst te verminderen, ben ik gevraagd om MIN en MAXIMUM op het gebied te vestigen YearMonth, zich groepeert op de andere gebieden. De gebieden die als volgt zijn:

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

While ik met SQL vertrouwd ben, ben ik geen deskundige door enige rek.  Om het even welke hulp ik kan krijgen zou zeer appreciated. zijn

Antwoord : Ik moet manuscript aanpassen VB op SQL Server in werking te stellen

Ik zou moeten vermelden, veronderstelt dit de Dienst van de Server aan Automatisch wordt geplaatst en begonnen.
Andere oplossingen  
 
programming4us programming4us