“Yazılım tasarımı yapmanın iki yolu vardır: Birinci yol yazılımda hiçbir problem olmayacak kadar basit bir tasarım yapmaktır, ikinci yöntem ise görünürde hiçbir problem olmayacak kadar karmaşık bir tasarım yapmaktır. Birinci yöntem çok daha zordur.”
C.A.R. Hoare

Sql Server´a ASP ile Bağlantı ve Dört İşlem

Sql Server´a ASP ile Bağlantı ve Dört İşlem
Lafı fazla uzatmadan hemen kodlara geçiyorum. Kod yazmadan önce MsSql Server içinde okul isminde bir database oluşturup bunun içinde Uyeler isminde tablo oluşturmalısınız. Bu tablonun içinde uyeID(int, PK) ve ad(nvarchar,50) isminde hücreleriniz olması yeterlidir.

Kodlarla DataBase ve tablo oluşturmak için Query Analyzer´da aşağıdaki kodları kullanabilirsiniz:
CREATE DATABASE okul
GO
use okul
CREATE TABLE Uyeler
(uyeID int identity(1,1),
ad nvarchar(50) NOT NULL
PRIMARY KEY (uyeID)
)

SqlServer´a bağlantı kodları aşağıdaki gibidir:

<% Set baglan=Server.CreateObject("Adodb.Connection")
baglan.Open "driver={SQL Server};server=localhost;uid=sa;pwd=;database=okul" %>

Bu kodlarla server´a bağlandıktan sonra tabloya bağlanmak için aşağıdaki kodları kullanabiliriz:
<% Set Rs = baglan.ExeCute("select * from Uyeler") %>

Kayıtları listeletmek için:
<% Do while not Rs.Eof Response.Write Rs("ad")+"
" Rs.MoveNext:Loop %>

Kayıt Eklemek İçin:
<% baglan.ExeCute("insert into uyeler (ad) values (´Ali´) ") %>

Kayıt Silmek İçin:
<% 'Bütün tablo içindekileri silmek için: 
baglan.ExeCute("delete from uyeler ") 'Sadece belirtilen kayıtları silmek için:
baglan.ExeCute("delete from uyeler where ad = ´Ali´ ") %>

Güncelleme Yapmak İçin:
<% 'Bütün isimleri Ahmet yapmak için: 
baglan.ExeCute("update uyeler set ad= 'Ahmet' ")
'Adı Ali olanları Ahmet yapmak için:
baglan.ExeCute("update uyeler set ad= 'Ahmet' where ad = 'Ali' ") %>

Bu kodlarla temel işlemleri gerçekleştirebilirsiniz.