Запись из excel в acces скриптом vba / Visual Basic

2.0.53

Планшетная версия Контакт Правила FAQ Помощь

Гость

Нов. | Гор. | Избр.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запись из excel в acces скриптом vba / 25 сообщений из 57, страница 1 из 3

все

17.04.2012, 11:22

#37756767

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Добрый день, уважаемые форумчане. Возникает ошибка синтаксиса в инструкции INTO для следующего кода.

Код: vbnet

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.

Sub makros()
Dim cnn As ADODB.Connection, sql_qry As String, filetoopen As String
 

filetoopen = "C:\Users\aem00511\Documents\ALLWells.accdb"
 
Set cnn = New ADODB.Connection
cnn.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + filetoopen + ";"
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim str4 As Long
Dim str5 As Date
Dim str6 As Date
Dim str7 As Double
Dim str8 As Double
Dim str9 As Double
Dim str10 As Double
Dim str11 As Double
Dim str12 As Double
Dim str13 As Double
Dim str14 As Double
Dim str15 As Double
Dim str16 As Double
Dim str17 As Double
Dim str18 As Double
Dim str19 As Double
Dim str20 As Double
Dim str21 As Double
Dim str22 As Double
Dim str23 As Double
Dim str24 As Double
Dim str25 As Double
Dim str26 As Double
Dim str27 As Double
Dim str28 As Double
Dim str29 As Double
Dim str30 As Double
Dim str31 As Double
Dim str32 As Double
Dim str33 As Double
Dim str34 As Double
Dim str35 As Double
Dim str36 As Double
Dim str37 As Double
Dim str38 As Double
Dim str39 As Double
Dim str40 As Double
Dim str42 As Double
Dim str43 As Double
Dim str44 As Double
Dim str45 As Double
Dim str46 As Double
Dim str47 As Double
Dim str48 As Double
Dim str49 As String

Dim I As Long
I = 1
Dim sql_qry1 As String
Dim sql_qry2 As String
Dim sql_qry3 As String
Dim sql_qry4 As String
Dim sql_qry5 As String
Dim sql_qry6 As String
Dim sql_qry7 As String
Dim sql_qry8 As String
Dim sql_qry9 As String
For I = 4 To 1364
str1 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 1).Value
str2 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 2).Value
str3 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 3).Value
str4 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 4).Value
str5 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 5).Value
str6 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 6).Value
str7 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 7).Value
str8 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 8).Value
str9 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 9).Value
str10 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 10).Value
str11 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 11).Value
str12 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 12).Value
str13 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 13).Value
str14 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 14).Value
str15 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 15).Value
str16 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 16).Value
str17 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 17).Value
str18 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 18).Value
str19 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 19).Value
str20 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 20).Value
str21 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 21).Value
str22 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 22).Value
str23 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 23).Value
str24 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 24).Value
str25 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 25).Value
str26 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 26).Value
str27 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 27).Value
str28 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 28).Value
str29 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 29).Value
str30 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 30).Value
str31 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 31).Value
str32 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 32).Value
str33 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 33).Value
str34 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 34).Value
str35 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 35).Value
str36 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 36).Value
str37 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 37).Value
str38 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 38).Value
str39 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 39).Value
str40 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 40).Value
str41 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 41).Value
str42 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 42).Value
str43 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 43).Value
str44 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 44).Value
str45 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 45).Value
str46 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 46).Value
str47 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 47).Value
str48 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 48).Value
str49 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 49).Value
Dim strok As String



