Bu yazımızda ADO OLE DB ile DSN kullanmadan Access, SQL, Oracle, Excel ve CSV dosyalarına bağlanmak için gerekli kod bloklarını göreceğiz.

Access 97/2000/XP/2003  -  Microsoft Jet Driver ile DSN kullanmadan bağlanmak

<%@LANGUAGE=VBSCRIPT%>
<%
Option Explicit
Dim strConnection, conn, rs, strSQL

strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath(".\db\db.mdb") & ";User Id=admin;Password=;"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnection

Set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM Tablom"

rs.open strSQL, conn, 3,3
rs.MoveFirst

WHILE NOT rs.EOF
     Response.Write(rs("Alanim") & "<br/>")
rs.MoveNext
WEND

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

Excel 97/2000/XP/2003  -  Microsoft Jet Driver 4.0 ile DSN Kullanmadan Bağlanmak

<%@LANGUAGE=VBSCRIPT%>
<%
Option Explicit
Dim strConnection, conn, rs, strSQL

strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath(".\excel\ExcelDosyam.xls") & ";" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnection

Set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM Tablom"
rs.open strSQL, conn, 3,3

rs.MoveFirst
WHILE NOT rs.EOF
     Response.Write(rs("Alanim") & "<br/>")
rs.MoveNext
WEND

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

Comma Separated Values (.csv) Dosyadan Veri Okuma - Microsoft Jet Driver 4.0 ile DSN' siz

<%@LANGUAGE=VBSCRIPT%>
<%
Option Explicit
Dim strConnection, conn, rs, strSQL

strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath(".\csv\") & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"""

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnection

Set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM Ornek.csv"
rs.open strSQL, conn, 3,3

rs.MoveFirst
WHILE NOT rs.EOF
     Response.Write(rs("Alanim") & "<br/>")
rs.MoveNext
WEND

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

Oracle Database Connection String - Oracle OLEDB Driver ile DSN'siz

<%@LANGUAGE=VBSCRIPT%>
<%
Option Explicit
Dim strConnection, conn, rs, strSQL

strConnection = "Provider=OraOLEDB.Oracle;"Data Source=OracleDBase;" & _
"User Id=user;"Password=password;"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnection

Set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM Tablom"
rs.open strSQL, conn, 3,3

rs.MoveFirst
WHILE NOT rs.EOF
     Response.Write(rs("Alanim") & "<br/>")
rs.MoveNext
WEND

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

SQL Server Database Connection String - Microsoft SQL Server OLEDB Driver ile DSN' siz

<%@LANGUAGE=VBSCRIPT%>
<%
Option Explicit
Dim strConnection, conn, rs, strSQL

strConnection = "Provider=sqloledb;Data Source=SQLServerName;" & _
"Initial Catalog=DBaseName;User Id=sa;Password=password;"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnection

Set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM Tablom"
rs.open strSQL, conn, 3,3

rs.MoveFirst
WHILE NOT rs.EOF
     Response.Write(rs("Alanim") & "<br/>")
rs.MoveNext
WEND

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

Elbette örneklerde verilen veritabanı adreslerini, adlarını, tablo ve alan adlarını kendi veritabanınıza göre yeniden düzenlemeyi unutmayın...

Anahtar Kelimeler : SQL, Oracle, ADO, OLEDB, ADODB.recordset, Excel, Server.CreateObject, Connection, DSN, CSV, Jet

Dersleri RSS ile takip edin...

Firmanızı, ürün ve hizmetlerinizi, kelime ya da harf kisitlamasi olmadan, fotograf, video, ses, müzik ve benzeri materyalleri kullanarak, üstelik zaman kisitlamasi da olmadan, ücretsiz olarak tanitabileceginizi biliyormusunuz ? Forumumuzda Ticaret Basligi altinda sinirsiz tanitim imkanini kaçirmayin...

   Sitenizi, Blogunuzu, Forumunuzu kod ekleme derdi olmadan, spam maillere bogulmadan, uzun uzun anlatin, resimler ve benzeri materyallerle destekleyerek Web Siteleri ve Bloglar basligi altinda tanitin...