MyDesign | Kod Arivi - Anasayfaya Dn   No banner in farm
Anasayfa Aratr Forum Gelimi Arama Siteniz in En Hit erikler RSS erik Ekle Scriptler Destekleyenler Kadromuz Reklam letiim Giri Sayfas Yap  Sk Kullanlanlara Ekle
Bu Kategorinin En Yeni Kodlar:


Bu Kategorinin En ok Grntlenen Kodlar:






Arama:
Gelimi Arama


No banner in farm



En ok Grntlenen Kodlar:


ye Girii:
 ye Ol



Anasayfa > Asp > Kodlar

ADOX Örneği 1

ADOX ile veritabanı oluşturma ve üzerinde DDL ve DML türünde SQL ifadeleri çalıştırmak için hazırlanmış bir örnek

ADOX  DDL  DML. SQL  veritabanı  VT 

Kategori : Asp
Gnderen : threedot
Telif : Tuğrul TOPUZ
Tarih : 05 Ocak 2007
rnek Dosya : �ndir
Okunma Says : 10768
Puan
: 7 / 10 (3 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
'   --------------------------------------------    '
'   Coder:          Tuğrul TOPUZ a.k.a. threedot    '
'   E-Mail:         threedot@hotmail.it             '
'   Date:           05-01-2007                      '
'   Time:           16:26                           '
'   Version:        v0.1                            '
'   Filename:       ADOX_SAMPLE1.VBS                '    
'   Interpreter:    Windows Scripting Host 5.6      '
'   --------------------------------------------    '

'object(s) definition
dim oADOx,oFSO
'object(s) initialize
set oADOx=CreateObject("ADOX.Catalog")
set oFSO=CreateObject("Scripting.FileSystemObject")

'database settings
const sFileName="sample_db.mdb"

'subroutines & functions
sub DBStatics(oTables)
    dim sResult
    dim oTable,oColumn
    sResult=_
    "~ : tablo"&vbCrLf&_
    "+ : field"&vbCrLf&vbCrLf
    for each oTable in oTables
        sResult=sResult&"~"&oTable.Name&vbCrLf
        for each oColumn in oTable.Columns
            sResult=sResult&"        +"&oColumn.Name&vbCrLf&_
            "          - type  :"&oColumn.Type&vbCrLf&_
            "          - size  :"&oColumn.DefinedSize&vbCrLf
        next
    next
    WScript.Echo(sResult)
    sResult=empty
    set oTable=nothing
    set oColumn=nothing
end sub

'gavuştur
dim sConnStr,sSQL
sConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&sFileName&";"
if oFSO.FileExists(sFileName) then oFSO.DeleteFile(sFileName)
call oADOx.Create(sConnStr)
with oADOx.ActiveConnection
    sSQL="CREATE TABLE t_table1(id INT,isim VARCHAR(30),soyisim VARCHAR(30),gorev VARCHAR(30),durum VARCHAR(30))"
    call .Execute(sSQL)
    sSQL="INSERT INTO t_table1(id,isim,soyisim,gorev,durum) VALUES(1,'Tuğrul','TOPUZ','Bilgisayar Yazılım/Donanım','Orta Şeker')"
    call .Execute(sSQL)
    sSQL="INSERT INTO t_table1(id,isim,soyisim,gorev,durum) VALUES(2,'Muhammed','TEKİNKUŞ','Bilgisayar Yazılım/Donanım','Çaylak')"
    call .Execute(sSQL)
end with
call DBStatics(oADOx.Tables)
call oADOx.ActiveConnection.Close()
'object(s) terminating
set oADOx=nothing
set oFSO=nothing
 
 

ADOX Örneği 1 iin yazlan yorumlar

Hen�z yorum eklenmedi.

Yorum ekleyin

Anasayfa > Asp > Kodlar > ADOX Örneği 1
Kategoriler:


Forum:



Balantlar:



    En Son Yorumlanan erikler:


    Murat Yavuz | Site Haritas | Gizlilik Bildirimi | 34.201.121.213 | 0,12 Saniye
    © Copyright 2004-2019 MyDesign | Kod Arivi. Tm Haklar Sakldr.
    MyDesign | Kod Arivi, en iyi grnm iin, 1024x768 ve zeri znrlk tavsiye eder.