vb short

'ds DataAdapter
'dgvGame,data DataGridView
'cmd OracleCommand
'sql String
'con OracleConnection
'adp OracleDateAdapter
'r,x Integer


'INSERT


sql = "insert into login values('" & user1.Text & "','" & pass1.Text & "')"

cmd = New OracleCommand(sql, con)
MsgBox("register sucess")
con.Open()
res = cmd.ExecuteNonQuery()
con.Close()
Me.Close()



'DELETE


 sql = "delete from store where game_id = " & txtGameID.Text & ""
cmd = New OracleCommand(sql, con)
con.Open()
x = cmd.ExecuteNonQuery()
con.Close()


'SORT


ds.Tables.Clear()
sql = "select * from store order by game_name"
adp = New OracleDataAdapter(sql, con)
con.Open()
adp.Fill(ds)
con.Close()
dgvGame.DataSource = ds.Tables(0)



'SEARCH


ds.Tables.Clear()
sql = "select * from leave_app where u_id=" & u_id.Text & ""
adp = New OracleDataAdapter(sql, con)
con.Open()
adp.Fill(ds)
con.Close()
data2.DataSource = ds.Tables(0)


'UPDATE


fillgrid()
sql = "update leave_app set status = 'y'where u_id =" & app.Text & ""
cmd = New OracleCommand(sql, con)
con.Open()
x = cmd.ExecuteNonQuery()
con.Close()
If (x > 0) Then
MsgBox("data update")
End If
fillgrid()


'FILLGRID


ds.Tables.Clear()
sql = "select * from leave_app"
adp = New OracleDataAdapter(sql, con)
con.Open()
adp.Fill(ds)
con.Close()
r = ds.Tables(0).Rows.Count
data.DataSource = ds.Tables(0)