ASP'DE VERİTABANINA BAĞLANMAK

ASP'DE VERİTABANINA BAĞLANMAK

Bu yazımda 'examples.mdb' olarak adlandırılan bizim Access veritabanına bağlanmak ve tablo 'araba' tüm kayıtları almak için nasıl göstereceğim.

Active Server Pages gücü web sitelerimiz için veritabanları kravat zaman yoluyla gelir. Bir veritabanına bağlanmak için, ASP kısaca ActiveX Data Objects, veya ADO olarak adlandırılan kullanır. ADO ASP ile gelir, ve ASP sayfaları kolayca kullanılabilir.

İlk başta bağlantı nesnesinin bir örneğini oluşturmak ve kullanmayı düşündüğünüz sürücüyü bağlanmak istediğiniz veritabanının konumunu beslemek gerekir. Bu amaçla bir bağlantı dizesi kullanır. Bir ODBC veya OLEDB bağlantı dizesi seçebilirsiniz. Daha hızlı ve daha kararlı olduğu gibi biz örneğinimizde OLEDB kullanacağız. Sonra, veritabanına bağlantıyı açmak gerekir:

<%
'Yeni bağlantı nesnesi yapacak değişken bildirmek
Dim Bağlantı
'Bir ADO bağlantı nesnesi oluşturmak
Bağlantı = Server.CreateObject ("ADODB.Connection") Set

'Bağlantı dizesi yapacak değişken bildirmek 
Dim ConnectionString
', Bağlantı dizesi tanımlamak veritabanı sürücüsü belirtin ve veritabanının yeri
ConnectionString = "SAĞLAYICI = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = c: \ inetpub \ wwwroot \ db \ examples.mdb"

'Veritabanı bağlantısını açmak
Connection.Open ConnectionString
%>

Şimdi bizim veritabanımıza etkin bir bağlantı var.'Arabalar' tablosundaki tüm kayıtları almak izin. Bunun için biz kayıt nesnesinin bir örneğini oluşturmak ve bir SQL deyimi kullanmak zorundayız.

<%
'Bizim yeni bir nesne yapacak değişken bildirmek
Dim Recordset
'Bir ADO kayıt kümesi nesnesi oluşturmak
Recordset = Server.CreateObject ("ADODB.Recordset") Set

'SQL deyimi yapacak değişken bildirmek
Dim SQL
SQL = "OTOMOBİLLER SELECT *"

'SQL deyimini ve dönüş kayıtları yürütülmesi kayıt nesnesini açın
Recordset.Open SQL, Bağlantı
%>

Bu yüzden şimdi onları tarayıcıda çıktısını elde edelim, SQL deyimi dayalı bir kayıta döndü.

<%
'Her şeyden önce herhangi bir kayıt olup olmadığını belirlemek
Recordset.EOF Daha sonra ise
Response.Write ("Hayır kayıtlar döndürülür.")
Başka
Alanları ile 'kayıt varsa döngü
Yapmak Recordset.Eof DEĞİL da  
Response.Write Recordset ("Ad")
Response.Write Recordset ("Yıl")
Response.Write Recordset ("Fiyat")
"<br>" Response.write     
Recordset.MoveNext
Döngü
End If
%>

Son olarak, sunucuda nesneleri ve kaynakları ücretsiz kapatmak gerekir.