Yönetim paneli gibi veritabanı olan asp projelerinde en çok kullanılan kod scriptleridir.Veritabanı ile üç belirli işlem yapılır.Bunlar;

1-)Veritabanına Kayıt Ekleme
2-)Veritabanındaki Kaydı Güncelleme
3-)Veritabanından Kayıt Silme

Bunların dışında veritabanına bağlanma koduda vardır.Veritabanı olarak access,sql ve mysql kullanılır.Günümüzde yaygın olarak sql ve mysql kullanılır.[...]

VERİTABANINA BAĞLANTI KODU

ACCESS:

Set DB_BAGLANTISI=SERVER.CREATEOBJECT("ADODB.CONNECTION")
YOL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SERVER.MAPPATH("veritabani_yolu") & ";"
DB_BAGLANTISI.OPEN YOL

SQL:

Set DB_BAGLANTISI=Server.CreateObject("Adodb.Connection")
DB_BAGLANTISI.Open "driver={SQL Server};server=ip;uid=kullanıcı_adi;pwd=sifre;database=veritabani_adi"

MYSQL:

<%
Set DB_BAGLANTISI= Server.CreateObject("ADODB.Connection")
DB_BAGLANTISI.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=ip_numarasi; USER=kullanıcı_adi; PASSWORD=sifre; DATABASE=veritabani_adi; PORT:3306; OPTION=35;"%>

VERİTABANINA KAYIT EKLEME

ACCESS:

set ekle=server.createobject("adodb.recordset")
tablo="select * from tablo_adi"
ekle.open tablo,DB_BAGLANTISI,1,3
ekle.addnew
ekle("alan_adi")=request.form("form_nesnesi")
ekle.update
ekle.close

SQL ve MYSQL dede kayıt ekleme kodu aynıdır.Ancak farklı bir kodla daha kayıt eklenebilir:

DB_BAGLANTISI.ExeCute("insert into tablo_adi Alan_adi="&REQUEST.FORM("form_nesnesi")&")

VERİTABANINDA KAYIT GÜNCELLEME

ACCESS:

set duzenle=server.createobject("adodb.recordset")
tablo="select * from tablo_adi where id=" & request.form("id")
duzenle.open tablo,DB_BAGLANTISI,1,3
duzenle("alan_adi")=request.form("form_nesnesi")
duzenle.update
duzenle.close

SQL ve MYSQL dede kayıt güncelleme kodu aynıdır.Ancak farklı bir kodla daha kayıt güncellenebilir:

DB_BAGLANTISI.Execute("update tablo_Adi Set alan_adi="&REQUEST.FORM("form_nesnesi")&" ")

VERİTABANINDAN KAYIT SİLME

ACCESS-SQL:

set sil=server.createobject("adodb.recordset")
tablo="delete * from tablo_adi where ID=" &request.QueryString("id")
sil.open tablo,DB_BAGLANTISI,1,3

MYSQL:

set sil=server.createobject("adodb.recordset")
tablo="delete from tablo_adi where ID=" &request.QueryString("id")
sil.open tablo,DB_BAGLANTISI,1,3



MDalbas

13 Mart 2010 21:15