| |
|
|
| | Подскажите кто-нибудь как делать запросы на добавление...ну или какой функцией воспользоваться ....у меня есть база данных по учащимся и мне нужно сделать такой запрос, чтоб он автоматом переводил учащихся, но не стирал данные о предыдущем их классе, есть таблица Учащиеся, где написаны имя фамилия отчество и т.д., и есть таблица Движение, где уже описывается в каком классе учащийся когда зачислен, когда отчислен... помогите кто чем сможет глупой студентке   | |
| |
| |
| |
|
|
| | так в чем проблема?
В конструкторе запросов можно указать что это запрос на добавление, в этом случае вас спросят в какую таблицы добавлять, потом укажите поля и их значения... и все | |
| |
| |
| |
|
|
| | У меня было сделано примерно так.
Но я не претендую на красоту, быстроту и оригинальность кода.
Самое главное код работает и работает правильно
Private Sub NoName()
Dim longManufacture, longIron, longRST As Long
Dim dblLargeManufacture As Double
Dim cmd As ADODB.Command
Dim strLargeManufacture As String
longManufacture = 1
longIron = 2
longRST = 3
dblLargeManufacture = 2,55
strLargeManufacture = Replace(CStr(dblLargeManufacture),",",".")
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = CurrentProject.Connection
.CommandText = "INSERT INTO tblExpense ( IronID, LargeIron, ArrivalID, OperationID, ManufactureID ) " & _
"VALUES (" & longIron & ", " & strLargeManufacture & ", " & longRST & ", 11, " & longManufacture & ")"
.Execute
End With
Set cmd = Nothing
End Sub
|
| |
| |
| |
