Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
John Doe 1988
0 / 0 / 0
Регистрация: 11.07.2019
Сообщений: 1
1

Макрос отправляющий данные в БД Access не отрабатывает из-за большого количества данных

11.07.2019, 15:38. Просмотров 1740. Ответов 2

Добрый день,

Просьба подсказать, есть ли ограничения у VBA по количеству отправляемых данных в столбцы БД?

Если делать процедуру короче (укорачивать отправляемые данные), то отрабатывает, можно ли как то решить данную проблему (Ошибка синтаксиса в инструкции Insert Into) без разбивки на несколько макросов?

Visual Basic
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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
Sub Export()
 
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
With Con
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=C:\Users\Desktop\Base.mdb;Persist Security Info=True;Jet OLEDB:Database Password=1"
    .Open
End With
Dim Cmd As ADODB.Command
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = Con
Cmd.CommandText = "insert into [Valuer] (DateInput,TimeInput,ExpertDZODoExpertise,AppraisalCompany,OrganizationalForm,EvaluationReportNumber,EvaluationReportDate, " _
& "ObjectLocation,TypeOfPropertyAccordingColvir,ObjectOfEvaluation,TypeValue,CustomerEvaluation,EvaluationOwner,ChamberOfAppraiser,CertificateOfMembershipChamberOfAppraisers, " _
& "CertificateOfEvaluator,MarketPriceByAppraiser,ReportFlashedStamped,ReportFlashedStampedComment,ReportNumbered,ReportNumberedComment,ReportInitialed,ReportInitialedComment,ReportName, " _
& "ReportNameComment,ReportNumber,ReportNumberComment,ReportDate,ReportDateComment,ObjectNameLocation,ObjectNameLocationComment,EvaluationDate,EvaluationDateComment,PurposeVerification, " _
& "PurposeVerificationComment,TypeValueVerification,TypeValueVerificationComment,CustomerData,CustomerDataComment,AppraiserData,AppraiserDataComment,ExecutiveData,ExecutiveDataComment, " _
& "NumberDateOfValuationAgreement,NumberDateOfValuationAgreementComment,NameObjectOfValuation,NameObjectOfValuationComment,ObjectOwner,ObjectOwnerComment,ObjectLocationCheck,ObjectLocationCheckComment, " _
& "RightsValuated,RightsValuatedComment,TypeOfValuation,TypeOfValuationComment,IdentificationOfObject,IdentificationOfObjectComment,DeterminingTypeOfValue,DeterminingTypeOfValueComment,AppraiserName,AppraiserNameComment, " _
& "IndividualIdentificationNumber,IndividualIdentificationNumberComment,AppraiserLocation,AppraiserLocationComment,AppraiserNumber&Data,AppraiserNumber&DataComment,ChamberOfAppraisersName,ChamberOfAppraisersNameComment, " _
& "DetailsOfPropertySecurity,DetailsOfPropertySecurityComment,NameOfLegalEntityRequisites,NameOfLegalEntityRequisitesComment,AssumptionsRestrictiveConditions,AssumptionsRestrictiveConditionsComment, " _
& "LegislationAppraisalActivityUsed,LegislationAppraisalActivityUsedComment,SourceOfDataUsedAssessment,SourceOfDataUsedAssessmentComment,TermsDefinitionsUsedInReport,TermsDefinitionsUsedInReportComment, " _
& "DateOfInspectionObject,DateOfInspectionObjectComment,Characteristics&StateOfObject,Characteristics&StateOfObjectComment,ObjectComposition,ObjectCompositionComment,ObjectPurposeCurrentUse,ObjectPurposeCurrentUseComment,ObjectLocationDescription,ObjectLocationDescriptionComment,ObjectDescription,ObjectDescriptionComment,MarketReview,MarketReviewComment,MarketActivityReview,MarketActivityReviewComment,IndustryReview,IndustryReviewComment,CostApproach,CostApproachComment,ComparativeApproach,ComparativeApproachComment,IncomeApproach,IncomeApproachComment,AssessmentMethodology,AssessmentMethodologyComment,RationaleForChoiceApproachesMethods,RationaleForChoiceApproachesMethodsComment,DescriptionOfAssessmentProcessUsingApproaches,DescriptionOfAssessmentProcessUsingApproachesComment,MatchingSelectedMethods,MatchingSelectedMethodsComment, " _
& "PresenceOfErrorsInSection,PresenceOfErrorsInSectionComment,CoordinationOfEvaluationResults,CoordinationOfEvaluationResultsComment,AmountInWordsIsCorrect,AmountInWordsIsCorrectComment,InspectionDate,InspectionDateComment,Address,AddressComment,DescriptionOfMainCharacteristics,DescriptionOfMainCharacteristicsComment,AdditionalDescription,AdditionalDescriptionComment,Condition,ConditionComment,AppraiserSignature,AppraiserSignatureComment,CustomerSignature,CustomerSignatureComment,ClearPhotoOfObject,ClearPhotoOfObjectComment,LinksToAdvertasment,LinksToAdvertasmentComment,Readability,ReadabilityComment) values " _
& "(@DateInput,@TimeInput,@ExpertDZODoExpertise,@AppraisalCompany,@OrganizationalForm,@EvaluationReportNumber,@EvaluationReportDate,@ObjectLocation,@TypeOfPropertyAccordingColvir, " _
& "@ObjectOfEvaluation,@TypeValue,@CustomerEvaluation,@EvaluationOwner,@ChamberOfAppraiser,@CertificateOfMembershipChamberOfAppraisers,@CertificateOfEvaluator,@MarketPriceByAppraiser, " _
& "@ReportFlashedStamped,@ReportFlashedStampedComment,@ReportNumbered,@ReportNumberedComment,@ReportInitialed,@ReportInitialedComment,@ReportName,@ReportNameComment,@ReportNumber, " _
& "@ReportNumberComment,@ReportDate,@ReportDateComment,@ObjectNameLocation,@ObjectNameLocationComment,@EvaluationDate,@EvaluationDateComment,@PurposeVerification,@PurposeVerificationComment, " _
& "@TypeValueVerification,@TypeValueVerificationComment,@CustomerData,@CustomerDataComment,@AppraiserData,@AppraiserDataComment,@ExecutiveData,@ExecutiveDataComment,@NumberDateOfValuationAgreement, " _
& "@NumberDateOfValuationAgreementComment,@NameObjectOfValuation,@NameObjectOfValuationComment,@ObjectOwner,@ObjectOwnerComment,@ObjectLocationCheck,@ObjectLocationCheckComment,@RightsValuated, " _
& "@RightsValuatedComment,@TypeOfValuation,@TypeOfValuationComment,@IdentificationOfObject,@IdentificationOfObjectComment,@DeterminingTypeOfValue,@DeterminingTypeOfValueComment,@AppraiserName, " _
& "@AppraiserNameComment,@IndividualIdentificationNumber,@IndividualIdentificationNumberComment,@AppraiserLocation,@AppraiserLocationComment,@AppraiserNumber&Data,@AppraiserNumber&DataComment, " _
& "@ChamberOfAppraisersName,@ChamberOfAppraisersNameComment,@DetailsOfPropertySecurity,@DetailsOfPropertySecurityComment,@NameOfLegalEntityRequisites,@NameOfLegalEntityRequisitesComment, " _
& "@AssumptionsRestrictiveConditions,@AssumptionsRestrictiveConditionsComment,@LegislationAppraisalActivityUsed,@LegislationAppraisalActivityUsedComment,@SourceOfDataUsedAssessment, " _
& "@SourceOfDataUsedAssessmentComment,@TermsDefinitionsUsedInReport,@TermsDefinitionsUsedInReportComment,@DateOfInspectionObject,@DateOfInspectionObjectComment,@Characteristics&StateOfObject, " _
& "@Characteristics&StateOfObjectComment,@ObjectComposition,@ObjectCompositionComment,@ObjectPurposeCurrentUse,@ObjectPurposeCurrentUseComment,@ObjectLocationDescription,@ObjectLocationDescriptionComment,@ObjectDescription,@ObjectDescriptionComment,@MarketReview,@MarketReviewComment,@MarketActivityReview,@MarketActivityReviewComment,@IndustryReview,@IndustryReviewComment,@CostApproach,@CostApproachComment,@ComparativeApproach,@ComparativeApproachComment,@IncomeApproach,@IncomeApproachComment,@AssessmentMethodology,@AssessmentMethodologyComment,@RationaleForChoiceApproachesMethods,@RationaleForChoiceApproachesMethodsComment,@DescriptionOfAssessmentProcessUsingApproaches,@DescriptionOfAssessmentProcessUsingApproachesComment,@MatchingSelectedMethods,@MatchingSelectedMethodsComment, " _
& "@PresenceOfErrorsInSection,@PresenceOfErrorsInSectionComment,@CoordinationOfEvaluationResults,@CoordinationOfEvaluationResultsComment,@AmountInWordsIsCorrect,@AmountInWordsIsCorrectComment,@InspectionDate,@InspectionDateComment,@Address,@AddressComment,@DescriptionOfMainCharacteristics,@DescriptionOfMainCharacteristicsComment,@AdditionalDescription,@AdditionalDescriptionComment,@Condition,@ConditionComment,@AppraiserSignature,@AppraiserSignatureComment,@CustomerSignature,@CustomerSignatureComment,@ClearPhotoOfObject,@ClearPhotoOfObjectComment,@LinksToAdvertasment,@LinksToAdvertasmentComment,@Readability,@ReadabilityComment)"
 
