Hello. could you help me please?
i have code in order to record data into access database, it works good but i dont know how to do delete and update...
Dim dbConnection As ADODB.Connection
Dim recordSet As ADODB.recordSet
Dim strSQL As String
Set dbConnection = New ADODB.Connection
Set recordSet = New ADODB.recordSet
Material = Me.Material.Value
Unit = Me.Unit.Value
UnitPrice = Me.UnitPrice.Value
Curr = Me.Curr.Value
Supplier = Me.Supplier.Value
Origin = Me.Origin.Value
dbConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=\\Database\MechAndElecDatabase.accdb"
dbConnection.CursorLocation = adUseClient
strSQL = "INSERT INTO MechAndElecMalzeme ([Material],[Unit],[UnitPrice],[Curr],[Supplier],[Origin]) VALUES ('" & Material & "','" & Unit & "','" & UnitPrice & "','" & Curr & "','" & Supplier & "','" & Origin & "')"
recordSet.Open strSQL, dbConnection
dbConnection.Close
Set dbConnection = Nothing
MsgBox "Record added.."
i have code in order to record data into access database, it works good but i dont know how to do delete and update...
Dim dbConnection As ADODB.Connection
Dim recordSet As ADODB.recordSet
Dim strSQL As String
Set dbConnection = New ADODB.Connection
Set recordSet = New ADODB.recordSet
Material = Me.Material.Value
Unit = Me.Unit.Value
UnitPrice = Me.UnitPrice.Value
Curr = Me.Curr.Value
Supplier = Me.Supplier.Value
Origin = Me.Origin.Value
dbConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=\\Database\MechAndElecDatabase.accdb"
dbConnection.CursorLocation = adUseClient
strSQL = "INSERT INTO MechAndElecMalzeme ([Material],[Unit],[UnitPrice],[Curr],[Supplier],[Origin]) VALUES ('" & Material & "','" & Unit & "','" & UnitPrice & "','" & Curr & "','" & Supplier & "','" & Origin & "')"
recordSet.Open strSQL, dbConnection
dbConnection.Close
Set dbConnection = Nothing
MsgBox "Record added.."
Last edited: