S
Stephen D Cook
Dim objConn
objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=DCTRepair"
objConn.Open()
Dim objRS
objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open("TechEntry", objConn, 2, 3, 2)
objRS.AddNew()
objRS("SerialNumber") = TextBox1.Text
objRS("TechNumber") = TextBox2.Text
'objRS.MoveLast()
objRS.Update()
objRS.MoveFirst()
objConn.Close()
objConn = Nothing
End Sub
The code above works fine till I try to update or use the MoveLast
option for the database. Any ideas?
objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=DCTRepair"
objConn.Open()
Dim objRS
objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open("TechEntry", objConn, 2, 3, 2)
objRS.AddNew()
objRS("SerialNumber") = TextBox1.Text
objRS("TechNumber") = TextBox2.Text
'objRS.MoveLast()
objRS.Update()
objRS.MoveFirst()
objConn.Close()
objConn = Nothing
End Sub
The code above works fine till I try to update or use the MoveLast
option for the database. Any ideas?