'Форма чек листа
Cmd.Parameters("@DateInput").Type = adDate
Cmd.Parameters("@DateInput").Value = Now
Cmd.Parameters("@TimeInput").Type = adDate
Cmd.Parameters("@TimeInput").Value = Now
Cmd.Parameters("@ExpertDZODoExpertise").Type = adWChar
Cmd.Parameters("@ExpertDZODoExpertise").Value = Worksheets("Лист1").Range("E3").Value
Cmd.Parameters("@AppraisalCompany").Type = adWChar
Cmd.Parameters("@AppraisalCompany").Value = Worksheets("Лист1").Range("E7").Value
Cmd.Parameters("@OrganizationalForm").Type = adWChar
Cmd.Parameters("@OrganizationalForm").Value = Worksheets("Данные").Range("D6").Value
Cmd.Parameters("@EvaluationReportNumber").Type = adWChar
Cmd.Parameters("@EvaluationReportNumber").Value = Worksheets("Лист1").Range("E19").Value
Cmd.Parameters("@EvaluationReportDate").Type = adDate
Cmd.Parameters("@EvaluationReportDate").Value = Worksheets("Лист1").Range("G19").Value
Cmd.Parameters("@ObjectLocation").Type = adWChar
Cmd.Parameters("@ObjectLocation").Value = Worksheets("Данные").Range("D18").Value
Cmd.Parameters("@TypeOfPropertyAccordingColvir").Type = adWChar
Cmd.Parameters("@TypeOfPropertyAccordingColvir").Value = Worksheets("Справочник наимен. имущества").Range("G4").Value
Cmd.Parameters("@ObjectOfEvaluation").Type = adWChar
Cmd.Parameters("@ObjectOfEvaluation").Value = Worksheets("Справочник наимен. имущества").Range("K4").Value
Cmd.Parameters("@TypeValue").Type = adWChar
Cmd.Parameters("@TypeValue").Value = Worksheets("Данные").Range("D12").Value
Cmd.Parameters("@CustomerEvaluation").Type = adWChar
Cmd.Parameters("@CustomerEvaluation").Value = Worksheets("Лист1").Range("E31").Value
Cmd.Parameters("@EvaluationOwner").Type = adWChar
Cmd.Parameters("@EvaluationOwner").Value = Worksheets("Лист1").Range("E33").Value
Cmd.Parameters("@ChamberOfAppraiser").Type = adWChar
Cmd.Parameters("@ChamberOfAppraiser").Value = Worksheets("Лист1").Range("E13").Value
Cmd.Parameters("@CertificateOfMembershipChamberOfAppraisers").Type = adWChar
Cmd.Parameters("@CertificateOfMembershipChamberOfAppraisers").Value = Worksheets("Лист1").Range("E15").Value
Cmd.Parameters("@CertificateOfEvaluator").Type = adWChar
Cmd.Parameters("@CertificateOfEvaluator").Value = Worksheets("Лист1").Range("E17").Value
Cmd.Parameters("@MarketPriceByAppraiser").Type = adInteger
Cmd.Parameters("@MarketPriceByAppraiser").Value = Worksheets("Лист1").Range("E35").Value
 
