| Вопрос: Вопрос по Data. | Добавлено: 03.10.02 21:09 |
Автор вопроса:  Gagarin
|
||||||||||||||||||||||||
Страница: 1 |
| ||||||||||||||||||||||||
Страница: 1 |
ID Фамилия Имя Отчество 1 2 3 4 5 Петров Иванов Петров Хомяков
создаешь текстовые поля свойства DateSourse = DATA1 DateFields = <имя полей в базе> Dim strFind as string strFind = "Петров" For i = 1 To Data1.Recordset.RecordCount Data1.Recordset.MoveNext Все проще гораздо. Dim cn as newAdodb.Connection cn.open connect -вместоконнект пиши строку соеденения с базой cn.execute "update mytable set Фамилия=Сидоров блин cn.close. Одним махом все меняется. И всего пару строк кода. Страница: 1 |
Вопрос: Вопрос по Data.
Добавлено: 03.10.02 21:09
Автор вопроса:
Gagarin
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа: SerJEANt
ICQ: 3132838
Вопросов: 10
Ответов: 38
Профиль | | #1
Добавлено: 04.10.02 18:03
If UCase(strFind) = UCase(Text1.text) Then
Data1.recordset.fields(<индекс поля с фамилией>
= "сидоров"
Else
End If
Next i
Всё вроде так
Номер ответа: 2
Автор ответа:
MAGNUS
Вопросов: 12
Ответов: 430
Профиль | | #2
Добавлено: 04.10.02 20:41
where Фамилия=Петров "