SHARE
TWEET

Untitled

a guest Jun 27th, 2019 57 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. absenperintah.CommandType = CommandType.Text
  2.         cekdata.Open()
  3.         Dim valuex = "500"
  4.         Using cekbaca As SqlDataReader =
  5.         absenperintah.ExecuteReader(CommandBehavior.CloseConnection)
  6.             If cekbaca.Read = True Then
  7.                 Dim nilxbaca = cekbaca("rumus_k") --> record in the table is   1906650*(3.7/100)
  8.                 Dim nilmy = valuex + nilxbaca
  9.                 Dim result = New DataTable().Compute(nilmy, Nothing)
  10.                 MsgBox(result)
  11.             End If
  12.             cekbaca.Close()
  13.         End Using
  14.         cekdata.Close()
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top