Cmd.Parameters("@ReportFlashedStamped").Type = adWChar
Cmd.Parameters("@ReportFlashedStamped").Value = Worksheets("Данные").Range("D45").Value
Cmd.Parameters("@ReportFlashedStampedComment").Type = adWChar
Cmd.Parameters("@ReportFlashedStampedComment").Value = Worksheets("Лист1").Range("E39").Value
 
Cmd.Parameters("@ReportNumbered").Type = adWChar
Cmd.Parameters("@ReportNumbered").Value = Worksheets("Данные").Range("D52").Value
Cmd.Parameters("@ReportNumberedComment").Type = adWChar
Cmd.Parameters("@ReportNumberedComment").Value = Worksheets("Лист1").Range("E42").Value
 
Cmd.Parameters("@ReportInitialed").Type = adWChar
Cmd.Parameters("@ReportInitialed").Value = Worksheets("Данные").Range("D59").Value
Cmd.Parameters("@ReportInitialedComment").Type = adWChar
Cmd.Parameters("@ReportInitialedComment").Value = Worksheets("Лист1").Range("E45").Value
 
Cmd.Parameters("@ReportName").Type = adWChar
Cmd.Parameters("@ReportName").Value = Worksheets("Данные").Range("D66").Value
Cmd.Parameters("@ReportNameComment").Type = adWChar
Cmd.Parameters("@ReportNameComment").Value = Worksheets("Лист1").Range("E51").Value
 
Cmd.Parameters("@ReportNumber").Type = adWChar
Cmd.Parameters("@ReportNumber").Value = Worksheets("Данные").Range("D73").Value
Cmd.Parameters("@ReportNumberComment").Type = adWChar
Cmd.Parameters("@ReportNumberComment").Value = Worksheets("Лист1").Range("E54").Value
 
Cmd.Parameters("@ReportDate").Type = adWChar
Cmd.Parameters("@ReportDate").Value = Worksheets("Данные").Range("D80").Value
Cmd.Parameters("@ReportDateComment").Type = adWChar
Cmd.Parameters("@ReportDateComment").Value = Worksheets("Лист1").Range("E57").Value
 
Cmd.Parameters("@ObjectNameLocation").Type = adWChar
Cmd.Parameters("@ObjectNameLocation").Value = Worksheets("Данные").Range("D87").Value
Cmd.Parameters("@ObjectNameLocationComment").Type = adWChar
Cmd.Parameters("@ObjectNameLocationComment").Value = Worksheets("Лист1").Range("E60").Value
 
Cmd.Parameters("@EvaluationDate").Type = adWChar
Cmd.Parameters("@EvaluationDate").Value = Worksheets("Данные").Range("D94").Value
Cmd.Parameters("@EvaluationDateComment").Type = adWChar
Cmd.Parameters("@EvaluationDateComment").Value = Worksheets("Лист1").Range("E63").Value
 
Cmd.Parameters("@PurposeVerification").Type = adWChar
Cmd.Parameters("@PurposeVerification").Value = Worksheets("Данные").Range("D101").Value
Cmd.Parameters("@PurposeVerificationComment").Type = adWChar
Cmd.Parameters("@PurposeVerificationComment").Value = Worksheets("Лист1").Range("E66").Value
 
