Code:
Private Sub Command1_Click()
Dim loadrs As ADODB.Recordset
Dim loadcn As ADODB.Connection
Dim loaddbcon As New DLLConnectionFunction
Set loaddbcon = New DLLConnectionFunction
If loaddbcon.ConnectDBMsSQLOLEDB2005(loadcn, "localhost", "inventory", "sa", "password") = True Then
Dim strsql As String
strsql = "select * from testview"
If loaddbcon.ConnectRS(loadcn, loadrs, strsql, rsadOpenStatic, rsadLockPessimistic) = True Then
loadrs.MoveFirst
Do Until loadrs.EOF
Dim str As String
str = "Update tbinvent " & _
"Set Markup_Out=200, " & _
"Markup_In=200, " & _
"SellingPriceOut=" & CStr((2 * loadrs.Fields("listcost")) + loadrs.Fields("listcost")) & ", " & _
"SellingPriceIn=" & CStr((2 * loadrs.Fields("listcost")) + loadrs.Fields("listcost")) & ", " & _
"ComputedOut=" & ((2 * loadrs.Fields("listcost")) + loadrs.Fields("listcost")) & ", " & _
"ComputedIn=" & ((2 * loadrs.Fields("listcost")) + loadrs.Fields("listcost")) & ", " & _
"NewOut=" & CStr((2 * loadrs.Fields("listcost")) + loadrs.Fields("listcost")) & ", " & _
"NewIn=" & CStr((2 * loadrs.Fields("listcost")) + loadrs.Fields("listcost")) & _
"where itemid=" & loadrs.Fields("itemid")
loadcn.Execute str
loadrs.MoveNext
Loop
MsgBox "Done"
End If
End If
End SubPlease help me correct my code. thanks.