sql_qry = "insert into tblWELL_TEST_GASCONDENSAT (UWI,Unique_Test_ID,Unique_Mode_ID,nomer_objecta,Data_start_ispit,Data_finish_ispit,Diametr_shtucera,"
sql_qry1 = "Diametr_diafragmi , Time_working, P_trubnoe, P_zatrubnoe, P_zaboinoe, P_separatora, P_izmeritelia, Depressia, Temperatura_na_ustie,Temperatura_separatora, Temperatura_na_izmeritele, "
sql_qry2 = "Temperatura_zaboinaia,Postoiannaia_diafragmi,Davlenie_privedennoe,Temperatura_privedennaia,Koefficient_sverhszhimaemosti,Koefficient_sverhszhimaemosti_zaboinii,Plotnost_smesi,Parametr_sqrt(Tzp),"
sql_qry3 = "Debit_gaza,Debit_zhidkosti,Debit_nefti,Debit_vodi,Procent_vodi,Procent_nefti,Debit_condensata_sirogo,Debit_condensata_stabilnogo,Debit_gaza_separacii,Gazovii_factor,"
sql_qry4 = "Vihod_condensata_sirogo,Vihod_condensata_stabilnogo,Koefficient_usadki,Plotnost_fluida,Skorost_potoka,DP2,DP,c,DP2-c,DP2-c/Q,DP/Q,Note) "
sql_qry5 = "values ('" & str1 & "','" & str2 & "','" & str3 & "'," & str4 & ",'" & str5 & "','" & str6 & "'," & str7 & "," & str8 & "," & str9 & "," & str10
sql_qry6 = "," & str11 & "," & str12 & "," & str13 & "," & str14 & "," & str15 & "," & str16 & "," & str17 & "," & str18 & "," & str19 & "," & str20
sql_qry7 = "," & str21 & "," & str22 & "," & str23 & "," & str24 & "," & str25 & "," & str26 & "," & str27 & "," & str28 & "," & str29 & "," & str30
sql_qry8 = "," & str31 & "," & str32 & "," & str33 & "," & str34 & "," & str35 & "," & str36 & "," & str37 & "," & str38 & "," & str39 & "," & str40
sql_qry9 = "," & str41 & "," & str42 & "," & str43 & "," & str44 & "," & str45 & "," & str46 & "," & str47 & "," & str48 & ",'" & str49 & "')"

 strok = sql_qry & sql_qry1 & sql_qry2 & sql_qry3 & sql_qry4 & sql_qry5 & sql_qry6 & sql_qry7 & sql_qry8 & sql_qry9
Dim strok2 As String
strok2 = "insert into tblWELL_TEST_GASCONDENSAT (UWI,Unique_Test_ID,Unique_Mode_ID) values('" & str1 & "','" & str2 & "','" & str3 & "')"


cnn.Execute strok
Next I
cnn.Close
 
 
End Sub

Помогите понять причину.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 11:26

#37756775

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Oilboy,

Немножко не по теме... вы когда-нибудь слышали про массивы и циклы?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 11:31

#37756790

studieren

Участник

Откуда: Tashkent, Uzbekistan
Сообщения: 2 850
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Oilboy,

У Вас str5 и str6 дата, стало быть в Jet SQL нужно написать в американском формате "#mm.dd.yyyy#".
Далее, начиная с str7 по str48 у Вас double, стало быть они могут быть и не целыми числами. Нужно их обернуть функцией "str", т.е. так: Str(str7).

P.S. Это что за "порнография"? Неужели у Вас рабочий лист называется так "Ñàìáóðã"?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 11:33

#37756799

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Спасибо за замечение,49 переменных можно было бы и в цикле присвоить в массив.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 11:35

#37756805

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

studieren,

КОнечно нет, при копировании кодировка полетела. Сейчас учту замечения. Спасибо.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 11:35

#37756807

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

studierenнужно написать в американском формате "#mm.dd.yyyy#".вот так: "#mm/dd/yyyy#"

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 11:36

#37756809

studieren

Участник

Откуда: Tashkent, Uzbekistan
Сообщения: 2 850
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Странно, я цитировал название рабочего листа так & #209;& #224;& #236;& #225;& #243;& #240;& #227;
А в результате получил что-то странное. :)
"Ñàìáóðã"

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 11:38

#37756814

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл
Сообщения: 4 809
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Oilboy,

Код: vbnet

1.
2.

'если ссылки есть --то нет объявления
Dim str41 As Double

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 11:40

#37756821

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

ПЕНСИОНЕРКА,
Добрый день! Рад вашему ответу!
Не понял что вы хотите сказать!

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 11:46

#37756840

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Oilboy,