Cmd.Parameters("@TypeValueVerification").Type = adWChar
Cmd.Parameters("@TypeValueVerification").Value = Worksheets("Данные").Range("D108").Value
Cmd.Parameters("@TypeValueVerificationComment").Type = adWChar
Cmd.Parameters("@TypeValueVerificationComment").Value = Worksheets("Лист1").Range("E69").Value
 
Cmd.Parameters("@CustomerData").Type = adWChar
Cmd.Parameters("@CustomerData").Value = Worksheets("Данные").Range("D115").Value
Cmd.Parameters("@CustomerDataComment").Type = adWChar
Cmd.Parameters("@CustomerDataComment").Value = Worksheets("Лист1").Range("E72").Value
 
Cmd.Parameters("@AppraiserData").Type = adWChar
Cmd.Parameters("@AppraiserData").Value = Worksheets("Данные").Range("D122").Value
Cmd.Parameters("@AppraiserDataComment").Type = adWChar
Cmd.Parameters("@AppraiserDataComment").Value = Worksheets("Лист1").Range("E75").Value
 
Cmd.Parameters("@ExecutiveData").Type = adWChar
Cmd.Parameters("@ExecutiveData").Value = Worksheets("Данные").Range("D130").Value
Cmd.Parameters("@ExecutiveDataComment").Type = adWChar
Cmd.Parameters("@ExecutiveDataComment").Value = Worksheets("Лист1").Range("E78").Value
 
Cmd.Parameters("@NumberDateOfValuationAgreement").Type = adWChar
Cmd.Parameters("@NumberDateOfValuationAgreement").Value = Worksheets("Данные").Range("D137").Value
Cmd.Parameters("@NumberDateOfValuationAgreementComment").Type = adWChar
Cmd.Parameters("@NumberDateOfValuationAgreementComment").Value = Worksheets("Лист1").Range("E84").Value
 
Cmd.Parameters("@NameObjectOfValuation").Type = adWChar
Cmd.Parameters("@NameObjectOfValuation").Value = Worksheets("Данные").Range("D144").Value
Cmd.Parameters("@NameObjectOfValuationComment").Type = adWChar
Cmd.Parameters("@NameObjectOfValuationComment").Value = Worksheets("Лист1").Range("E87").Value
 
Cmd.Parameters("@ObjectOwner").Type = adWChar
Cmd.Parameters("@ObjectOwner").Value = Worksheets("Данные").Range("D151").Value
Cmd.Parameters("@ObjectOwnerComment").Type = adWChar
Cmd.Parameters("@ObjectOwnerComment").Value = Worksheets("Лист1").Range("E90").Value
 
Cmd.Parameters("@ObjectLocationCheck").Type = adWChar
Cmd.Parameters("@ObjectLocationCheck").Value = Worksheets("Данные").Range("D158").Value
Cmd.Parameters("@ObjectLocationCheckComment").Type = adWChar
Cmd.Parameters("@ObjectLocationCheckComment").Value = Worksheets("Лист1").Range("E93").Value
 
Cmd.Parameters("@RightsValuated").Type = adWChar
Cmd.Parameters("@RightsValuated").Value = Worksheets("Данные").Range("D165").Value
Cmd.Parameters("@RightsValuatedComment").Type = adWChar
Cmd.Parameters("@RightsValuatedComment").Value = Worksheets("Лист1").Range("E96").Value
 
Cmd.Parameters("@TypeOfValuation").Type = adWChar
Cmd.Parameters("@TypeOfValuation").Value = Worksheets("Данные").Range("D172").Value
Cmd.Parameters("@TypeOfValuationComment").Type = adWChar
Cmd.Parameters("@TypeOfValuationComment").Value = Worksheets("Лист1").Range("E99").Value
 
Cmd.Parameters("@IdentificationOfObject").Type = adWChar
Cmd.Parameters("@IdentificationOfObject").Value = Worksheets("Данные").Range("D179").Value
Cmd.Parameters("@IdentificationOfObjectComment").Type = adWChar
Cmd.Parameters("@IdentificationOfObjectComment").Value = Worksheets("Лист1").Range("E102").Value
 
Cmd.Parameters("@DeterminingTypeOfValue").Type = adWChar
Cmd.Parameters("@DeterminingTypeOfValue").Value = Worksheets("Данные").Range("D186").Value
Cmd.Parameters("@DeterminingTypeOfValueComment").Type = adWChar
Cmd.Parameters("@DeterminingTypeOfValueComment").Value = Worksheets("Лист1").Range("E105").Value
 
Cmd.Parameters("@AppraiserName").Type = adWChar
Cmd.Parameters("@AppraiserName").Value = Worksheets("Данные").Range("D193").Value
Cmd.Parameters("@AppraiserNameComment").Type = adWChar
Cmd.Parameters("@AppraiserNameComment").Value = Worksheets("Лист1").Range("E111").Value
 
Cmd.Parameters("@IndividualIdentificationNumber").Type = adWChar
Cmd.Parameters("@IndividualIdentificationNumber").Value = Worksheets("Данные").Range("D200").Value
Cmd.Parameters("@IndividualIdentificationNumberComment").Type = adWChar
Cmd.Parameters("@IndividualIdentificationNumberComment").Value = Worksheets("Лист1").Range("E114").Value
 
