like this yooo

http://www.emocutez.com

Senin, 12 Desember 2011

SQL tgl 12/12/2011

===trigger===
create   trigger tr_status
on nilai
for insert, update
as
declare @nim char (5)
declare @nilai float
select @nim=nim, @nilai=nilai from nilai
if @nilai >= 60
update keterengan set ket ='lulus' where nim=@nim
else update keterangan set ket='tidak lulus' where nim=@nim

===macam-macam perintah select===

select * from toko_buku
select kode_buku, harga from toko_buku
select kode_buku,harga * 0.3 from toko_buku
select max(harga) from toko_buku
select min(harga) from toko_buku
select count(harga) from toko_buku
select kode_buku, nama_buku from toko_buku order by penerbit
select * from toko_buku where kode_buku='B001' and harga<=45000;
select distinct nama_buku from toko_buku
select count(*) from toko_buku where kode_buku='B001' and harga<=45000;


Diposting oleh deliana di 00.27 0 komentar

Minggu, 04 Desember 2011

SQL server 05 des 2011

==menambah field===

ALTER TABLE Dosen add jk char(1)

===membuat tabel===


create table Dosen (
nip char(5),
nama varchar (35)
primary key(nip))

===mengganti isi field berakhiran a===
update Dosen set alamat='panam' where nama like '%a'

===menggunakan database  baru===
use nama_db

===digunakan untuk mengelompok kan data===
select distinct jabatan from Dosen
Diposting oleh deliana di 23.39 0 komentar

SQL server 05 des 2011

===Cara pertama===
ALTER DATABASE IK1S MODIFY NAME = IK1S_BARU


===Cara kedua===
exec sp_renamedb @dbname = 'IK1S_BARU', @newname = 'IK1S_2'
Diposting oleh deliana di 22.35 0 komentar

Kamis, 01 Desember 2011

Lanjutan yg kemaren & cara mudah na

<html>
<head>
<title>menampilkan data tertentu</title>
</head>
<body>
<%
dim cn,rs,rsj
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

konek="DRIVER={SQL SERVER};SERVER=USER-PC;UID=sa;"
konek=konek & "PWD=admin;DATABASE=profesi"
cn.Open konek
rs.Open "dbo_jurusan",cn
%>

<p>seleksi data aplikan berdasarkan jurusan</p>
<form method="post" action="lapor5.asp">
<table border="0"cellpadding="0"cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="60%">
 <tr>
  <td width="29%">jurusan</td>
  <td width="71%"><select size="1" name="kode">

<%
do while not rs.eof
%>

<option value="<%=rs("kode")%>"><%=rs("jurusan")%></option>

<%
 rs.movenext
 loop

 rs.close
 cn.close
 set rs=nothing
 set cn=nothing
%>

 </select></td>
</tr>
</table>

<p><input type="submit" value="submit" name="B1">
   <input type="reset" value="reset" name="B2"></p>
</table>
</body>
</html>
Diposting oleh deliana di 01.12 0 komentar

Selasa, 29 November 2011

ASP

==Gabungan ASP dan SQL Server==

<html>
<head>
<title>seleksi aplikan berdasarkan jurusan</title>
</head>
<body>
<p>seleksi data aplikan berdasarkan jurusan</p>
<form method="post" action="lapor5.asp">
<table border="0"cellpadding="0"cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="60%">
 <tr>
  <td width="29%">jurusan</td>
  <td width="71%"><select size="1" name="kode">
  <option value="p001">business administration</option>
  <option value="p002">sekretaris</option>
  <option value="p003">komputer akutansi</option>
  <option value="p004">informatika komputer</option>
  <option value="p005">tour travel bussiness</option>
  <option value="p006">office management</option>
  </select></td>
 </tr>
</table>
<p><input type="submit" value="submit" name="B1">
   <input type="reset" value="reset" name="B2"></p>
</form>
<p>&nbsp;</p>
</body>
</html>

 ===Folder k2===


<html>
<head>
<title>menampilkan data tertentu</title>
</head>
<body>
<%
dim cn,rs,rsj
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rsj=Server.CreateObject("ADODB.Recordset")

konek="DRIVER={SQL SERVER};SERVER=USER-PC;UID=sa;"
konek=konek & "PWD=admin;DATABASE=profesi"
cn.Open konek

Mysql="select * from dbo_aplikan Where kode='"
Mysql=Mysql & request.form("kode")&"'"
Mysql1="select * from dbo_jurusan Where kode='"
Mysql1=Mysql1 & request.form("kode")&"'"