Пытаюсь запись корткой строчки сделать strok2 = "insert into tblWELL_TEST_GASCONDENSAT (UWI,Unique_Test_ID,Unique_Mode_ID) values('" & str1 & "','" & str2 & "','" & str3 & "')" в пустую таблицу.
Но выдает ошибку: "Не удалось внести изменения из-за повторяющихся значений в индексе, первичном ключе и связях. Измените данные в одном или нескольких полях, содержащих повторяющиеся значения, удалите индекс или переопределите его, разрешив повторяющиеся значения, и повторите попытку."

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 11:56

#37756867

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл
Сообщения: 4 809
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

OilboyСпасибо за замечение,49 переменных можно было бы и в цикле присвоить в массив.

похоже не комплект
UWI '1'Unique_Test_ID'2'Unique_Mode_ID'3'nomer_objecta4Data_start_ispit'0'Data_finish_ispit'0Diametr_shtucera0Diametr_diafragmi 0 Time_working0 P_trubnoe0 P_zatrubnoe0 P_zaboinoe0 P_separatora0 P_izmeritelia0 Depressia0 Temperatura_na_ustie0Temperatura_separatora0 Temperatura_na_izmeritele0 Temperatura_zaboinaia0Postoiannaia_diafragmi0Davlenie_privedennoe0Temperatura_privedennaia0Koefficient_sverhszhimaemosti0Koefficient_sverhszhimaemosti_zaboinii0Plotnost_smesi0Parametr_sqrt(Tzp)0Debit_gaza0Debit_zhidkosti0Debit_nefti0Debit_vodi0Procent_vodi0Procent_nefti0Debit_condensata_sirogo0Debit_condensata_stabilnogo0Debit_gaza_separacii0Gazovii_factor0Vihod_condensata_sirogo0Vihod_condensata_stabilnogo0Koefficient_usadki0Plotnost_fluida0Skorost_potoka0DP20DP0c0DP2-c0DP2-c/Q0DP/Q0Note 0''

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 11:57

#37756871

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл
Сообщения: 4 809
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

OilboyПЕНСИОНЕРКА,
Добрый день! Рад вашему ответу!
Не понял что вы хотите сказать!

переменная не объявлена, а используется

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 12:01

#37756886

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

ПЕНСИОНЕРКА,

Спасибо, объявил, но все равно, длинный запрос когда делаю ошибка синтаксиска инсерта всплывает, а на коротком запросе ошибка связывания.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 12:03

#37756890

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Oilboyошибка синтаксиска инсертаDebug.Print strok и результат в студию!

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 12:10

#37756907

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл
Сообщения: 4 809
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Oilboy,
внимательнее посмотрите последние строки от 11:56

разное количество параметров

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 12:33

#37756956

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Shocker.Pro,

странно, но у меня дата просто апострофами с двух сторон в предыдущий раз заносилась.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 12:43

#37756970

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

ПЕНСИОНЕРКА,

Код: vbnet

Sub makros()
Dim cnn As ADODB.Connection, sql_qry As String, filetoopen As String
 

filetoopen = "C:\Users\aem00511\Documents\ALLWells.accdb"
 
Set cnn = New ADODB.Connection
cnn.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + filetoopen + ";"
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim str4 As Long
Dim str5 As Date
Dim str6 As Date
Dim str7 As Double
Dim str8 As Double
Dim str9 As Double
Dim str10 As Double
Dim str11 As Double
Dim str12 As Double
Dim str13 As Double
Dim str14 As Double
Dim str15 As Double
Dim str16 As Double
Dim str17 As Double
Dim str18 As Double
Dim str19 As Double
Dim str20 As Double
Dim str21 As Double
Dim str22 As Double
Dim str23 As Double
Dim str24 As Double
Dim str25 As Double
Dim str26 As Double
Dim str27 As Double
Dim str28 As Double
Dim str29 As Double
Dim str30 As Double
Dim str31 As Double
Dim str32 As Double
Dim str33 As Double
Dim str34 As Double
Dim str35 As Double
Dim str36 As Double
Dim str37 As Double
Dim str38 As Double
Dim str39 As Double
Dim str40 As Double
Dim str41 As Double
Dim str42 As Double
Dim str43 As Double
Dim str44 As Double
Dim str45 As Double
Dim str46 As Double
Dim str47 As Double
Dim str48 As Double
Dim str49 As String