Cmd.Parameters("@AppraiserLocation").Type = adWChar
Cmd.Parameters("@AppraiserLocation").Value = Worksheets("Данные").Range("D207").Value
Cmd.Parameters("@AppraiserLocationComment").Type = adWChar
Cmd.Parameters("@AppraiserLocationComment").Value = Worksheets("Лист1").Range("E117").Value
 
Cmd.Parameters("@AppraiserNumber&Data").Type = adWChar
Cmd.Parameters("@AppraiserNumber&Data").Value = Worksheets("Данные").Range("D214").Value
Cmd.Parameters("@AppraiserNumber&DataComment").Type = adWChar
Cmd.Parameters("@AppraiserNumber&DataComment").Value = Worksheets("Лист1").Range("E120").Value
 
Cmd.Parameters("@ChamberOfAppraisersName").Type = adWChar
Cmd.Parameters("@ChamberOfAppraisersName").Value = Worksheets("Данные").Range("D221").Value
Cmd.Parameters("@ChamberOfAppraisersNameComment").Type = adWChar
Cmd.Parameters("@ChamberOfAppraisersNameComment").Value = Worksheets("Лист1").Range("E123").Value
 
Cmd.Parameters("@DetailsOfPropertySecurity").Type = adWChar
Cmd.Parameters("@DetailsOfPropertySecurity").Value = Worksheets("Данные").Range("D228").Value
Cmd.Parameters("@DetailsOfPropertySecurityComment").Type = adWChar
Cmd.Parameters("@DetailsOfPropertySecurityComment").Value = Worksheets("Лист1").Range("E126").Value
 
Cmd.Parameters("@NameOfLegalEntityRequisites").Type = adWChar
Cmd.Parameters("@NameOfLegalEntityRequisites").Value = Worksheets("Данные").Range("D235").Value
Cmd.Parameters("@NameOfLegalEntityRequisitesComment").Type = adWChar
Cmd.Parameters("@NameOfLegalEntityRequisitesComment").Value = Worksheets("Лист1").Range("E129").Value
 
Cmd.Parameters("@AssumptionsRestrictiveConditions").Type = adWChar
Cmd.Parameters("@AssumptionsRestrictiveConditions").Value = Worksheets("Данные").Range("D242").Value
Cmd.Parameters("@AssumptionsRestrictiveConditionsComment").Type = adWChar
Cmd.Parameters("@AssumptionsRestrictiveConditionsComment").Value = Worksheets("Лист1").Range("E135").Value
 
Cmd.Parameters("@LegislationAppraisalActivityUsed").Type = adWChar
Cmd.Parameters("@LegislationAppraisalActivityUsed").Value = Worksheets("Данные").Range("D249").Value
Cmd.Parameters("@LegislationAppraisalActivityUsedComment").Type = adWChar
Cmd.Parameters("@LegislationAppraisalActivityUsedComment").Value = Worksheets("Лист1").Range("E138").Value
 
Cmd.Parameters("@SourceOfDataUsedAssessment").Type = adWChar
Cmd.Parameters("@SourceOfDataUsedAssessment").Value = Worksheets("Данные").Range("D256").Value
Cmd.Parameters("@SourceOfDataUsedAssessmentComment").Type = adWChar
Cmd.Parameters("@SourceOfDataUsedAssessmentComment").Value = Worksheets("Лист1").Range("E141").Value
 
Cmd.Parameters("@TermsDefinitionsUsedInReport").Type = adWChar
Cmd.Parameters("@TermsDefinitionsUsedInReport").Value = Worksheets("Данные").Range("D263").Value
Cmd.Parameters("@TermsDefinitionsUsedInReportComment").Type = adWChar
Cmd.Parameters("@TermsDefinitionsUsedInReportComment").Value = Worksheets("Лист1").Range("E144").Value
 
Cmd.Parameters("@DateOfInspectionObject").Type = adWChar
Cmd.Parameters("@DateOfInspectionObject").Value = Worksheets("Данные").Range("D270").Value
Cmd.Parameters("@DateOfInspectionObjectComment").Type = adWChar
Cmd.Parameters("@DateOfInspectionObjectComment").Value = Worksheets("Лист1").Range("E149").Value
 
Cmd.Parameters("@Characteristics&StateOfObject").Type = adWChar
Cmd.Parameters("@Characteristics&StateOfObject").Value = Worksheets("Данные").Range("D277").Value
Cmd.Parameters("@Characteristics&StateOfObjectComment").Type = adWChar
Cmd.Parameters("@Characteristics&StateOfObjectComment").Value = Worksheets("Лист1").Range("E152").Value
 
Cmd.Parameters("@ObjectComposition").Type = adWChar
Cmd.Parameters("@ObjectComposition").Value = Worksheets("Данные").Range("D284").Value
Cmd.Parameters("@ObjectCompositionComment").Type = adWChar
Cmd.Parameters("@ObjectCompositionComment").Value = Worksheets("Лист1").Range("E155").Value
 
Cmd.Parameters("@ObjectPurposeCurrentUse").Type = adWChar
Cmd.Parameters("@ObjectPurposeCurrentUse").Value = Worksheets("Данные").Range("D291").Value
Cmd.Parameters("@ObjectPurposeCurrentUseComment").Type = adWChar
Cmd.Parameters("@ObjectPurposeCurrentUseComment").Value = Worksheets("Лист1").Range("E158").Value
 
