Добавление данных в базу через InputBox

dev.Free · 27.09.2012, 07:59. **Показов** 1890. **Ответов** 6

Студворк — интернет-сервис помощи студентам

Привет всем! Не могу понять проблему которая у меня получилась. И так для начала код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
c$ = InputBox("Введите данные", "Добавление")
    If Trim$(c$) = "" Then Exit Sub
        Data2.RecordSource = "select * from [Data]": Data2.Refresh
            c$ = Left$(c$, Data2.Recordset.Fields("Name").Size)
            Data2.Recordset.AddNew: Data2.Recordset.Fields("Name").Value = c$: Data2.Recordset.Update
    f$ = InputBox("Введите данные", "Добавление")
    If Trim$(f$) = "" Then Exit Sub
        Data2.RecordSource = "select * from [Data] Код=" & Data2.Recordset.Fields("Код").Value
            f$ = Left$(f$, Data2.Recordset.Fields("Name2").Size)
            Data2.Recordset.AddNew: Data2.Recordset.Fields("Name2").Value = f$: Data2.Recordset.Update
 
            Data2.Recordset.MoveLast

И так, при нажатии на кнопку появляется InputBox с предложением ввести данные которые попадают в переменную "c$", далее переменная "c$" сохраняется в таблицу Data в поле "Name", после появляется второй InputBox с предложением ввести данные которые попадают в переменную "f$", далее Data2 должна найти совпадение с только что добавленной записью в базу и отредактировать ее на предмет добавления нового значения в поле Name2, но она создает новую строку и получается, 2 добавленные разные записи в первой нету значения Name2, а во второй значения Name. Как исправить ?

P.S. Подозреваю, что тут ошибка "Data2.RecordSource = "select * from [Data] Код=" & Data2.Recordset.Fields("Код").Value", но не могу понять как заставить выбрать предыдущую запись и вызвать ее для редактирования, чтобы добавить поле "Name2".

@Catstail · 27.09.2012, 09:21

А у тебя перед "КОД=" слово WHERE не пропущено?

Добавлено через 37 секунд

Сообщение от inv.DS

"select * from [Data] Код=" &

- странный Select...

Добавлено через 6 минут
Вот простенький код добавления данных в таблицу (драйвер - Access):

Visual Basic
1
2
3
4
5
6
7
     Set Conn = CreateObject("ADODB.Connection")
     Set RS = CreateObject("ADODB.Recordset")
     DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
     DSNName = DSNName & HomeDir & "\test_base.mdb"
     Conn.Open DSNName
     SQL="INSERT INTO tbl1 Values('******',8,9)"
     RS.Open SQL, Conn, 3, 3

У таблицы tbl1 три поля. В первое пойдет строка "*****", во второе - 8, в третье - 9.

dev.Free · 27.09.2012, 10:29 **[ТС]**

Catstail, можно этот же код только для даты? То есть работа с DAO, а не с ADO?

@Catstail · 27.09.2012, 11:17

Сообщение от inv.DS

То есть работа с DAO

- сейчас пороюсь в старых исходниках...

@Catstail · 27.09.2012, 11:25

Взгляни на это:

dev.Free · 27.09.2012, 12:54 **[ТС]**

Сообщение от Catstail

SQL=

Не определен, как он определяется? Процедура.

@Catstail · 27.09.2012, 14:07

Сообщение от inv.DS

Не определен, как он определяется?

- записывается оператор SQL... Не понимаю вопроса.

Добавлено через 3 минуты
Вот полный код приложения. Тут SQL формируется много раз:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
'::: Модуль:
 
Global er  As rdoError
Global cn  As New rdoConnection
Global qy  As New rdoQuery
Global rs  As rdoResultset
Global col As rdoColumn
Global SQL As String
 
Public Sub usrConnect()
 
       cn.CursorDriver = rdUseOdbc
       
       cn.Connect = "uid=****;" & _  ' Ëîãèí
                          "pwd=****;" & _  ' Ïàðîëü
                          "DSN=****"       ' èìÿ èñòî÷íèêà äàííûõ ODBC
 
 
       cn.EstablishConnection (rdoNoPrompt)
 