Dim I As Long
I = 1
Dim sql_qry1 As String
Dim sql_qry2 As String
Dim sql_qry3 As String
Dim sql_qry4 As String
Dim sql_qry5 As String
Dim sql_qry6 As String
Dim sql_qry7 As String
Dim sql_qry8 As String
Dim sql_qry9 As String
For I = 2 To 1364
str1 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 1).Value
str2 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 2).Value
str3 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 3).Value
str4 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 4).Value
str5 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 5).Value
str6 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 6).Value
str7 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 7).Value
str8 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 8).Value
str9 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 9).Value
str10 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 10).Value
str11 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 11).Value
str12 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 12).Value
str13 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 13).Value
str14 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 14).Value
str15 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 15).Value
str16 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 16).Value
str17 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 17).Value
str18 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 18).Value
str19 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 19).Value
str20 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 20).Value
str21 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 21).Value
str22 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 22).Value
str23 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 23).Value
str24 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 24).Value
str25 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 25).Value
str26 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 26).Value
str27 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 27).Value
str28 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 28).Value
str29 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 29).Value
str30 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 30).Value
str31 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 31).Value
str32 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 32).Value
str33 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 33).Value
str34 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 34).Value
str35 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 35).Value
str36 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 36).Value
str37 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 37).Value
str38 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 38).Value
str39 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 39).Value
str40 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 40).Value
str41 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 41).Value
str42 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 42).Value
str43 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 43).Value
str44 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 44).Value
str45 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 45).Value
str46 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 46).Value
str47 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 47).Value
str48 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 48).Value
str49 = Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 49).Value
Dim strok As String



sql_qry = "insert into tblWELL_TEST_GASCONDENSAT (UWI,Unique_Test_ID,Unique_Mode_ID,nomer_objecta,Data_start_ispit,Data_finish_ispit,Diametr_shtucera,"
sql_qry1 = "Diametr_diafragmi , Time_working, P_trubnoe, P_zatrubnoe, P_zaboinoe, P_separatora, P_izmeritelia, Depressia_atm,Depressia_procent, Temperatura_na_ustie,Temperatura_separatora, Temperatura_na_izmeritele, "
sql_qry2 = "Temperatura_zaboinaia,Postoiannaia_diafragmi,Davlenie_privedennoe,Temperatura_privedennaia,Koefficient_sverhszhimaemosti,Koefficient_sverhszhimaemosti_zaboinii,Plotnost_smesi,Parametr_sqrt(Tzp),"
sql_qry3 = "Debit_gaza,Debit_zhidkosti,Debit_nefti,Debit_vodi,Procent_vodi,Procent_nefti,Debit_condensata_sirogo,Debit_condensata_stabilnogo,Debit_gaza_separacii,Gazovii_factor,"
sql_qry4 = "Vihod_condensata_sirogo,Vihod_condensata_stabilnogo,Koefficient_usadki,Plotnost_fluida,Skorost_potoka,DP2,DP,c,DP2-c,DP2-c/Q,DP/Q,Note) "
sql_qry5 = "values ('" & str1 & "','" & str2 & "','" & str3 & "'," & str4 & ",'" & str5 & "','" & str6 & "'," & str7 & "," & str8 & "," & str9 & "," & str10
sql_qry6 = "," & str11 & "," & str12 & "," & str13 & "," & str14 & "," & str15 & "," & str16 & "," & str17 & "," & str18 & "," & str19 & "," & str20
sql_qry7 = "," & str21 & "," & str22 & "," & str23 & "," & str24 & "," & str25 & "," & str26 & "," & str27 & "," & str28 & "," & str29 & "," & str30
sql_qry8 = "," & str31 & "," & str32 & "," & str33 & "," & str34 & "," & str35 & "," & str36 & "," & str37 & "," & str38 & "," & str39 & "," & str40
sql_qry9 = "," & str41 & "," & str42 & "," & str43 & "," & str44 & "," & str45 & "," & str46 & "," & str47 & "," & str48 & ",'" & str49 & "')"

 strok = sql_qry & sql_qry1 & sql_qry2 & sql_qry3 & sql_qry4 & sql_qry5 & sql_qry6 & sql_qry7 & sql_qry8 & sql_qry9