Cmd.Parameters("@ObjectLocationDescription").Type = adWChar
Cmd.Parameters("@ObjectLocationDescription").Value = Worksheets("Данные").Range("D298").Value
Cmd.Parameters("@ObjectLocationDescriptionComment").Type = adWChar
Cmd.Parameters("@ObjectLocationDescriptionComment").Value = Worksheets("Лист1").Range("E161").Value
 
Cmd.Parameters("@ObjectDescription").Type = adWChar
Cmd.Parameters("@ObjectDescription").Value = Worksheets("Данные").Range("D305").Value
Cmd.Parameters("@ObjectDescriptionComment").Type = adWChar
Cmd.Parameters("@ObjectDescriptionComment").Value = Worksheets("Лист1").Range("E164").Value
 
Cmd.Parameters("@MarketReview").Type = adWChar
Cmd.Parameters("@MarketReview").Value = Worksheets("Данные").Range("D312").Value
Cmd.Parameters("@MarketReviewComment").Type = adWChar
Cmd.Parameters("@MarketReviewComment").Value = Worksheets("Лист1").Range("E168").Value
 
Cmd.Parameters("@MarketActivityReview").Type = adWChar
Cmd.Parameters("@MarketActivityReview").Value = Worksheets("Данные").Range("D319").Value
Cmd.Parameters("@MarketActivityReviewComment").Type = adWChar
Cmd.Parameters("@MarketActivityReviewComment").Value = Worksheets("Лист1").Range("E171").Value
 
Cmd.Execute
 
End Sub
несколько сократил Макрос, чтобы поместился в форум
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.07.2019, 15:38
Ответы с готовыми решениями:

Добавление большого количества данных в Access
Стоит задача добавления с форм больше сотни единиц данных через sql запрос. Все данные хранятся в...

Отчет из Access в Word большого количества строк
Здравствуйте! Знаю, что вопрос не новый, но пока не удалось разобраться. Попыталась реализовать...

Поиск большого количества файлов (Excel/Access)
Доброго времени суток!!! На работе появилась задача поиска большого количества файлов из списка в...

Отображение большого количества данных
Здравствуйте. Подскажите как реализовать показ данных из json? Нужно вывести разные данные,...

Считывание большого количества данных
Есть такой код: int main() { int n; FILE *fin fin = fopen("b.in", "r"); fscanf(fin, "%d %d %d...

2
КулХацкеръ
29 / 15 / 12
Регистрация: 09.02.2018
Сообщений: 87
14.07.2019, 14:41 2
Я в курсе, что мне не скажут ни малейшего спасибо за попытку помочь, но...

1) Код выглядит ужасно, не судьба выучить оператор цикла, чтобы сократить его?
2) Забыл установить следующие параметры запроса (поэтому он и не работает):
  1. AdditionalDescription
  2. AdditionalDescriptionComment
  3. Address
  4. AddressComment
  5. AmountInWordsIsCorrect
  6. AmountInWordsIsCorrectComment
  7. AppraiserSignature
  8. AppraiserSignatureComment
  9. AssessmentMethodology
  10. AssessmentMethodologyComment
  11. ClearPhotoOfObject
  12. ClearPhotoOfObjectComment
  13. ComparativeApproach
  14. ComparativeApproachComment
  15. Condition
  16. ConditionComment
  17. CoordinationOfEvaluationResults
  18. CoordinationOfEvaluationResultsComment
  19. CostApproach
  20. CostApproachComment
  21. CustomerSignature
  22. CustomerSignatureComment
  23. DescriptionOfAssessmentProcessUsingApproaches
  24. DescriptionOfAssessmentProcessUsingApproachesComment
  25. DescriptionOfMainCharacteristics
  26. DescriptionOfMainCharacteristicsComment
  27. IncomeApproach
  28. IncomeApproachComment
  29. IndustryReview
  30. IndustryReviewComment
  31. InspectionDate
  32. InspectionDateComment
  33. LinksToAdvertasment
  34. LinksToAdvertasmentComment
  35. MatchingSelectedMethods
  36. MatchingSelectedMethodsComment
  37. PresenceOfErrorsInSection
  38. PresenceOfErrorsInSectionComment
  39. RationaleForChoiceApproachesMethods
  40. RationaleForChoiceApproachesMethodsComment
  41. Readability
  42. ReadabilityComment

