Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/20: Рейтинг темы: голосов - 20, средняя оценка - 4.60
Flash8
0 / 0 / 0
Регистрация: 07.06.2013
Сообщений: 6
1

Access добавление записей через код VB

09.06.2013, 13:41. Просмотров 3966. Ответов 2
Метки нет (Все метки)

Добрый день!

Прошу помощи, необходимо добавить запись в две связанные таблицы.

Есть две таблицы в access oxotoxozyastvo.mdb
Первая KompaniiUslugi
Access добавление записей через код VB

Вторая KomUslugi
Access добавление записей через код VB


Между ними установлена связь, как положено, от счётчика к полю с форматом номер
Access добавление записей через код VB


Есть форма в VB
Access добавление записей через код VB


Код к ней, писала сама, возможны косяки, но вроде данные выводит в форму

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
 
Private Sub Command7_Click()
Form1.Show
Unload Me
End Sub
 
Private Sub Command8_Click()
 
End Sub
 
Private Sub Form_Load()
Dim cmd As String
Dim sql, sql2, sql3 As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
cmd = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _
"D:\Diplom\oxotoxozyastvo.mdb"
Set cn = New ADODB.Connection
With cn
.ConnectionString = cmd
.Open
End With
'Создать запрос
sql = "select*from KompaniiUslugi INNER JOIN KomUslugi ON KompaniiUslugi.KodKompanii=KomUslugi.PostavshikUslug"
'Открыть набор записей
Set rs = New ADODB.Recordset
With rs
.Open sql, cn, adOpenForwardOnly, adLockReadOnly
Do While Not rs.EOF
'Включить  в список
Combo3.AddItem rs("NazvanieKompanii")
'Перейти к следующей записей
rs.MoveNext
Loop
'Закрыть набор записей
Close
End With
Set rs = Nothing
'Закрыть подключение
cn.Close
'Уничтожить объект подключения
Set cn = Nothing
 
 
 
Set cn = New ADODB.Connection
With cn
.ConnectionString = cmd
.Open
End With
'Создать запрос
sql2 = "select*from KomUslugi"
'Открыть набор записей
Set rs = New ADODB.Recordset
With rs
.Open sql2, cn
 
'Включить  в список
Text1 = rs("DataOplati")
Text2 = rs("Nashisleno")
Text3 = rs("Uplasheno")
Text4 = rs("Primeshania")
 
'Закрыть набор записей
Close
End With
Set rs = Nothing
'Закрыть подключение
cn.Close
'Уничтожить объект подключения
Set cn = Nothing
 
End Sub
 
'Private Sub Command5_Click()
'    Set rs = Nothing
'    Set rs = New ADODB.Recordset
'    sql3 = "INSERT INTO [KomUslugi] ([DataOplati], [Nashisleno], [Uplasheno], [Primeshania]) VALUES (Text1.Text, Text2.Text, Text3.Text, Text4.Text)"
    
 
'With rs
'.Open sql3
'Close
'End With
'Set rs = Nothing
'Закрыть подключение
'Уничтожить объект подключения
End Sub


Я не знаю как это сделать.
Пыталюсь сделать при нажатии на кнопку Command5, но думаю, что даже в неверном направлении двигаюсь.
0
Миниатюры
Access добавление записей через код VB  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.06.2013, 13:41
Ответы с готовыми решениями:

Добавление записи в конец SQL запроса Access через VBA
Имеется запрос "Количество" в Access следующего содержания SELECT count(*)...

Добавление записей в таблицу
помогите разобраться как как добавлять в ячейки листа значения. есть три...

Поиска записей в БД Access
Я создал форму в Access и добавил туда кнопку "Кнопка0" Private Sub...

Синхронизация записей Excel и Access
Как синхронизировать таблицу Excel в Access, чтобы при открытии Access...

БД Клиенты отеля. Добавление, редактирование, поиск и удаление записей
Здравствуйте, мне в универе дали задание на VBA хотя я его не изучал, но от...

2
Flash8
0 / 0 / 0
Регистрация: 07.06.2013
Сообщений: 6
09.06.2013, 17:45  [ТС] 2
Вот так получается

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
'Очищаю текстовые поля по нажатию на кнопку
Private Sub Command8_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
End Sub
 
'Сохраняю запись
Private Sub Command5_Click()
    ' Код компании из списка (определяется по ее названию)
    Dim KodKompanii As Integer
    Dim cn As ADODB.Connection
    cmd = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & _
        "D:\Diplom\oxotoxozyastvo.mdb"
    Set cn = New ADODB.Connection
    With cn
        .ConnectionString = cmd
        .Open
    End With
    Set rs = Nothing
    ' Определение PostavshikUslug: ищем номер по названию
    sql = "select KodKompanii from KompaniiUslugi where NazvanieKompanii = '" & Combo3.Text & "'"
    Set rs = New ADODB.Recordset
    With rs
        .Open sql, cn, adOpenForwardOnly, adLockReadOnly
    End With
    KodKompanii = rs("KodKompanii")
    Set rs = Nothing
    
    ' Добавляем новую запись в базу
    Set rs = New ADODB.Recordset
    
    With rs
        .ActiveConnection = cn
        .CursorLocation = adUseServer
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
    End With
    
    rs.Open "KomUslugi", cn
    rs.AddNew
    ' Связываем по ключу (значение ключевого поля KodKompanii таблицы KompaniiUslugi)
    rs!PostavshikUslug = KodKompanii
    rs!DataOplati = Text1.Text
    rs!Nashisleno = Int(Text2.Text)
    rs!Uplasheno = Int(Text3.Text)
    rs!Primeshania = Text4.Text
    rs.Update
    
    rs.Close
    Set rs = Nothing
    'Закрыть подключение
    cn.Close
    'Уничтожить объект подключения
    Set cn = Nothing
Set cn = Nothing
0
dev.Free
Заблокирован
10.06.2013, 21:09 3
http://www.cyberforum.ru/post4111728.html
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2013, 21:09

Удаление записей в Access без подтверждения
При удалении записей Access выдает сообщение, что типа Вы уверены, что хотите...

MS Access: группировка повторяющихся записей в поле
Добрый день, у меня есть задача: в таблице - поле МЕМО есть повторяющиеся...

Вывод записей Access в поля формы
Есть таблица с одним столбцем и 10ю записями. Есть форма с 10ю полями....


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

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

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