rs.Open mysql,cn
rsj.Open mysql1,cn

if rs.eof or bof then
 response.write "tidak ada data untuk jurusan" & rsj("jurusan")
 response.end
end if
%>

<p><font size="4">daftar aplikan<br>
jurusan <%=rsj("jurusan")%></font></p>
<table border="1" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="61%">
 <tr>
  <td width="8%"><font size="2">&nbsp;No.</font></td>
  <td width="41%">
  <p align=center"><font size="2">&nbsp;Nama aplikan</font></td>
  <td width="26%"><font size="2">&nbsp;tempat lahir</font></td>
  <td width="25%"><font size="2">&nbsp;tanggal lahir</font></td>
 </tr>

<%
n=0
do while not rs.eof
 n=n+1
%>

<tr>
  <td width="8%">&nbsp;<%=n%></td>
  <td width="41%">&nbsp;<%=rs("Namaaplikan")%></td>
  <td width="26%">&nbsp;<%=rs("tempatlahir")%></td>
  <td width="25%">&nbsp;<%=rs("tanggallahir")%></td>
 </tr>

<%
 rs.movenext
 loop

 rs.close
 rsj.close
 cn.close
 set rs=nothing
 set rsj=nothing
 set cn=nothing
%>
</table>
</body>
</html>
Diposting oleh deliana di 20.18 0 komentar

Minggu, 27 November 2011

SQL sqrver

""" mengisi tabel"""
insert into barang values ('B001','nama','alamat')

"""melihat isi tabel"""
select * from barang
Diposting oleh deliana di 23.36 0 komentar

SQL server

"""membuat tabel"""
create database mhs1
on primary
(name = mhs1_dat,
filename = 'E:\ik1s\mhs1_dat.mdf',
size = 2MB,
filegrowth = 1MB,
maxsize = 20MB)
log on
(name = mhs1_log,
filename = 'E:\ik1s\mhs1_log.ldf',
size = 4MB,
filegrowth = 1MB,
maxsize = 10MB)
Diposting oleh deliana di 23.31 0 komentar

Kamis, 10 November 2011

membaca sebuah record buku

<html>
<head>
<title>membaca sebuah record buku</title>
</head>
<body>
<%
dim rsbuku
set rsbuku=server.createobject("ADODB.recordset")
rsbuku.open "buku", "DSN=profesi; uid=; pwd="

response.write rsbuku("JUDUL") & "<br>"

rsbuku.close
set rsbuku=nothing
%>
</body>
</html>
Diposting oleh deliana di 01.33 0 komentar

Selasa, 18 Oktober 2011

gabungan function dg if

<html>
<head>
<title>Function</title>
</head>
<body>
<%
function nilai
nilai=75
If nilai > 65 then
    Grade="lulus"
 Else
    Grade="tidak lulus"

End If
Response.Write "Grade deliana : "&Grade&"<br>"

Hasil="Tidak Lulus"
 If nilai >65 then
  Hasil ="""anda lulus...!"""
 End If
End Function

Response.Write"Dengan Nilai : "&nilai&"<br>"
Response.Write strhasil




%>
</body>
</html>
Diposting oleh deliana di 02.35 0 komentar

belajar asp

<html>
<head>
<title>penggunaan if</title>
<body>
<form>
Masukkan nilai ujian(0-100):<input type=text name=nilai> <br>
 <nilai type=submit value="proses"> <br>
</form>
<%
  dim strnilai, strhasil , grade
  dim nilai
  strnilai =request.querystring("nilai")
  if strnilai=""then
  strnilai="0"
  end if



 
  nilai=cint(strnilai)
  response.write "Nilai Ujian Anda :"&nilai&"<br>"

if nilai<50 then
   grade="E"
 elseif nilai<60 then
   grade="D"
 elseif nilai<80 then
   grade="C"
 elseif nilai<90 then
   grade="B"
 else
   grade="A"
end if
 response.write "dengan grade:"&grade& "<br>"


  strhasil="Anda Gagal"
  if nilai>=60 then
    strhasil="""Anda Lulus...!!!"""
  end if
 
  response.write strhasil
%>
</body>
</html>
Diposting oleh deliana di 02.06 0 komentar

Jumat, 03 Juni 2011

percobaan q

akhirnya ...........
ingat uga ma email ndiri
Diposting oleh deliana di 22.55 0 komentar
Langganan: Komentar (Atom)