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

ReSQL.ru

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

Гость

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

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

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

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

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

25 сообщений из 57, страница 1 из 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

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

25 сообщений из 57, страница 1 из 3

все

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=60&msg=37756989&tid=2157891]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	38ms
get topic data:	11ms
get forum data:	3ms
get page messages:	66ms
get tp. blocked users:	1ms
others:	329ms

total:	480ms