| Вопрос: Редактирование таблиц | Добавлено: 04.01.07 13:10 |
Автор вопроса:  Andrey
|
|
Пытаюсь програмно обновить данные в таблице базы данных с помощью Visual basic 6.0.
Команда select работает без проблем. Например: data1.recordsource = "select * from customers where rating = 200" и.т.п Как быть с командами Delete, insert, update (Синтаксис я знаю). Таким образом уже не запишешь: data1.recordsource = "select * from customers update customers set rating = 100 where rating = 200" Как быть? C командами Insert и Delete так же туман. Помогите пожалуйста. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 04.01.07 14:55 |
| data1.refresh? | ||
|
Номер ответа: 2 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #2 | Добавлено: 04.01.07 15:00 |
|
Или ты это имеешь ввиду?
[B]
 elete Method Example
This example uses the Delete method to remove a specified record from a Recordset. The DeleteRecord procedure is required for this procedure to run[/B] Sub DeleteX() Dim dbsNorthwind As Database Dim rstEmployees As Recordset Dim lngID As Long Set dbsNorthwind = OpenDatabase("Northwind.mdb" 
Set rstEmployees = _ dbsNorthwind.OpenRecordset("Employees"
' Add temporary record to be deleted. With rstEmployees .Index = "PrimaryKey" .AddNew !FirstName = "Janelle" !LastName = "Tebbs" .Update .Bookmark = .LastModified lngID = !EmployeeID End With ' Delete the employee record with the specified ID ' number. eleteRecord rstEmployees, lngID
rstEmployees.Close dbsNorthwind.Close End Sub Sub DeleteRecord(rstTemp As Recordset, _ lngSeek As Long) With rstTemp .Seek "=", lngSeek If .NoMatch Then MsgBox "No employee #" & lngSeek & " in file!" Else .Delete MsgBox "Record for employee #" & lngSeek & _ " deleted!" End If End With End Sub |
||
Страница: 1 |