End Sub
 
'::: Форма
 
Private Sub Command1_Click()
 
        usrConnect
        
        Label1.Caption = "Ñîåäèíåíèå âûïîëíåíî óñïåøíî!"
        
End Sub
 
Private Sub Command2_Click()
Dim Tmp As Variant
        
       '--- Ñîçäàíèå òàáëèöû
       
       Label1.Caption = "Ñîçäàåì òàáëèöó BOB"
       
       SQL = "CREATE TABLE bob (a1 Char(10), a2 Char(10))"
       
       cn.Execute SQL
           
       Label1.Caption = "Ãîòîâî!"
        
       '--- Çàíîñèì èíôîðìàöèþ â òàáëèöó...
       
       Label1.Caption = "Çàíîñèì èíôîðìàöèþ..."
       
       Form1.Refresh
        
       SqlHdr$ = "INSERT into BOB VALUES "
        
       With Me.ProgressBar1
            .Min = 1
            .Max = 100
       End With
        
       For i% = 1 To 100
        
           SQL = SqlHdr & "(" & Str$(i%) & "," & Str$(i% ^ 2) & ")"
        
           cn.Execute SQL
        
           Me.ProgressBar1.Value = i%
        
       Next i%
       
       Label1.Caption = "Ãîòîâî!"
        
End Sub
 
Private Sub Command3_Click()
 
        Label1.Caption = "Âûãðóæàåì äàííûå..."
        Me.Refresh
        
        SQL = "SELECT * From bob Where mid(a1,1,1)='1' order by a2 desc"
        
        With qy
             .Name = "TestSelect"
             .SQL = SQL
             .RowsetSize = 100
             Set .ActiveConnection = cn
        End With
        
        Set rs = qy.OpenResultset(rdOpenDynamic)
        
        rs.MoveLast
        
        nn% = rs.RowCount
        
        rs.MoveFirst
        
        With Me
        
             .MSFlexGrid1.Clear
             .MSFlexGrid1.Row = 0
             .MSFlexGrid1.col = 0
             .MSFlexGrid1.Text = "A1"
        
             .MSFlexGrid1.Row = 0
             .MSFlexGrid1.col = 1
             .MSFlexGrid1.Text = "A2"
        
             For ii% = 1 To nn%
                    
                 .MSFlexGrid1.Rows = .MSFlexGrid1.Rows + 1
         
                 .MSFlexGrid1.Row = ii%
                 .MSFlexGrid1.col = 0
           
                 .MSFlexGrid1.Text = rs!a1
           
                 .MSFlexGrid1.col = 1
                 .MSFlexGrid1.Text = rs!a2
           
                 rs.MoveNext
           
             Next ii%
        
        End With
        
        rs.Close
        
        qy.Close
        
        Set qy = Nothing
        
        Label1.Caption = "Ãîòîâî!"
        Me.Refresh
        
        Me.MSFlexGrid1.Visible = True
        
        Me.MSFlexGrid1.SetFocus
 
End Sub
 
Private Sub Command4_Click()
 
        On Error GoTo Drop_Err
                
        Me.MSFlexGrid1.Clear
        Me.MSFlexGrid1.Visible = False
 
        Label1.Caption = "Óäàëÿåì òàáëèó BOB..."
        Me.Refresh
                
        SQL = "Drop Table BOB"
        cn.Execute SQL
        
        Label1.Caption = "Ãîòîâî!"
        Me.Refresh
 
        Exit Sub
        
Drop_Err:
        
        Txt$ = ""
        
        For Each er In rdoErrors
            Txt$ = Txt$ + " " + er.Description
        Next er
 
        Label1.Caption = Txt$
        Label1.ForeColor = QBColor(12)
        Me.Refresh
 
End Sub
 
Private Sub Command5_Click()
        cn.Close
        End
End Sub

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

dev.Free Заблокирован
	27.09.2012, 10:29 [ТС]
	Catstail, можно этот же код только для даты? То есть работа с DAO, а не с ADO? 0