İletileri Göster

Bu özellik size üyenin attığı tüm iletileri gösterme olanağı sağlayacaktır . Not sadece size izin verilen bölümlerdeki iletilerini görebilirsiniz


Mesajlar - OLCAY

Sayfa: 1 ... 439 440 [441] 442 443 ... 495
6601
Düşünce Üzerine!... / kandırma
« : Ekim 03, 2007, 08:29:42 ÖS »
Bende talha ya katılıyorum. Eğer insanda vicdan yoksa kandıramaz. En azından ben aklımı başka yere dağıtmaya çalışıyom ama içimdeki ses sürekli gerçeği fısıldıo. Demek ki hala vicdan sahibiyim  :yima

6602
Düşünce Üzerine!... / iyi olmak mı zor? güçlü olmak mı?
« : Ekim 03, 2007, 08:28:03 ÖS »
Bence iyi olmak zor  :cig çünkü saf temiz hareket eden insanları her zaman kullanırlar onlardan kendi emelleri doğrultusunda faydalanırlar.  :(  die düşünüyorum.

6603
Ünlüler Galerisi / Beyonce resimleri..
« : Ekim 03, 2007, 08:21:19 ÖS »
Kime dion bak işte die? Abbas a mı ? :kat

6604
"Her doğru her zaman söylenmez"  :ok diom başka bişi demiom...

6605
Forum Oyunları / Şuan saat kaç?
« : Ekim 02, 2007, 08:11:16 ÖS »
saat 20 10 fener 1-0 öndeydi ama son durum hakkında bi bilgim yok.  :.y

6606
ASP / Sunucunuzda yüklü olan bileşenler
« : Ekim 01, 2007, 01:41:09 ÖS »
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>Sunucunuzda yüklü olan bileşenler.</title>
</head>

<body>
<%
Dim aComponents(6
aComponents(1) = "ADODB.Command"
aComponents(2) = "ADODB.Connection"
aComponents(3) = "ADODB.Recordset"
aComponents(4) = "ADODB.Stream"
aComponents(5) = "ADOX.Catalog"
aComponents(6) = "AspDNS.Lookup"
aComponents(7) = "ASPExec.Execute"
aComponents( = "AspHTTP.Conn"
aComponents(9) = "AspImage.Image"
aComponents(10) = "AspMX.Lookup"
aComponents(11) = "AspNNTP.Conn"
aComponents(12) = "AspPing.Conn"
aComponents(13) = "AspSock.Conn"
aComponents(14) = "CDO.MESSAGE"
aComponents(15) = "CDONTS.NewMail"
aComponents(16) = "Dundas.Mailer"
aComponents(17) = "Dundas.PieChartServer"
aComponents(1 = "Dundas.PieChartServer.2"
aComponents(19) = "Dundas.Upload"
aComponents(20) = "Dundas.Upload.2"
aComponents(21) = "Dundas.UploadProgress"
aComponents(22) = "ECHOCom.Echo"
aComponents(23) = "GuidMakr.GUID"
aComponents(24) = "ImgSize.Check"
aComponents(25) = "ixsso.Query"
aComponents(26) = "ixsso.Util"
aComponents(27) = "JMAil.Message"
aComponents(2 = "JMail.POP3"
aComponents(29) = "JMail.SMTPMail"
aComponents(30) = "JRO.JetEngine"
aComponents(31) = "Microsoft.DiskQuota.1"
aComponents(32) = "microsoft.XMLDOM"
aComponents(33) = "Microsoft.XMLHTTP"
aComponents(34) = "MSWC.AdRotator"
aComponents(35) = "MSWC.BrowserType"
aComponents(36) = "MSWC.ContentRotator"
aComponents(37) = "MSWC.Counters"
aComponents(3 = "MSWC.IISLog"
aComponents(39) = "MSWC.MyInfo"
aComponents(40) = "MSWC.MyInfo"
aComponents(41) = "MSWC.NextLink"
aComponents(42) = "MSWC.PageCounter"
aComponents(43) = "MSWC.PermissionChecker"
aComponents(44) = "MSWC.Status"
aComponents(45) = "MSWC.Tools"
aComponents(46) = "MSXML.DomDocument"
aComponents(47) = "MSXML2.DOMDocument"
aComponents(4 = "MSXML2.DOMDocument.3.0"
aComponents(49) = "Msxml2.FreeThreadedDOMDocument.3.0"
aComponents(50) = "MSXML2.ServerXMLHTTP"
aComponents(51) = "MSXML2.ServerXMLHTTP.3.0"
aComponents(52) = "MSXML2.XSLTemplate"
aComponents(53) = "Persits.Grid"
aComponents(54) = "Persits.Jpeg"
aComponents(55) = "Persits.MailSender"
aComponents(56) = "Persits.Upload"
aComponents(57) = "Persits.Upload.1"
aComponents(5 = "Persits.UploadProgress"
aComponents(59) = "POP3svg.Mailer"
aComponents(60) = "Scripting.Dictionary"
aComponents(61) = "Scripting.FileSystemObject"
aComponents(62) = "Scriptlet.TypeLib"
aComponents(63) = "SMTPsvg.Mailer"
aComponents(64) = "SOFTWING.AspTear"
aComponents(65) = "VBScript.RegExp"
aComponents(66) = "WinHttp.WinHttpRequest.5.1"
aComponents(67) = "WScript.Network"
aComponents(6 = "WScript.Shell"
Response.write("<b>Sunucunuzda Yüklü Olan Bileşenler:</b><BR><BR>")
On Error Resume Next
For i=1 To Ubound(aComponents)

Set obj = Server.CreateObject(aComponents(i))
if err.number = 0 Then
Set obj = nothing
Response.write(aComponents(i) & "<BR>")
End if
err.clear
next
%>
</body>

</html>

6607
ASP / Online Üyeler
« : Ekim 01, 2007, 01:40:27 ÖS »
Bu uygulamada kayıtlı üyelerimizin aktif olup olmadığının nasıl gösterildiğini sıralayalım.

Veritabanımızda uyeler adında tablo olsun ve id(autonumber),username(text),songiris(date/time) adında 3 tane alan adımız olsun.

Üye girişi yapıldığı zaman üyemizin adını session("user") adına bağlamamız lazımki ona göre her sayfamızda güncelleme yapacağız.

<%
' baglantim degiskenindeki veritabanı bağlantınız buraya

Session.LCID = 1033

set RS = server.createobject("ADODB.Recordset")
sql = "select * from uyeler where kadi = '" & user & "' "
RS.open sql,baglantim,1,3

if not RS.eof then
RS("son_tarih")=now()
RS.update
end if

RS.close
set RS = nothing
Session.LCID = 1055
%>

Kullanıcı adını session("user")'a göre seçim yapıp songiris adlı alanımızdaki tarihe şimdiki zaman'ı alıyoruz.
NOT : Bu üstteki kodumuz her sayfanızın başında olmalıdı.Diğer sayfalarda olmazsa yenileme yapılamazsa kullanıcı sitede olduğu halde olmadığı gösterilir.


şimdi ise online kullanıcılarımızı ekrana yazdıralım.


<%
Session.LCID = 1033
tarih1 = now()
tarih2 = DateAdd("n" , -5, Now())

set RS1 = server.createobject("ADODB.Recordset")
sql2 = "select * from uyeler where songiris between #" & tarih1 & "# and #" & tarih2 & "# "
RS1.open sql2,baglantim,1,3

do while not RS1.eof
response.write RS1("username") & ", "
RS1.movenext
loop

Session.LCID = 1055
%>

Bu kod ilede ekrana hangi üyelerin aktif olduğunu yansıttık.
Mantığı basittir.Siz her sayfada üyenin son giriş tarihini veritabanındaki songiris adlı alan'a yazdırıyorsunuz.Sonra ekrana şimdi ile 5 dk öncesi arasındaki kullanıcıları ekrana yazdırıyorsunuz.

Eğer mysql ve mssql veritabanı kullanıyorsanız session.lcid satırlarını kullanmanıza gerek yok.

6608
ASP / Puan Sistemi
« : Ekim 01, 2007, 01:39:57 ÖS »
Bu makale'de herhangi bir içeriğimize nasıl oy sistemi yapabileceğimizi yazacağız.İçerik olarak genel dememin sebebi bu herhangi birşey olabilir.
Puan sisteminin mantığında ise;
2 adet alanımız olur ve puan verildiği zaman o içeriğe ait olan Puan veren kişi sayısı 1 arttırılır ve toplam puan adlı alanımıza verilmiş puan eklenir.Bir daha oy vermemesini sağlamak için cookie gönderilir(Tamamen engellenmez).O içeriğe ait olan puan gösterilirken toplam puan, puan veren kişi sayısına bölünür ve böylece puan gösterimi yapılmış olur.İsterseniz IF 'li bir döngü ile yıldız sistemi yapabilirsiniz.
Puan sistemine başlamadan önce içerik tablomuz hazır olsun.Bu içerik tablomuzda 2 adet alan oluşturacağız.

Bu alanlar aşağıdadır.

ToplamPuan(Number)
ToplamKisi(Number)

Bu alanları oluşturup değerleri üstteki gibi ayarladıktan sonra sayfamıza geçelim ve puan vermek için bir form oluşturalım.
BU formu hazırlarken içeriğimizin id numarasını almalıyız.Bu id numarası hangi içeriğe oy verdiğimizi belirleyecek.
Anlatımda id numarasını "id" değişkeninde olduğunu varsayacağım.Bu id numarasını genelde o içeriğe ait detayları gösterirken Querystring ile aldığımız değer olabilir.
Şimdi formu oluşturalım, 1 'den 10 'a kadar puanlarımız olsun.Bu rakamı istediğiniz gibi arttırabilirsiniz.
________________________________________

<form name="frmPuan" method="post" action="PuanVer.asp">
<select name="sPuan" size="1">
<% For i=0 To 10 %><option><%=i%></option><% Next%>
</select>
<input type="hidden" name="id" value="<%=id%>"
</form>
________________________________________

Formumuz yukarıdadır.Bu form "post" yöntemi ile PuanVer.asp adlı oluşturacağımız sayfamıza gönderilecektir.Bu sayfada ise veritabanımızdaki o id ye ait kayıdı seçtirip Puan veren kişi sayısını 1 arttıracağız ve Toplam puan'a verilen puan 'ı ekleyeceğiz.

"PuanVer.asp" adlı sayfamız aşağıdadır.Genel olarak alan ve tablo ismi yazacağım.Kendi bilgilerinizi yazmanız gerekmektedir.
________________________________________

<%
'ObjConn isminde veritabanı bağlantınız buraya..

strSQL = "Select * from Tabloismi Where id = " & Request.Form("id") & ""
Set ObjRS = Server.CreateObject("Adodb.Recordset")
ObjRS.Open strSQL,ObjConn,1,3

ObjRS("ToplamPuan")=ObjRS("ToplamPuan")+Request.Form("sPuan")
ObjRS("ToplamKisi")=ObjRS("ToplamKisi")+1
ObjRS.Update

'İsterseniz bir daha göndermesini engellemek için cookie gönderimini burada yapabilirsiniz.Hemen altta örnek bir kod yazdım.

Response.Cookies("IcerikPuan")(Request.Form("id"))=Request.Form("sPuan")
Response.Cookies("IcerikPuan").Expires = #01/10/2020#
%>
________________________________________


Evet puan kayıt işlemide yapılmış oldu.Örnek olarak bir cookie yolladık, bu cookie'de içeriğin id numarası ve karşılığı olarak göndermiş olduğu puanı yazdık.
Şimdi bu puanı nasıl göstereceğimizi öğreneceğiz.Yazacağım kodlarda ise veritabanınızdan querystring ile aldığım id ye göre içerik seçilecek ve bu içeriğin puan'ı yazdırılacak.
________________________________________

<%
'ObjConn isminde veritabanı bağlantınız buraya..

strSQL = "Select * from Tabloismi Where id = " & Request.Form("id") & ""
Set ObjRS = Server.CreateObject("Adodb.Recordset")
ObjRS.Open strSQL,ObjConn,1,3

If ObjRS("ToplamKisi") <> 0 Then
Response.Write "Puan : " & Round(ObjRS("ToplamPuan") / ObjRS("ToplamKisi"),1)
Else
Response.Write "Bu içeriğe puan verilmemiştir."
End If
%>
________________________________________

İçeriğe ait puanımızı yazdırdık.Yapmamız gerek herşey bukadar.
Önemli Not : Veritabanınıza içeriğinizi eklerken ToplamKisi ve ToplamPuan adlı alanlarınıza "0" değerinin eklendiğinden emin olmalısınız.

Extra olarak cookie'ye göre nasıl form çıkarıp gösterimi yapılacağını görelim.Yukarıda gönderilen cookie değerlerine göre işlem yapacağız.İçeriğimizin "id" numarasına gösterildiği sayfada yapacağız bu işlemi.Veritabanındaki kayıdın numarasını "id" olarak kabul ediyoruz tekrardan.
________________________________________

<%
IcerikIDPuan = Request.Cookies("IcerikPuan")(id)
If IcerikIDPuan <> "" Then
Response.Write "Bu içeriğe " & IcerikIDPuan & " puan vermişsiniz."
Else
%>
'Yukarıdaki puan verme formunu buraya koyabilirsiniz.
<% End If %>
________________________________________


Evet bunuda öğrendiğimize göre sonbirşey kalıyor.Puanlarımızı yıldız olarak göstermek;
Bunu yapmamız zorunlu değildir fakat yapmak isteyenler olabilir.İçeriğimizin puanı kadar for döngüsü yapabiliriz.O kadar yıldız çıkabilir.
Bunun için bize bir adet .gif dosyası gerekiyor.Bunu yıldız olarak kabul edelim ve ismide "Doluyildiz.gif" olsun.Birde kaç puan üzerinden olduğunu belirlemek için "Bosyildiz.gif" adlı bir resim daha hazırlayın.
Aşağıda buna göre bir döngü yapacağız.İçeriğimizin gösterildiği adresde yine veritabanımızdan alanı seçtirelim ve puanımızı yazdıralım
________________________________________

<%
'Veritabanımızdan ObjRS ile yukarıda örneklerdeki gibi id ye göre kayıt seçtirdik.

If ObjRS("ToplamKisi") <> 0 Then
IcerikPuan = Round(ObjRS("ToplamPuan") / ObjRS("ToplamKisi"),0)
For i=1 to 10
If i<IcerikPuan Then
Response.Write "<img src=doluyildiz.gif>"
Else
Response.Write "<img src=bosyildiz.gif>"
End If
Next

Else
Response.Write "Bu içeriğin puanı yoktur."
End If
%>

Evet böylece yıldız sistemimizi de yapmış olduk.Burada bir 1 den 10 a kadar bir döngü başlatıyoruz.Bu döngüde eğer döngünün sırası yani "i" içeriğimizin puanından küçük ise dolu yıldız, değil ise boş yıldız resmi ekrana çıkartıyoruz.Bu resimler yanyana çıkacak ve toplamda 10 adet yanyana yıldız çıkacaktır.

6609
ASP / Persits.Jpeg ile resim üzerine yazı yazdırma
« : Ekim 01, 2007, 01:38:36 ÖS »
ASPJpeg ile resimler üzerine yazı yazma, boyut ayarlama gibi işlemleri yapabiliriz.

ASPJpeg ile ilgili örnek olarak aşağıdaki kodu verilebilir.

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("resim.jpg")
Jpeg.Open Path
Jpeg.Canvas.Font.Color = &000000
Jpeg.Canvas.Font.Family = "ARIAL"
Jpeg.Canvas.Font.Bold = FALSE
Jpeg.Canvas.Print 40, 10, "MS-BLOG"
Jpeg.Canvas.Pen.Color = &000000
Jpeg.Canvas.Pen.Width = 0
Jpeg.Canvas.Brush.Solid = False
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
Jpeg.SendBinary
%>


Böylece resim.jpg adlı resim dosyamız üzerine MS-BLOG şeklinde siyah renk de yazı yazdırdık.Görüldüğü gibi 40,10 rakamları ile tam olarak nereden yazmaya başlanacağını belirledik.
En son olarak Jpeg.sendbinary diyerek de bu resmimizi ekrana çıkarttık.

NOT : Bu yeni oluşan resmi ekrana çıkarttıktan sonra kaydetmek istenirse kodun en altına

<% Jpeg.Save Server.MapPath("yeniresim.jpg") %>

kodunun eklenmesi yeterli olacaktır.

6610
ASP / ASP ile MySQL Veritabanını kullanmak
« : Ekim 01, 2007, 01:37:53 ÖS »
ASP İLE MySQL VERİTABANINA BAĞLANTI YAPMAK VE KULLANMAK

Merhaba ASP Coder’ları. Bugün Access’dan uzaklaşacağız ve farklı bir veritabanına değineceğiz.

MySQL veritabanı, Access’e göre aynı anda daha fazla kullanıcının bağlanacağı, zor işlemler yapacağı fakat yine de Access’ten çok daha performanslı bir veritabanıdır. MySQL veritabanları bir hosting müşterisinin indirebileceği dosyalar değildir. Müşteri sadece veritabanını açar, içine tablolarını yapar, verileri doldurur, veritabanını kullanır fakat dosyalar sunucunun, müşterinin erişemeyeceği bir kısmında depolanır.

Eğer projenizi internette de yayımlamayı düşünüyor iseniz sunucu yöneticisiyle görüşün. MySQL’in kurulu olup olmadığını öğrenin.

Access’te hatırladığınız gibi *.mdb dosyalarımızı projemiz içinde taşıyarak istediğimiz zaman kullanabiliyorduk. Fakat bu MySQL’de mümkün değil. Biraz daha açıklamamız gerekecek:

MySQL veritabanı da Microsoft SQL Server gibi, dosyaları sunucuda C:Program FilesMySQLin gibi bir klasör içinde tutar ve herhangi bir müşteri buraya ulaşamaz. Ayrıca bu dosyalar sistem dosyalarıdır ve doğrudan proje içinde kullanılamaz. Yani o klasördeki dosyalar ile bizim bir ilgimiz yok.

IIS üzerine MySQL Server ve MyODBC Kurulumu
Öncelikle dosyaları indirelim:
http://dev.mysql.com/downloads/
adresinden girip MySQL 5.0 gibi bir dosya ve bir MyODBC indireceksiniz. Bu dosyalar tamamen ücretsizdir ve GNU/GPL lisansı altında kullanılmaktadır.

Ben en güncel linkleri vereyim:
MySQL 5.0: http://dev.mysql.com/get/Downloads/MySQL-5.0/mysql.../from/pick


MyODBC 3.51:
http://dev.mysql.com/get/Downloads/MyODBC3/mysql-c.../from/pick

Adreslere girerek bir mirror seçin ve indirmeye başlayın. Dosyaların inmesi tamamlandıktan sonra MySQL 5.0’ı kuracağız.

Mysql-5.0.24-win32.zip dosyasını açıp Setup.exe den kurmaya başlıyoruz. Çok ayar yapmaya gerek yok Next’e basarak geçebilirsiniz. Dosyaların kurulumu bittikten sonra “Would you like to configure MySQL Server now?” diye bir soru soracaktır. Yes diye cevaplayalım ve veritabanımızı yapılandıralım.

Yine Next diyerek geçebiliyorsunuz. Kullanıcı adı ve şifre sorduğu zaman ikisine de “root” yazalım. Daha sonra devam edip kurulumu bitirelim.

Daha sonra mysql-connector-odbc-3.51.12-win32.msi dosyasını açıp kuralım. Kurulumu bitirdikten sonra Denetim Masası->Yönetimsel Araçlar(Administration Tools)->Veri Kaynakları ODBC (Data Sources ODBC) bölümüne girelim.

Kullanıcı DSN (User DSN) sekmesinde “Ad: mysql Sürücü(Driver):MySQL ODBC 3.51 Driver” gibi bir kayıt yok ise Ekle…(Add…) düğmesine tıklayalım.

Listeden “MySQL ODBC 3.51 Driver” tıklayalım. (Eğer listede böyle bir öğe yok ise bilgisayarınızı yeniden başlatmanızı öneririm) İleri(next) düğmesine tıklayalım. Gelen Formda alanları şu şekilde dolduralım:
Data Source Name : mysql
Description : MySQL Veritabanı
Server: localhost
User : root
Password : root
(kurulumda şifreyi ve kullanıcı adını root-root ayarladığımızı farzediyoruz. Eğer siz böyle bir şey ayarlamadıysanız büyük ihtimal kullanıcı adınız root olacak, şifrenizi boş bırakın.)

Daha sonra Test Connection düğmesine tıklıyoruz ve “Success; connection was made!” mesajını aldıktan sonra OK düğmesine tıklıyoruz ve Tamam düğmesine tıklayarak ODBC Veri Kaynağı Yöneticisinden çıkıyoruz.

(Bir sorun çıkarsa bilgisayarınızı baştan başlatın, mysql servisi hizmete girecektir. O zaman tekrar bu işlemleri yapmayı deneyin.)

MySQL veritabanı arayüzü olmayan bir veri tabanıdır. Yönetmek için şunları bilgisayara kurmanızı öneririm:

SQLYOG FREE EDITION
http://www.webyog.com/ adresinden indirilebilir ufak bir program. Tablo veritabanı tasarlamanızda işinize yarar. Access gibi güzel bir veri düzenleme yeteneği yok. Ücretsiz.

SQL FRONT
http://www.sqlfront.com/
Ücretli bir program. 1 ay kadar deneyebiliyorsunuz. Access gibi güzel bir program, çok da fonksiyonel. Veritabanı, tablo, veri düzenlemelerini çok güzel bir biçimde yapabilirsiniz.



VERİTABANINA İLK BAĞLANTIYI YAPMAK, TABLO EKLEMEK, VERİ EKLEMEK, LİSTELEMEK VE DİĞER İŞLEMLER

Önce boş bir ASP dosyası yapalım ve aynen şu bağlantıyı oluşturalım:


<%
mysql_server = "localhost"
mysql_user = "root"
mysql_pass = "root"
mysql_db = "test"

Connection_DSN= "DRIVER={MySQL ODBC 3.51 Driver}; SERVER="&mysql_server&"; UID="&mysql_user&"; pwd="&mysql_pass&";db="&mysql_db&";"
Set Baglanti= Server.CreateObject("ADODB.Connection")
Baglanti.Open Connection_DSN

Response.Write "bağlantı kuruldu"
%>



Dosyayı wwwroot içine mysqldefault.asp olarak kaydedip http://localhost/mysql/ olarak çalıştıralım. Eğer sayfa hata vermiyor ve “bağlantı kuruldu” yazıyor ise her şeyi çok iyi yapmışsınız demektir.

([MySQL][ODBC 3.51 Driver]Access denied for user 'root'@'localhost' gibi bir hata alıyor iseniz MySQL veritabanı kullanıcı adı ve şifrenizi yukarıdaki kodda uygun olarak doldurun. Eğer kurulumda k.adı ve şifre belirlemediyseniz mysql_user = “root” ve mysql_pass=”” (boş) olarak bırakın. Büyük ihtimal bağlanacaktır.)

Bağlantımız tamamlandı ise bir sorgu ile kendi veritabanımızı yapalım isterseniz.


<%
Baglanti.Execute("create database telefonrehberi ;")
Response.Write “
telefonrehberi Veritabanı üretildi.”
%>



Evet. Sayfayı açınca üretildi mesajını da ekranımızda görüyorsak artık sunucuda telefonrehberi adlı bir veritabanımız var. İsterseniz artık bağlantı kodumuzdaki mysql_db değişkenine “telefonrehberi” yazalım.

Access teki veri türlerini hatırlıyor musunuz? Metin, Not, Sayı, Uzun Tamsayı, Evet/Hayır, Tarih/Saat… Şimdi MySQL’de sık kullanacağınız veri tiplerini görelim. Bu veri tiplerini Google’dan arayarak detaylı özelliklerini, limitlerini bulabilirsiniz:


VARCHAR(50) : 50 karakterlik bir metin veri tipi. Access’teki Metin tipi gibi.
TINYINT (6) : 6 karakterli tamsayı alanı yaratır. Ondalık sayı girilmez
INT(11) : 11 basamaklı tamsayı alanı yaratır. Ondalık sayı girilmez
BIGINT (20) : 20 basamaklı tamsayı alanı yaratır. Ondalık sayı girilmez
DOUBLE : Ondalık sayı girebileceğiniz ve büyük sayılar alabilen bir tamsayı alanı.
LONGTEXT : Access’teki not adlı metin alanı. Sınırsız gibi. 2,14 gb yazı alabilir.
SET(‘e’,’h’) : Sadece e harfi veya h harfinin girilebileceği, iki seçenekli bir Evet/Hayır veri alanı gibi.
DATETIME, DATE, TIME: MySQL tarih alanı. MySQL’e veri girerken veriyi 2 tarz girebilirsiniz:
(yyyy-gg-aa sa:dk:sn) veya (yyyyggaasadksn) olarak. PHP kullananlar Unix Epoch tarihi olarak da girebilir. Tabi bu ASP yazanları ilgilendirmiyor. ASP yazanlar Now() fonksiyonu ile tarih ekleyebilir. Projede tarih kullanılacaksa en uygunu DATETIME kullanmaktır. Tarihleri varchar gibi alanlarda saklamak yanlış olacaktır.

Peki şimdi bir telefon defteri tablosunu nasıl yapabiliriz görelim. Eğer verdiğimiz SQL Front, SQLYOG gibi programlarla bağlanırsanız komutlar kullanmadan kendi tablolarınızı ve kendi veritabanınızı zahmete girmeden tasarlayabilirsiniz.Bu programlardan biriyle telefondefteri veritabanımıza bağlanalım ve sağ tıklayıp Yeni Tablo (New Table) üretelim:

id : (primary key)(auto_increment) int(11)
isim : varchar(100)
meslek : varchar(50)
telefon : bigint(20)

Bu tablonun SQL komutuyla yapımı şöyle olacaktır:


CREATE TABLE `telefondefteri` (
`id` int(11) NOT NULL auto_increment,
`isim` varchar(100) default NULL,
`meslek` varchar(50) default NULL,
`telefon` bigint(20) default NULL,
PRIMARY KEY (`id`)
) Engine=InnoDB ;



Artık telefonrehberi veritabanımız altında telefondefteri tablomuz var.

Bu komut ile de tablomuzu üretebiliriz. Burada dikkatinizi sorgu sonundaki Engine kısmı çekebilir. Bu, tablonun hangi veritabanı motoruyla yönetileceğini gösterir. InnoDB, MyISAM, ISAM, MEMORY, MRG_MYISAM gibi türleri vardır. Eğer kayıtlarınız on binleri bulmayacak ise InnoDB iyidir fakat çok kayıt bulunacak ise MyISAM’ı tavsiye ederim.

Not: MySQL’de SQL sorgu satırının sonuna “;” (noktalı virgül) koymalısınız. Eğer tek satır sorgu yazıyorsanız buna gerek yoktur.

Şimdi de birkaç kayıt eklemeye ne dersiniz?


<%
Baglanti.Execute("INSERT INTO telefondefteri (isim,meslek,telefon) VALUES ('ahmet alp balkan','doktor','5056872347') ;")

Baglanti.Execute("INSERT INTO telefondefteri (isim,meslek,telefon) VALUES ('gürcan balci','insaat mühendisi','5334169988') ;")

Baglanti.Execute("INSERT INTO telefondefteri (isim,meslek,telefon) VALUES ('kerim candan','berber','2625281611') ;")

Response.Write “3 kayıt eklendi”
%>



Evet kayıtlarımız böyle ekleniyor. Geliştirmeye açık kodlar. ASP ile deneyerek, formları, değişkenleri kullanarak kayıtlar ekleyebilirsiniz. Şimdi de kayıtları listelemeye ne dersiniz:


<%
Set TelefonDefteriKayitlari = Baglanti.Execute(“Select * from telefondefteri ;”)

Do Until TelefonDefteriKayitlari.eof
Kayit = Kayit +1
%>

(<%=Kayit%>) İsim: <%= TelefonDefteriKayitlari(“isim”)%>

(<%=TelefonDefteriKayitlari(“meslek”)%>) <br />

Telefon : <%=TelefonDefteriKayitlari(“telefon”)%>


<br /><br /><br />

<%
TelefonDefteriKayitlari.MoveNext
Loop
%>



Bu kodun çıktısı şu şekilde olacaktır:

(1) İsim: ahmet alp balkan (doktor)
Telefon : 5056872347

(2) İsim: gürcan balci (insaat mühendisi)
Telefon : 5334169988

(3) İsim: kerim candan (berber)
Telefon : 2625281611

Gördüğünüz üzere kayıtlarımız listelendi. Fakat ASP deki şu kod açma tarzını hatırladınız mı?
Set rs= server.createobject("adodb.recordset")
Sorgu = “select * from telefondefteri”
Rs.Open Sorgu,Connection,3,1

Artık bu tarz recordset açmayı kullanmayacağız. Çünkü MySQL kullanırken bize hiçbir getirisi olmayacak. Önceden Rs.AddNew Rs.Update Rs.RecordCount Rs.Delete kullanırdınız. Ama artık bu yok. Bütün işlemlerinizi SQL Komutları ile yapacaksınız. Örneğin:

Ekleme Komutu :
INSERT INTO telefondefteri (isim,meslek,telefon) VALUES ('gürcan balci','insaat mühendisi','5334169988') ;

INSERT INTO kisiler (‘isim’,’kayittarihi’) VALUES (‘dilan fındıkçı’,’20060813201439’);


Silme Komutu:
DELETE FROM telefondefteri where isim=’gürcan balci’;



Düzeltme Komutu:
UPDATE telefondefteri set isim=’mehmet balci’, meslek=’ogrenci’ where isim=’gürcan balci’;


Kayıt Sayısını Almak:
SELECT COUNT(*) AS TOPLAM FROM telefondefteri;
Kullanımı örneğin şu şekildedir:


<%
Set ToplamKisi = Baglanti.Execute(“SELECT COUNT(*) AS TOPLAM FROM telefondefteri;”)

Response.Write Toplamkisi(“TOPLAM”)

%>




Bu komutları daha da araştırarak öğrenebilirsiniz. Biz yüzeysel olarak değindik. Sayfalama konusunda ise Google’da “MySQL Sayfalama” diye arama yaparak güzel sonuçlara ulaşabilirsiniz.

MySQL ile daha iyi ve performanslı çalışmalar yapabilmeniz dileğiyle.                                                     Alıntı.

6611
ASP / ASP ve Mysql İçin Gerekli Programlar
« : Ekim 01, 2007, 01:36:44 ÖS »
      Bilgisayarınızda asp programlama dili ile mysql veritabanını kullanmak istiyorsanız bu 3 aparatı bilgisayarınıza yüklediğiniz takdirde sorunsuz bir şekilde mysql veritabanını asp projeleriniz içerisinde kullanabilirsiniz.
       içerisindeki programlar HeidiSQL , Mysql 5.0 , Mysql Connector.

Tıkla ve İndir

6612
Her Telden / İŞTE BİZİM TÜKETİCİLERİMİZ...
« : Ekim 01, 2007, 10:18:15 ÖÖ »
Yurdum insanı işte  :kat

6613
Komik Fıkralar / FIKRA
« : Ekim 01, 2007, 10:18:01 ÖÖ »
Perfect  :yima

6614
Komik Fıkralar / ÖLÜM ŞEKİLLERİ
« : Ekim 01, 2007, 10:17:45 ÖÖ »
abi bunu sahurda da duydum
mahoni ne demek istedin anlamadım ama ? :( neyse. ben adamın yerinde olsam orda bi kere daha öldürürdüm.  :kat

6615
Forum Oyunları / Bir Sonraki Üyeyi Tahmin Et
« : Ekim 01, 2007, 10:06:49 ÖÖ »
ehehehe gelmez gelemez. Çünkü gamzeli şimdi mışıl mışıl yatıyodur bu saatte. Malum o artık bi bykus ve geceleri uyanık oluyo  :kat tahminim 3 4 gibi gelir diom.  :huh

Sayfa: 1 ... 439 440 [441] 442 443 ... 495