3) Вот массив полей для автоматического построения запроса через оператор цикла:
№ шага циклаПараметрТип данныхНа листеВ ячейке
1AdditionalDescription???
2AdditionalDescriptionComment???
3Address???
4AddressComment???
5AmountInWordsIsCorrect???
6AmountInWordsIsCorrectComment???
7AppraisalCompanyadWCharЛист1E7
8AppraiserDataadWCharДанныеD122
9AppraiserDataCommentadWCharЛист1E75
10AppraiserLocationadWCharДанныеD207
11AppraiserLocationCommentadWCharЛист1E117
12AppraiserNameadWCharДанныеD193
13AppraiserNameCommentadWCharЛист1E111
14AppraiserNumber&DataadWCharДанныеD214
15AppraiserNumber&DataCommentadWCharЛист1E120
16AppraiserSignature???
17AppraiserSignatureComment???
18AssessmentMethodology???
19AssessmentMethodologyComment???
20AssumptionsRestrictiveConditionsadWCharДанныеD242
21AssumptionsRestrictiveConditionsCommentadWCharЛист1E135
22CertificateOfEvaluatoradWCharЛист1E17
23CertificateOfMembershipChamberOfAppraisersadWCharЛист1E15
24ChamberOfAppraiseradWCharЛист1E13
25ChamberOfAppraisersNameadWCharДанныеD221
26ChamberOfAppraisersNameCommentadWCharЛист1E123
27Characteristics&StateOfObjectadWCharДанныеD277
28Characteristics&StateOfObjectCommentadWCharЛист1E152
29ClearPhotoOfObject???
30ClearPhotoOfObjectComment???
31ComparativeApproach???
32ComparativeApproachComment???
33Condition???
34ConditionComment???
35CoordinationOfEvaluationResults???
36CoordinationOfEvaluationResultsComment???
37CostApproach???
38CostApproachComment???
39CustomerDataadWCharДанныеD115
40CustomerDataCommentadWCharЛист1E72
41CustomerEvaluationadWCharЛист1E31
42CustomerSignature???
43CustomerSignatureComment???
44DateInputadDate??
45DateOfInspectionObjectadWCharДанныеD270
46DateOfInspectionObjectCommentadWCharЛист1E149
47DescriptionOfAssessmentProcessUsingApproaches???
48DescriptionOfAssessmentProcessUsingApproachesComment???
49DescriptionOfMainCharacteristics???
50DescriptionOfMainCharacteristicsComment???
51DetailsOfPropertySecurityadWCharДанныеD228
52DetailsOfPropertySecurityCommentadWCharЛист1E126
53DeterminingTypeOfValueadWCharДанныеD186
54DeterminingTypeOfValueCommentadWCharЛист1E105
55EvaluationDateadWCharДанныеD94
56EvaluationDateCommentadWCharЛист1E63
57EvaluationOwneradWCharЛист1E33
58EvaluationReportDateadDateЛист1G19
59EvaluationReportNumberadWCharЛист1E19
60ExecutiveDataadWCharДанныеD130
61ExecutiveDataCommentadWCharЛист1E78
62ExpertDZODoExpertiseadWCharЛист1E3
63IdentificationOfObjectadWCharДанныеD179
64IdentificationOfObjectCommentadWCharЛист1E102
65IncomeApproach???
66IncomeApproachComment???
67IndividualIdentificationNumberadWCharДанныеD200
68IndividualIdentificationNumberCommentadWCharЛист1E114
69IndustryReview???
70IndustryReviewComment???

№ шага циклаПараметрТип данныхНа листеВ ячейке
71InspectionDate???
72InspectionDateComment???
73LegislationAppraisalActivityUsedadWCharДанныеD249
74LegislationAppraisalActivityUsedCommentadWCharЛист1E138
75LinksToAdvertasment???
76LinksToAdvertasmentComment???
77MarketActivityReviewadWCharДанныеD319
78MarketActivityReviewCommentadWCharЛист1E171
79MarketPriceByAppraiseradIntegerЛист1E35
80MarketReviewadWCharДанныеD312
81MarketReviewCommentadWCharЛист1E168
82MatchingSelectedMethods???
83MatchingSelectedMethodsComment???
84NameObjectOfValuationadWCharДанныеD144
85NameObjectOfValuationCommentadWCharЛист1E87
86NameOfLegalEntityRequisitesadWCharДанныеD235
87NameOfLegalEntityRequisitesCommentadWCharЛист1E129
88NumberDateOfValuationAgreementadWCharДанныеD137
89NumberDateOfValuationAgreementCommentadWCharЛист1E84
90ObjectCompositionadWCharДанныеD284
91ObjectCompositionCommentadWCharЛист1E155
92ObjectDescriptionadWCharДанныеD305
93ObjectDescriptionCommentadWCharЛист1E164
94ObjectLocationadWCharДанныеD18
95ObjectLocationCheckadWCharДанныеD158
96ObjectLocationCheckCommentadWCharЛист1E93
97ObjectLocationDescriptionadWCharДанныеD298
98ObjectLocationDescriptionCommentadWCharЛист1E161
99ObjectNameLocationadWCharДанныеD87
100ObjectNameLocationCommentadWCharЛист1E60
101ObjectOfEvaluationadWCharСправочник наимен. имуществаK4
102ObjectOwneradWCharДанныеD151
103ObjectOwnerCommentadWCharЛист1E90
104ObjectPurposeCurrentUseadWCharДанныеD291
105ObjectPurposeCurrentUseCommentadWCharЛист1E158
106OrganizationalFormadWCharДанныеD6
107PresenceOfErrorsInSection???
108PresenceOfErrorsInSectionComment???
109PurposeVerificationadWCharДанныеD101
110PurposeVerificationCommentadWCharЛист1E66
111RationaleForChoiceApproachesMethods???
112RationaleForChoiceApproachesMethodsComment???
113Readability???
114ReadabilityComment???
115ReportDateadWCharДанныеD80
116ReportDateCommentadWCharЛист1E57
117ReportFlashedStampedadWCharДанныеD45
118ReportFlashedStampedCommentadWCharЛист1E39
119ReportInitialedadWCharДанныеD59
120ReportInitialedCommentadWCharЛист1E45
121ReportNameadWCharДанныеD66
122ReportNameCommentadWCharЛист1E51
123ReportNumberadWCharДанныеD73
124ReportNumberCommentadWCharЛист1E54
125ReportNumberedadWCharДанныеD52
126ReportNumberedCommentadWCharЛист1E42
127RightsValuatedadWCharДанныеD165
128RightsValuatedCommentadWCharЛист1E96
129SourceOfDataUsedAssessmentadWCharДанныеD256
130SourceOfDataUsedAssessmentCommentadWCharЛист1E141
131TermsDefinitionsUsedInReportadWCharДанныеD263
132TermsDefinitionsUsedInReportCommentadWCharЛист1E144
133TimeInputadDate??
134TypeOfPropertyAccordingColviradWCharСправочник наимен. имуществаG4
135TypeOfValuationadWCharДанныеD172
136TypeOfValuationCommentadWCharЛист1E99
137TypeValueadWCharДанныеD12
138TypeValueVerificationadWCharДанныеD108
139TypeValueVerificationCommentadWCharЛист1E69