Dim strok2 As String
'strok2 = "insert into tblWELL_TEST_GASCONDENSAT (UWI,Unique_Test_ID,Unique_Mode_ID) values('" & str1 & "','" & str2 & "','" & str3 & "')"
strok2 = "insert into tblWELL_TEST_GASCONDENSAT (UWI,Unique_Test_ID,Unique_Mode_ID,nomer_objecta) values('SB_SB_00154','TST_SB_SB_00154_1','FNT_SB_SB_00154_1_1',5.01)"
Debug.Print strok

MsgBox strok

cnn.Execute strok
Next I
cnn.Close
 
 
End Sub

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 12:44

#37756975

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Oilboy,

код выше применим к экселю в приложении. ошибка выходит таже.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 12:54

#37756989

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Shocker.ProOilboyошибка синтаксиска инсертаDebug.Print strok и результат в студию!мы содержимое переменной strok увидим или нет?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 13:09

#37757015

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Shocker.Pro,

другой способ вывода переменной есть? дебаг. принт чтото не срабатывает. Или библиотеку нужно специальную подключить?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 13:13

#37757028

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Ctrl+G

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 13:16

#37757034

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Shocker.Pro,

Код: sql

1.
2.

insert into tblWELL_TEST_GASCONDENSAT (UWI,Unique_Test_ID,Unique_Mode_ID,nomer_objecta,Data_start_ispit,Data_finish_ispit,Diametr_shtucera,Diametr_diafragmi , Time_working, P_trubnoe, P_zatrubnoe, P_zaboinoe, P_separatora, P_izmeritelia, Depressia_atm,Depressia_procent, Temperatura_na_ustie,Temperatura_separatora, Temperatura_na_izmeritele, Temperatura_zaboinaia,Postoiannaia_diafragmi,Davlenie_privedennoe,Temperatura_privedennaia,Koefficient_sverhszhimaemosti,Koefficient_sverhszhimaemosti_zaboinii,Plotnost_smesi,Parametr_sqrt(Tzp),Debit_gaza,Debit_zhidkosti,Debit_nefti,Debit_vodi,Procent_vodi,Procent_nefti,Debit_condensata_sirogo,Debit_condensata_stabilnogo,Debit_gaza_separacii,Gazovii_factor,Vihod_condensata_sirogo,Vihod_condensata_stabilnogo,Koefficient_usadki,Plotnost_fluida,Skorost_potoka,DP2,DP,c,DP2-c,DP2-c/Q,DP/Q,Note) values ('SB_SB_00154','TST_SB_SB_00154_1','FNT_SB_SB_00154_1_1',1,'0:00:00','0:00:00',0,26.009,8,85.59,64.07,123.33,0,55.66,0,0,26.6,0,26,0,127.855,1.23,1.3,0.798,0,0.854,14.3,497.65,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,90089.97,0,0,0,181.03,0,'стандартные исследования')

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 13:26

#37757056

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Код: plaintext
Parametr_sqrt(Tzp)

И что это за хрень в качестве названия поля?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 13:27

#37757059

Игорь Горбонос

Участник

Откуда: Днепропетровск
Сообщения: 4 416
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

А я наверное не в теме, но что значат эти символы в перечислении полей для вставки?
OilboyDP2 -c,
DP2 -c / Q,
DP / Q,

Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

17.04.2012, 13:28

#37757062

Oilboy

Участник

Сообщения: 170
Рейтинг: 0 / 0

Запись из excel в acces скриптом vba

Shocker.Pro,

Ты о каком поле говоришь?? Если ты про последние поля, то по мануалам я смотрел, такие можно поля делать...

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

все

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&mobile=1&tid=2157891]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	44ms
get topic data:	8ms
get forum data:	2ms
get page messages:	55ms
get tp. blocked users:	1ms
others:	330ms

total:	467ms