Veritabani islemlerinizi yaparaken

Set Rs=Baglan.Execute(”SELECT * from tabloadi order by alan1 desc”) yerine

Set Rs=Baglan.Execute(”SELECT alan1,alan2 from tabloadi order by alan1 desc”) seklinde yildiz yerine alanlarin adlarini yazarak sql sorgularinizi yapmaya özen gösterin .

Select * (yildiz) olarak yaptiginiz sorgulamalarda siteniz cok daha yavas calisarak ileride özellikle Acces veritabanlarinda acik kalma (.ldb seklinde) gibi problemler yaratacaktir.

Yazan:
Mustafa Sahin
AspveAsp.Net

�

Posted in Veritabani islemleri | No Comments »

<%
set  conn = Server.CreateObject(“ADODB.Connection”)
conn.Open(“DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.MapPath(“veritabani.mdb”))
set  rs = server.createobject(“adodb.recordset”)
%>

Posted in Veritabani islemleri | No Comments »

Recordset Objesi bize sayisiz sekilde fonksiyonlar sunar.  Bunlardan biriside tablodaki alanlari okutmamiza olanak saglamasidir. Örnegimizi inceleyelim ;

[list_cols.asp]
<%
Set objConn = Server.CreateObject(”ADODB.Connection”)
    objConn.Open “DSN”, “UID”, “PWD”

Set objRS = Server.CreateObject(”ADODB.Recordset”)
    objRS.Open “<tabelle>”, objConn, 3, 3

        ‘ —Â
        Response.Write “<b><u>Tablodaki Alanlar <tabelle></u></b><br>” & vbCrLf

  Â
        For Each objCol in objRS.Fields
            Response.Write “Name der Spalte: ” & objCol.Name & “<br>” & vbCrLf
            Response.Write “Datentyp der Spalte: ” & objCol.Type & “<br><br>” & vbCrLf
        Next

    objRS.Close
Set objRS = Nothing

    objConn.Close
Set objConn = Nothing
%>

Posted in Veritabani islemleri | No Comments »

Acces veritabanini zaman zaman büyüme yapar . Hernekadar tablolardan verilerinizi silsenizde bu islem veritabaninin kücülmesine ragatlamasina yetmemektedir.   Her silme islemi yaptiginizda aslinda veriler fiziksel olarak silinmemektedir.  Bu yüzden veritabaninizi komprimere yani repair onar islemi yapmaniz gerekmektedir. Büyük veri tabanlarinda devamli olarak acces veritabanini ftp ile indirip düzeltmek  sizi yoracaktir, bu yüzden asagida yazacagim kodlarla Asp ile online olarak Acces veritabanizi onarip kücültebilirsiniz .

 

[compress.asp]
<%
Dim strProvider
    strProvider = “PROVIDER=Microsoft.Jet.OLEDB.4.0;”

Dim strPath
    strPath = Server.MapPath(”./database/”) & “\”

Dim strDatabase1
    strDatabase1 = “compress.mdb”
Dim strDatabase2
    strDatabase2 = “compress_temp.mdb”

Dim strConnect1
    strConnect1 = strProvider & “DATA SOURCE=” & strPath & strDatabase1 & “;”
Dim strConnect2
    strConnect2 = strProvider & “DATA SOURCE=” & strPath & strDatabase2 & “;”

Dim objJetEngine
Set objJetEngine = Server.CreateObject(”JRO.JetEngine”)

Dim objFileSys
Set objFileSys = Server.CreateObject(”Scripting.FileSystemObject”)

    ‘ — Orjinal veritabanini yedekleme
    objFileSys.CopyFile strPath & strDatabase1, strPath & “yedekleme_” & strDatabase1

    ‘ — Veritabanini kücültme (repair/onarma)
    objJetEngine.CompactDatabase strConnect1, strConnect2
   Â
    ‘ — Orjinal Veritabanini Silme
    objFileSys.DeleteFile strPath & strDatabase1

    ‘ — Onarilmis veritabanini move etme
    objFileSys.MoveFile strPath& strDatabase2, strPath & strDatabase1
   Â
Set objFileSys = Nothing
Set objJetEngine = Nothing
%>

 

Yazan:
Mustafa Sahin

Posted in Veritabani islemleri | No Comments »

Bu yazimda Asp ile Mysql ile en kolay sekilde nasil baglaniriz onu anlatamaya calisacagim .

Windows tabanli isletim sistemlerinde Mysql icin gerekli olan driveri kurmaniz gerekmektedir,

Asagidaki adrese  tiklayarak myodbc driverini indirerek ilk olarak kurulum islemini gerceklestirebilirniz
http://www.mysql.com/downloads/api-myodbc-3.51.html .

Eger kodlarinizi kendi Webserverinizda kullanmiyorsaniz biryerde host ediyorsaniz , host ettiginiz firmaya Mysql Odbc driverinin yüklü olup olmadigini mutlaka sorun , ayrica mysql odbc driverinin versiyonuna görede baglanti kodu degismektedir. asagida belirtecegim örnek koda göz atin .

[openmysql.inc]
<%
‘ — MySQL driverinin Veritabani baglantisinda kullanimi
Dim strDriver
       ‘ — (MyODBC 3.51)
       strDriver = “DRIVER=MySQL ODBC 3.51 Driver;”
       ‘ — (MyODBC 2.50)
       ‘ — strDriver = “DRIVER=MySQL;”
‘ — Hostname ve server tanimlama
Dim strServer
       strServer = “SERVER=mysql-veritabaniserveri.com;HOST=%;”
‘ — Kullanici Adi (Username) tanimlama
Dim strUsername
       strUsername = “UID=<username>;”
‘ — Yukarida yazdigimiz kullanici adinin sifre tanimlamasi
Dim strPassword
       strPassword = “PWD=<passwort>;”
‘ — Veritabani ismi
Dim strDatabase
       strDatabase = “DATABASE=mysql_test;”
‘ — Komple tanimlamanlarin yazdirimi
Dim strComplete
       strComplete = strDriver & strServer & strUsername & strPassword & strDatabase

‘ — Veritabani baglantisini acma
Set objConn = Server.CreateObject(”ADODB.Connection”)
      objConn.open strComplete

      ‘ — Buraya diger kodlariniz kolay gelsin .
      …

      objConn.Close
Set objConn = Nothing
%>

Posted in Veritabani islemleri | No Comments »