Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Compare Database
- Dim cnn As New ADODB.Connection
- Dim cmd As New ADODB.Command
- Dim rst As New ADODB.Recordset
- Private Sub cmbPodrazd_AfterUpdate()
- Dim i As Integer
- Dim a As Integer
- cnn.CursorLocation = adUseClient
- cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=I:\VBA\tblZaiavka_2.accdb"
- cnn.Mode = adModeRead
- cnn.Open
- cmd.ActiveConnection = cnn
- cmd.CommandText = "select * from tblPodrazd"
- Set rst = cmd.Execute
- a = rst.RecordCount
- For i = 1 To a Step 1
- cmbPodrazd.AddItem rst.Fields("Ïîäðàçäåëåíèå")
- rst.MoveNext
- Next i
- Set cnn = Nothing
- End Sub
- Private Sub cmdStart_Click()
- cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=E:\VBA\tblZaiavka_2.accdb"
- cnn.Mode = adModeRead
- cnn.Open
- CurrentDb.Execute "INSERT INTO tblZaiawka(Äàòà, ÒàáÍîìåð, Îòäåë, Ïîäðàçäåëåíèå, Ðåñóðñ) VALUES" & _
- "('" & txtData.Value & "', '" & cmbSotrydnic.Value & "', '" & cmbOtdel.Value & "', '" & CmbPodrazdel.Value & "', '" & txtResyrs.Value & "')"
- cnn.Close
- Set cnn = Nothing
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement