Biasanya kita hanya mendengar satu jenis objek ASP seperti ADO, namun ada objek akses ASP yang kurang dikenal khusus untuk SQL Server di ASP, yaitu objek SQLOLE.SQLServer. SQLOLE.SQLServer dapat langsung mengakses properti sistem SQL Server. Pernyataan Set oSQLServer = CreateObject ("SQLOLE.SQLServer") akan menghasilkan objek server SQL Server.
---- Untuk melihat kumpulan database di server ini, tersedia pernyataan:
Untuk Setiap SQLDB Di oSQLServer.Databases
Response.Write SQLDB.Name 'akan mencantumkan semua database, seperti Pub, dll.
Berikutnya
---- Untuk melihat kumpulan tabel data dalam database (seperti database PUBS), Anda dapat menggunakan pernyataan berikut:
pubDatabase=oSQLServer.Database("pub")
'oSQLServer adalah objek server SQL Server yang dibuat sebelumnya
Untuk Setiap DBTable Di pubDatabase.Tables
Respon.WriteDBTable.Nama
Selanjutnya
---- Pernyataan berikut akan mencantumkan tampilan data dalam database (database PUBS)
pubDatabase =oSQLServer.Database("pub")
'oSQLServer adalah objek server SQL Server yang dibuat sebelumnya
Untuk Setiap DBView Di pubDatabase.Views
Respon.Tulis DBView.Teks
Berikutnya
---- Pernyataan berikut akan mencantumkan prosedur yang tersimpan dalam database (database PUBS)
pubDatabase =oSQLServer.Database("pub")
'oSQLServer adalah objek server SQL Server yang dibuat sebelumnya
Untuk Setiap DBSP Di pubDatabase.StoredProcedures
Respon.Tulis DBSP.Teks
Selanjutnya
---- Hasil menjalankan program (dapatkan nama tabel datanya):
---- Dapatkan hasil proses yang tersimpan:
---- Contoh kecil lengkap source code terlampir (pembaca dengan fungsi lainnya dapat menambahkannya).
< %@ BAHASA = VBScript % >
< HTML >
<KEPALA>
< NAMA META="GENERATOR" Konten=
"Studio Pengembang Microsoft" >
< META HTTP-EQUIV="Jenis Konten"
content="text/html; charset=gb2312" >
< JUDUL >< /JUDUL >
< / KEPALA >
< %
Pada Kesalahan Lanjutkan Berikutnya
Redupkan oSQLServer
Setel oSQLServer = CreateObject ("SQLOLE.SQLServer")
strServer = "dalam"
strLogin = "sa"
strPwd = ""
oSQLServer.Hubungkan strServer,strLogin,strPwd
%>
<BODY BGCOLOR=#ffffff>
Daftar basis data
< PILIH NAMA="Database" >
<%
Untuk Setiap SQLDB Di oSQLServer.Databases
Jika Bukan SQLDB.SystemObject Lalu
Respon.Tulis "< OPTION VALUE=
""" & SQLDB.Nama & """ >" & SQLDB.Nama
& " "
Akhiri Jika
Berikutnya
Setel oSQLServer = Tidak Ada
%>
< /PILIH>
< /TUBUH >
< /HTML>