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

ReSQL.ru

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

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

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

57 сообщений из 57, показаны все 3 страниц

все

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

#37756767

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Добрый день, уважаемые форумчане. Возникает ошибка синтаксиса в инструкции 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:22

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

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

#37756775

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Oilboy,

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

...

Рейтинг:

0 / 0

17.04.2012, 11:26

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

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

#37756790

studieren

Участник

Откуда: Tashkent, Uzbekistan

Сообщения: 2 850

Рейтинг: 0 / 0

Oilboy,

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

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

...

Рейтинг:

0 / 0

17.04.2012, 11:31

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

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

#37756799

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

17.04.2012, 11:33

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

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

#37756805

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

studieren,

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

...

Рейтинг:

0 / 0

17.04.2012, 11:35

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

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

#37756807

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

17.04.2012, 11:35

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

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

#37756809

studieren

Участник

Откуда: Tashkent, Uzbekistan

Сообщения: 2 850

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

17.04.2012, 11:36

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

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

#37756814

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Oilboy,

Код: vbnet

1.
2.

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

...

Рейтинг:

0 / 0

17.04.2012, 11:38

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

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

#37756821

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

17.04.2012, 11:40

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

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

#37756840

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Oilboy,

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

...

Рейтинг:

0 / 0

17.04.2012, 11:46

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

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

#37756867

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

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:56

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

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

#37756871

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

17.04.2012, 11:57

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

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

#37756886

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

17.04.2012, 12:01

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

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

#37756890

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

17.04.2012, 12:03

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

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

#37756907

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

17.04.2012, 12:10

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

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

#37756956

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Shocker.Pro,

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

...

Рейтинг:

0 / 0

17.04.2012, 12:33

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

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

#37756970

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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

Код: 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:43

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

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

#37756975

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Oilboy,

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

...

Рейтинг:

0 / 0

17.04.2012, 12:44

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

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

#37756989

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

17.04.2012, 12:54

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

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

#37757015

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Shocker.Pro,

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

...

Рейтинг:

0 / 0

17.04.2012, 13:09

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

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

#37757028

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ctrl+G

...

Рейтинг:

0 / 0

17.04.2012, 13:13

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

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

#37757034

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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:16

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

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

#37757056

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: plaintext
Parametr_sqrt(Tzp)

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

...

Рейтинг:

0 / 0

17.04.2012, 13:26

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

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

#37757059

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

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

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

Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

17.04.2012, 13:27

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

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

#37757062

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Shocker.Pro,

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

...

Рейтинг:

0 / 0

17.04.2012, 13:28

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

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

#37757063

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: plaintext

DP2-c/Q

это тоже недопустимое название. По крайней мере без квадратных скобок

...

Рейтинг:

0 / 0

17.04.2012, 13:28

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

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

#37757065

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

OilboyЕсли ты про последние поля, то по мануалам я смотрел, такие можно поля делать..Я процитировал конкретное название вообще-то. Если ты жаждешь использовать спецсимволы в названиях полей, тебя придется брать их в квадратные скобки везде и всюду

...

Рейтинг:

0 / 0

17.04.2012, 13:29

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

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

