Asp de Kod ile Mysql Veritabanı Oluşturma ve Tablo ve Alan Ekleme

[Safirmedya]

Öncelikle servarda bağlanabileceğimiz bir veritabanı olmalı, bu veritabanına bağlanarak yeni bir veritabanı oluşturalım.

Kod Seç Genişlet


<%dbadi="mysql"
dbsifresi="sizinkurulumdaverdiğinizşifre"
dbkullanicisi="root"
dbserver="localhost"

Connection_DSN= "DRIVER={MySQL ODBC 3.51 Driver};SERVER="&serveradi&"; UID="&dbkullanicisi&"; pwd="& dbsifresi&";db="&dbadi&";"

Set dbbaglanti= Server.CreateObject("ADODB.Connection")
dbbaglanti.Open Connection_DSN



ile hazırda olan MYSQL adlı veritabanına bağlandık şimdi veritabanımızı oluşturalım.

Kod Seç Genişlet

dbbaglanti.Execute("create database ilkveritabani;")
response.Write "<b><br>Veritabanı Oluşturuldu</b>"


böylece veritabanımızı oluşturmuş olduk, şimdi de bağlantımızı kapatıp dbbaglanti nesnesini boşaltıyoruz..

Kod Seç Genişlet

dbbaglanti.close
set dbbaglanti = Nothing
%>


İLK VERİTABANIMIZI KODLARLA OLUŞTURDUK
Ama bu veritabanının içinde henüz hiç tablo yok, evet bu kod boş bir veritabanı oluşturur..

Şimdi İçine tablolarımızı ve sütünlarımızı açalım, bir asp dosyası oluşturalım ve içine yine ilk olarak dbbaglantimizi koyalım.

Kod Seç Genişlet

<%
dbadi="ilkveritabani"
dbsifresi="sizinkurulumdaverdiğinizşifre"
dbkullanicisi="root"
dbserver="localhost"

Connection_DSN= "DRIVER={MySQL ODBC 3.51 Driver};SERVER="&serveradi&"; UID="&dbkullanicisi&"; pwd="& dbsifresi&";db="&dbadi&";"

Set dbbaglanti= Server.CreateObject("ADODB.Connection")
dbbaglanti.Open Connection_DSN


şu an bağlantımız gerçekleşti şimdi bağlantımızın gerçekleştiği veritabanına tablo ve sütun oluşturalım
tablomuzun adı "uyeler"
uyeler tablosunun içinde de adi, mesajsayisi, uid, telefon gibi sütunlar olsun
yukarıdaki kodun altına

Kod Seç Genişlet

dbbaglanti.execute("Create Table uyeler(adi text, mesajsayisi int, uid text,telefon text)")
response.write "uyeler adli tablo olusturulup içine adi,mesajsayisi,uid,telefon sütunları eklendi"


işlemler tamam, son olarak veritabanımızı kapatalım.

Kod Seç Genişlet

dbbaglanti.close
set dbbaglanti = Nothing
%>


Hepsi bu kadar...

[Safirmedya]