Hazır Script – Hazır Kod

Txteki bilgileri dataya kaydetme……

Txteki bilgileri dataya kaydetme…..

codeDivStart()

<%

Set Baglanti = Server.CreateObject("ADODB.Connection" )

Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &Server.MapPath("tablo.mdb" )

Set DosyaSistemi=CreateObject("Scripting.FileSystemObject" )

Set DosyaOkuma = DosyaSistemi.OpenTextFile(Server.MapPath("txt.txt" ),1)

Set KayitSeti = Server.CreateObject     ("ADODB.Recordset" )

KayitSeti.Open "select * from tblbilgi" , Baglanti, 1,3

Do While Not DosyaOkuma.AtEndOfStream

KayitSeti.Addnew

KayitSeti("ad" )=DosyaOkuma.Readline

KayitSeti.Update

Loop

KayitSeti.Close

Set KAyitSeti = Nothing

%>