#37757071

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Shocker.Pro,
авторMicrosoft Access действуют следующие ограничения на имена полей, элементов управления и объектов:
имя должно содержать не более 64 знаков;
имя может включать любую комбинацию букв, цифр, пробелов и специальных знаков за исключением точки (.), восклицательного знака (!), надстрочного знака (`) и квадратных скобок ([ ]);
не должно начинаться с знака пробела;
не должно включать управляющие знаки (с кодами ASCII от 0 до 31);
не должно включать прямые кавычки (") в именах таблиц, представлений и сохраненных процедур в проекте Microsoft Access.

Ок, сейчас попробую поменять на текстовые названия.

...

Рейтинг:

0 / 0

17.04.2012, 13:31

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

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

#37757077

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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,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,parametr1,parametr2,parametr3,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:34

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

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

#37757079

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Oilboy,

Ошибка инсерта все равно.

...

Рейтинг:

0 / 0

17.04.2012, 13:35

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

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

#37757080

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

OilboyОшибка инсерта все равно.текст ошибки в студию. Что же все клещами приходится?

...

Рейтинг:

0 / 0

17.04.2012, 13:36

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

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

#37757085

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Shocker.Pro,

Run-time error '-2147217900(80040e14)': Ошибка синтаксиса в инструкции Insert into

...

Рейтинг:

0 / 0

17.04.2012, 13:38

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

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

#37757101

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Так, теперь сходу ошибки не вижу.
Честно говоря, не знаю, как JET к этому относится, но попробуй использовать везде одинаковые ограничители текста (только кавычки или только апострофы)

...

Рейтинг:

0 / 0

17.04.2012, 13:46

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

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

#37757106

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Shocker.Pro,

ПОпробую уксками инсерт делать, и посмотрю начиная с каких переменных накрывается.

...

Рейтинг:

0 / 0

17.04.2012, 13:50

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

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

#37757110

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

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

> Автор: Oilboy

А это правильно что в поля Data_start_ispit,
Data_finish_ispit, вставляется текст('0:00:00',
'0:00:00',)??

Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

17.04.2012, 13:54

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

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

#37757112

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Oilboy,

один разделитель на список значений и десятичный разделитель
вне зависимости от десятичного разделителя
str21=127,855
недопустимо
dim sql_qry As String

Код: 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.

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) "
Dim ss
ss = sql_qry & sql_qry1 & sql_qry2 & sql_qry3 & sql_qry4
Dim xm, j1, j2
xm = Split(ss, ",")
j1 = LBound(xm, 1)
j2 = UBound(xm, 1)
Debug.Print j1, j2
'''''''''0             48
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 & "')"
ss = sql_qry5 & sql_qry6 & sql_qry7 & sql_qry8 & sql_qry9
'Dim xm, j1, j2
xm = Split(ss, ",")
j1 = LBound(xm, 1)
j2 = UBound(xm, 1)
Debug.Print j1, j2

'''''''''''''''0             63
'''str21=127,855     '''один разделитель на список значений и десятичный разделитель

...

Рейтинг:

0 / 0

17.04.2012, 13:54

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

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

#37757117

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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

нормально, даты записываются

...

Рейтинг:

0 / 0

17.04.2012, 13:56

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

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

#37757125

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

^{Вообще, обычно такие широкие таблицы не делают, с ними крайне неудобно работать. Я бы сделал вертикальную таблицу (каждый параметр - своя запись). Ну, конечно, все зависит от того, куда это дальше применяется.}

...

Рейтинг:

0 / 0

17.04.2012, 14:02

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

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

#37757135

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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,) values ('SB_SB_00154','TST_SB_SB_00154_1','FNT_SB_SB_00154_1_1',1,'0:00:00','0:00:00',0)
)

Почему, не пойму.

...

Рейтинг:

0 / 0

17.04.2012, 14:11

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

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

#37757139

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

В этом запросе лишняя запятая в перечне полей

...

Рейтинг:

0 / 0

17.04.2012, 14:14

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

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

#37757146

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Shocker.Pro,

СОри, да заметил, он скомпилился!!

...

Рейтинг:

0 / 0

17.04.2012, 14:15

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

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

#37757152

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Oilboy,
дробей достаточно много
insert into tblWELL_TEST_GASCONDENSAT (UWIvalues ('SB_SB_00154'Unique_Test_IDTST_SB_SB_00154_1'Unique_Mode_IDFNT_SB_SB_00154_1_1'nomer_objecta1Data_start_ispit'Data_finish_ispit'Diametr_shtuceraDiametr_diafragmi 26.009 Time_working8 P_trubnoe85.59 P_zatrubnoe64.07 P_zaboinoe123.33 P_separatora P_izmeritelia55.66 Depressia_atmDepressia_procent Temperatura_na_ustie26.6Temperatura_separatora Temperatura_na_izmeritele26 Temperatura_zaboinaiaPostoiannaia_diafragmi127.855Davlenie_privedennoe1.23Temperatura_privedennaia1.3Koefficient_sverhszhimaemosti0.798Koefficient_sverhszhimaemosti_zaboiniiPlotnost_smesi0.854Parametr_sqrt(Tzp)14.3Debit_gaza497.65Debit_zhidkostiDebit_neftiDebit_vodiProcent_vodiProcent_neftiDebit_condensata_sirogoDebit_condensata_stabilnogoDebit_gaza_separaciiGazovii_factorVihod_condensata_sirogoVihod_condensata_stabilnogoKoefficient_usadki Plotnost_fluida Skorost_potokaDP290089.97DPcDP2-cDP2-c/Q181.03DP/QNote) стандартные исследования')

...

Рейтинг:

0 / 0

17.04.2012, 14:19

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

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

#37757311

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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

И что это меняет??

...

Рейтинг:

0 / 0

17.04.2012, 15:21

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

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

#37757345

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Oilboy,

в вашем запросе на вставку 90089.97 через запятую 90089,97
а значит не СОВПАДАЕТ КОЛИЧЕСТВО ПОЛЕЙ

вставка невозможна
--надо или менять запятую на точку
--или менять всю схему вставки

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

''''''''''''''''''''''''''с 
insert ..........................
 select ..................................
'''''''''''''''''''''''''на ( пример на основе DAO)
rst.addnew
rst!fields(0).value=Worksheets("&#209;&#224;&#236;&#225;&#243;&#240;&#227;").Cells(I, 1).Value
...........................
rst.update

...

Рейтинг:

0 / 0

17.04.2012, 15:38

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

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

#37757424

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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

Я не заметил чтобы там запятая была, тыкнете пальцем, пожалуйста.

...

Рейтинг:

0 / 0

17.04.2012, 16:04

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

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

#37757452

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

Я не заметил чтобы там запятая была, тыкнете пальцем, пожалуйста.Просто у Пенсионерки стоит системный разделитель запятая, а у тебя - точка. Вот у тебя работает, а у большинстрва пользователей работать не будет.

...

Рейтинг:

0 / 0

17.04.2012, 16:16

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

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

#37757454

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Oilboy,

сопоставьте н2:m2

и подстроку из strok

26,009,8,85,59,64,07,123,33,0,55,66

запрос не знает,что разбить надо так
26,009885,5964,07123,33055,66

...

Рейтинг:

0 / 0

17.04.2012, 16:17

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

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

#37757460

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

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

...

Рейтинг:

0 / 0

17.04.2012, 16:18

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

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

#37757463

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Shocker.ProПЕНСИОНЕРКА, не тупи )))
видишь - у него-то точка системный разделитель, вот он тебя и понять не может.а совет 12426129 он проигнорировал

...

Рейтинг:

0 / 0

17.04.2012, 16:20

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

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

#37757607

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

Oilboy,

Код1КодUWIUnique_Test_IDUnique_Mode_IDnomer_objectaData_start_ispitData_finish_ispitDiametr_shtuceraDiametr_diafragmiTime_workingP_trubnoeParametr_sqrt(Tzp)Поле501SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_1100026.009885.5914.32SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_1100026.009885.5914.33SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_20000012229.804SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_300007.879201.9212.525SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_4000011.036169.4712.96SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_5000015.136154.8913.297SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_6000019.295120.9913.638SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_7000022.186101.8614.189SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_8000024698.6114.3710SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_9000711.038.5198.2711.7811000000000001200000000000

...

Рейтинг:

0 / 0

17.04.2012, 17:14

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

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

#37757617

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

Shocker.Pro,

Доублы там или инты, не принципиально. Проверил добавлением полей когда загружает, а когда нет. Наблюдение следующее. Если 48 полей прописывать, загрузка происходит, а вот с 49 - неа! В итоге ограничился этими 48 полями, и нахожусь в недоумении почему 49 не грузит, хотя синтаксис вроде бы верный. И имя поля и тип совпадает с аксессным.

...

Рейтинг:

0 / 0

17.04.2012, 17:16

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

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

#37757622

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

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

> Автор: Oilboy

А каков текст последней ошибки и какой код её вызывает?

Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

17.04.2012, 17:19

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

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

#37757629

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

ПЕНСИОНЕРКАOilboy,
выгрузка всех 49 полей
Код1КодUWIUnique_Test_IDUnique_Mode_IDnomer_objectaData_start_ispitData_finish_ispitDiametr_shtuceraDiametr_diafragmiTime_workingP_trubnoeParametr_sqrt(Tzp)Поле501SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_1100026.009885.5914.32SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_1100026.009885.5914.33SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_20000012229.804SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_300007.879201.9212.525SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_4000011.036169.4712.96SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_5000015.136154.8913.297SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_6000019.295120.9913.638SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_7000022.186101.8614.189SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_8000024698.6114.3710SB_SB_00154TST_SB_SB_00154_1FNT_SB_SB_00154_1_9000711.038.5198.2711.7811000000000001200000000000

...

Рейтинг:

0 / 0

17.04.2012, 17:21

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

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

#37757641

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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

Тот же код что и раньше. И ошибка такая же - ошибка синтаксиса в инструкции INSERT INTO

Код: 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,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,parametr1,parametr2,parametr3,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, 17:26

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

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

#37757684

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

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

> Автор: Oilboy
> Тот же код что и раньше. И ошибка такая же - ошибка синтаксиса в инструкции INSERT INTO

Хорошо, теперь копируй свой Insert, открывай Акцесс и базу и выполняй его там. И если будут ошибки давай сюда их текст.
Только как они там напишут. Полностью!

Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

17.04.2012, 17:40

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

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

#37757694

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

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

> Автор: Oilboy
> ... ,Note) values ...

Имя поля Note возьми в квардратные скобки

Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

17.04.2012, 17:43

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

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

#37757754

Oilboy

Участник

Сообщения: 170

Рейтинг: 0 / 0

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

СПС, да, скобки квадратные - помогли.

...

Рейтинг:

0 / 0

17.04.2012, 18:02

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

57 сообщений из 57, показаны все 3 страниц

все

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?all=1&fid=60&tid=2157891]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	37ms
get topic data:	11ms
get forum data:	3ms
get page messages:	83ms
get tp. blocked users:	1ms
others:	323ms

total:	486ms