A
B
C
Ç
D
E
F
G
Ğ
H
I
İ
J
K
L
M
N
O
P
R
S
Ş
T
U
Ü
V
Y
Z
Q
W
X
+ Ekle
ASP ile Access Veritabanına Bağlanma - Kayıt Çekme

ASP ile Access Veritabanına Bağlanma - Kayıt Çekme

 <%

Dim VT,VeriSeti,SQL
Set VT = Server.CreateObject("ADODB.Connection") 
VT.Open=("Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=" & Server.MapPath("web.mdb"))
 
SQL="SELECT * FROM tablo"
Set VeriSeti = VT.Execute(SQL)
 
if VeriSeti.EOF then
Response.Write ("Sorgu sonucu bulunmamaktadır. ")
else
Response.Write ("Sorgu sonuçları <BR>")
 
while not VeriSeti.EOF
Response.Write  VeriSeti("ID")
Response.Write VeriSeti("<BR>")
VeriSeti.MoveNext
wend
end if
%>
  Ad Soyad
  Yorum