Bir emlak sitesi uzerinde calisirken turkiyedeki il , ilce ve semt isimlerini sisteme gommem gerekti..Kullanici once ili sonra ilceyi ve en sonda semti secip ; ilani gondericek sisteme .. mantik bu..Duz programci mantigiyla interneti karistirip istedigim ozelliklere uygun ; yani mysql’de hazirlanmis bir database ornegi bulamadim.en guzel buldugum ornek sanirim ceviz.net’teydi..excel’de hazirlanmis gayet guncel bir listeydi..Simdi sorun da burda piyasada excel’den mysql’e cevirici hali hazirda bir tool yok :S napalim ne edelim derken programci adam kendi tool’unu kendi yazar mantigiyla 1 gunde vba ogrenip , istedigim database’i mysql’de hazirlamis bulunmaktayim.. simdi vba’ya biraz deginmek istiyorum..bu vba oyle bir velet ki microsoft amcamiz sagolsun office araclarinin icine gommus vaziyette bize veriyor..Developer ribbon’unu aktif etmek icin ornegin excel’in options’indan aktive ediyoruz .. developer ribbonunu ekledikten sonra VBA editor var..Onu calistirip ufak bir donguye sokup bir liste halinde olan il,ilce,semt isimlerini sql’e uyumlu hale getiricez. Simdi burda ufak bir sub-kodlamis bulunmaktayim..kod’un altinda ne yaptigimi acikliycam.
Sub StoreWorksheetNames()
Dim objFSO, objTextFile
Dim starter As Integer
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\Users\eren\desktop\eren.txt", ForAppending, True)
For starter = 2 To 4871
objTextFile.Write ("INSERT INTO `tumturkiye` (`Il`, `Ile`, `Semt`) VALUES ('")
objTextFile.Write (Cells(starter, 1))
objTextFile.Write ("', '")
objTextFile.Write (Cells(starter, 2))
objTextFile.Write ("', '")
objTextFile.Write (Cells(starter, 3))
objTextFile.Write ("');")
objTextFile.WriteLine ("")
Next starter
objTextFile.Close
End Sub
simdi burda bir txt dosyasini acmasini soyledim.Txt hazir acili durmusken donguye soktugum cell fonksiyonundan row ve column daki degerleri aldiktan sonra acili olan bu txt dosyasina aldigimiz bu degerleri atiyoruz.. daha sonra txt dosyasini yani yeni sql databaseimizi acip basina
#
#Created by Eren's Fucking Lame SqlDumper
CREATE TABLE `tumturkiye` ( `ID` INT NOT NULL AUTO_INCREMENT ,
`Il` TINYTEXT NOT NULL ,
`Ile` TINYTEXT NOT NULL ,
`Semt` TINYTEXT NOT NULL ,
PRIMARY KEY (`ID`) );
ekledikten sonra artik supper bir il,ilce,semt sql databaseimiz olmus oluyor
Excel il,ilce,semt listesi burda
Programlama conventer, developer, excel, loop, sql, vba