Добавлено через 37 минут
Ты поместил таблицы выше в "умную таблицу" с именем "Запрос", сократил макрос:

Visual Basic
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
Sub Export()
    Dim Con As New ADODB.Connection, Cmd As New ADODB.Command
    Dim queryParams, query$, i%, n%, queryTypes, querySheets, queryRanges
    With Con
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=C:\Users\Desktop\Base.mdb;Persist Security Info=True;Jet OLEDB:Database Password=1"
        .Open
    End With
    Cmd.ActiveConnection = Con
    queryParams = Application.Transpose(Range("Запрос[Параметр]").Value)
    n = Ubound(queryParams)
    query = "insert into [Valuer] (" & queryParams(1)
    For i = 2 To n: query = query & "," & queryParams(i): Next
    query = query & ") values (@" & queryParams(1)
    For i = 2 To n: query = query & ",@" & queryParams(i): Next
    query = query & ")"
    Cmd.CommandText = query
    queryTypes = Application.Transpose(Range("Запрос[Тип данных]").Value)
    querySheets = Application.Transpose(Range("Запрос[На листе]").Value)
    queryRanges = Application.Transpose(Range("Запрос[В ячейке]").Value)
    For i = 1 To n
        Select Case queryTypes
            Case "adDate":
                Cmd.Parameters("@" & queryParams(i)).Type = adDate
            Case "adInteger"
                Cmd.Parameters("@" & queryParams(i)).Type = adInteger
            Case "adWChar"
                Cmd.Parameters("@" & queryParams(i)).Type = adWChar
        End Select
        Cmd.Parameters("@" & queryParams(i)).Value = Worksheets(querySheets(i)).Range(queryRanges(i)).Value
    Next
    Cmd.Execute
End Sub
.. и теперь не ошибешься в составлении запроса, брат! Удачи.
1
shanemac51
Модератор
Эксперт MS Access
8790 / 3411 / 539
Регистрация: 07.08.2010
Сообщений: 9,571
Записей в блоге: 2
17.07.2019, 23:15 3
Цитата Сообщение от John Doe 1988 Посмотреть сообщение
Если делать процедуру короче (укорачивать отправляемые данные), то отрабатывает, можно ли как то решить данную проблему (Ошибка синтаксиса в инструкции Insert Into) без разбивки на несколько макросов?
у вас при получении основной строки применено 26 строк продолжения
это не допустимо --надо разбить строку на 2 или формировать по другому

Cmd.CommandText = "insert into [Valuer] (DateInput,TimeInput,ExpertDZODoExpertise,AppraisalCompany,OrganizationalForm,EvaluationReportNumber,EvaluationReportDat e,ObjectLocation,TypeOfP.........
Добавлено через 23 минуты
примерно так, по 2 поля на строку, а если имена одинаковые, то можно еще сократить код
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
s1= "insert into [Valuer] "
s1=s1 & "(DateInput,TimeInput,"
s1=s1 & "ExpertDZODoExpertise,AppraisalCompany,"
s1=s1 & "OrganizationalForm,EvaluationReportNumber,"
'''''
s1=s1 & "LinksToAdvertasmentComment,Readability,"
s1=s1 & "ReadabilityComment)"
''''''''''''''''''''''''''''''''''''''''''''
s1=s1 & " values  (@DateInput,@TimeInput,"
s1=s1 & "@ExpertDZODoExpertise,@AppraisalCompany,"
s1=s1 & "@OrganizationalForm,@EvaluationReportNumber,"
'''''
s1=s1 & "@LinksToAdvertasmentComment,@Readability,"
s1=s1 & "@ReadabilityComment)"
'''''''''''''''''''
Cmd.CommandText =s1
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.07.2019, 23:15

Вставка большого количества данных
Добрый день. Не подскажете, кто какими способами заносит данные в базу MS SQL Server? У меня...

Трудности с выводом большого количества данных
Доброго времени суток ! Столкнулся с такой проблемой. Имеется база данных в access. В ней уже...

Хранение большого количества однотипных данных
Добрый день. Подскажите, каким образом хранить данные для программы? Например, у меня имеется 1000...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru