Asp ile SQL bağlama

[rebel_]

Ağalar bana kısa bir script lazım Asp ile sql veritabanını bağlamak istiyorum ama ben komut bulup bunları beceremedim şimdiye kadar her zaman acces kullanıyordum yardım ederseniz cok sevinirim...

Ufak bir üye kayıtı ve üye girişi için kullanacağım arkdaşlar.:melek

 

[Chyrso®]

uye adında tablo acalım ve sütunları oluşturalım
id = otomatik sayı
uye_ad = metin
sifre = metin
mail = metin

db.asp diye kaydederisin.

Db bağlantımız

bu sekilde db bağlantısı yaparsın..

<% 
Set Bag = Server.CreateObject("ADODB.Connection") 
Bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") 
Set Rs=Server.CreateObject("Adodb.Recordset") 
%>

Giris.asp diye 1 dosya yarat.
içine bu şekilde kod yazmalısın tabi neler ekleyeceksin onları db e göre eklemeler yapabilirsin.

<form action="giris_kontrol.asp" method=post> 
<TABLE height=44 width=218 border=0> 
<TR><TD width=96 height=19><b><font face="Verdana" size="1">Kullanıcı Adı :</font></b></TD> 
     <TD width=112 height=19><INPUT maxLength=25 size=19 name=uye_ad></TD></TR> 
<TR><TD width=96 height=17><FONT face=Verdana size=1><B>Şifre :</B></FONT></TD> 
     <TD width=112 height=17> 
    <INPUT type=password maxLength=20 size=19 value="" name=sifre></TD></TR> 
     
<TR><TD colspan=2 width=96 height=17> 
     <INPUT type=hidden value=login name=login> 
    <p align="left"> 
    <INPUT type=submit value="   Giriş   "></TD></tr> 
</TABLE> 
</form>

Daha sonra 1 giris_kontrol.asp dosyası aç ve kaydet.
buda kontrol ettircek dosyamız.

<%Response.Buffer=True%> 
<!--#include file="db.asp"--> 

<% 
uye_ad = Replace(Request.Form("uye_ad"), "'", "") 
sifre = Replace(Request.Form("sifre"), "'", "") 
set rs = bag.execute("SELECT * FROM uye WHERE uye_ad='" & uye_ad & "' AND sifre='" & sifre & "'") 
If RS.BOF And RS.EOF Then 'Kullanıcı adı veya şifre yanlış. 
%> 
Bilgilerini Yanlış Yazdın Kardeş <br><a href="giris.asp">Baştan dene</a> 

<% 
else 
    'Giris tamam 
    session("giris1")="evet" 


    Session("uye_ad") = uye_ad 
    Session("sifre") = sifre 
    response.redirect("giris1.asp") 
end if

giriş1.asp diye 1 dosya aç ..

içine bu kodu yerleştir.

<%if session("giris1")="evet" then %> 
Merhaba <%=session("uye_ad")%> 
<%end if%>

uye_kayit.asp diye 1 dosya aç.

<!--#include file="db.asp"--> 
<% 
if request("add")<>"" then
if uye_ad="" then 
response.write "<font size=1 face=verdana><center>Kullanıcı adını yamadın geridön...</font>" 
response.end 
end if 

if sifre="" then 
response.write "<font size=1 face=verdana><center>Şifre sifreyi yazmadın geridön...</font>" 
response.end 
end if 

if instr(mail,"@") = 0 then 
response.write "<font size=1 face=verdana><center>E - Mail Adresinizi Doğru Yaz.." 
response.end 
end if 

 
     Rs.ActiveConnection = bag 
     Sorgu="SELECT * FROM uye WHERE id="& id &"" 

        rs.open "uye",bag,3,2 
          rs.addnew 
          rs.fields ("uye_ad")=request("uye_ad") 
          rs.fields ("sifre")=request("sifre") 
          rs.fields ("mail")=request("mail") 

          rs.update 

session("giris1")="evet" 
Session("uye_ad")=rs("uye_ad") 
Session("sifre")=rs("sifre") 
           
Response.Redirect("giris1.asp") 

end if 
%> 


<form action="uye_kayit.asp" method=post> 
<TABLE height=44 width=218 border=0> 
<TR><TD width=96 height=19><b><font face="Verdana" size="1">Kullanıcı Adı :</font></b></TD> 
     <TD width=112 height=19><INPUT maxLength=25 size=19 name=uye_ad></TD></TR> 
<TR><TD width=96 height=17><FONT face=Verdana size=1><B>Şifre :</B></FONT></TD> 
     <TD width=112 height=17><INPUT maxLength=20 size=19 value="" name=sifre></TD></TR> 
<TR><TD width=96 height=17><FONT face=Verdana size=1><B>Mail :</B></FONT></TD> 
     <TD width=112 height=17><INPUT maxLength=20 size=19 value="" name=mail></TD></TR> 
<TR><TD colspan=2 width=96 height=17> 
     <input type="hidden" name="add" value="1"> 
    <INPUT type=submit value="Kayıt Ol"></TD></tr> 
</TABLE> 
</form>

10 dk da yazıverdim..
insallah işine yarar

 

[rebel_]

10 dk da yazıverdiğin komutlar için tşk ederim ama bana asp ile sql bağla acces veritabanını değil

 

[Chyrso®]

<%
set baglan1=Server.CreateObject("ADODB.Connection")
TEMP="DRIVER={SQL Server}; server=SERVER2;database=db adı"
baglan1.open temp
set islem1=baglan1.execute(komut1)
set islem2=baglan1.execute(komut2)
%>

 

[rebel_]

daha iyi anlatabilecek olan yada bi download dosyası verebilecek olan yook mu?

 

[xander]

eline sağlık Chyrso® manyak olmuş teşekürler..

 

[Chyrso®]

MS SQL bilmeden SQL ıle ugrasmak mantıksız once sql ogrenmen lazım..
eger bunu okuyosan bu sekılde yapacaksın...

<%
Set Baglantim=Server.CreateObject("Adodb.Connection")
Baglantim.Open "driver={SQL Server};server=serverismi;uid=site;pwd=sifre;database=veritabani"
%>

Oluşturduğumuz tablo'dan veri sıralamak için ise bağlantı kodunuzun hemen altına

<%
set rs = Baglantim.execute("select * from tablo")
do while not rs.eof
response.write rs("id") & "." & rs("isimler") & "<br>"
rs.movenext
loop
%>

eger cok fazla sql ile ugrascam diyorsan ve sql bilmiyosan..
mdb dosyası olarak kodlarsın.
mdb dosyanı sql a convert edersin sonra baglantı noktanı değistirirsin