İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

ms access da kayıt değişikliği

Longgg

0
İyinet Üyesi
Katılım
16 Nisan 2005
Mesajlar
148
Reaction score
0
ms access da bulununan bir sütüna girilmiş olan kayıtların tamamının başına bir harf eklemek (aynı harf bütün kayıtların başına) istiyorum, tek tek eklemek çok zaman alıyor fazla kayıt olduğundan bunu tek hamlede yapmak mümkün mü ?

kayıtlar ..

234mfdk32
1432040ld
332öfdm23

şeklinde gidiyor ve bunların hemen başına harf eklicem

x234mfdk32
x1432040ld
x332öfdm23

gibi.. ?
 

dizayn1st

0
İyinet Üyesi
Katılım
11 Mayıs 2005
Mesajlar
623
Reaction score
0
asp biliyorsan bi script yazabilirsin onun için, mantık olarak;

veritabanına bağlan
id ile önce veriyi çek, ve meta ile id y ibir arttır sayfa sn ye de bir güncellensin ve id hep bir artsın.
hangi alanda ki dosya değişecekse onu al bir değişkene tanımla,
o değişkeni ise başına x ekle ve başka bir değişkene tanımla
son tanımladığın değişkenide yeniden en baştaki değişkene eşitle.
upload

biraz karışık oldu kusura bakma ama ancak bu akdar anlatabildim :eek:
 

dizayn1st

0
İyinet Üyesi
Katılım
11 Mayıs 2005
Mesajlar
623
Reaction score
0
veritabanında "id" diye bi alan vardır heralde?
değiştirmek istediğin alanın ismini ve veritabanı adını söyle yazayım hemen bi sayfa. otomatik değiştirir.
ve kaç tane veri var değiştirilecek?
 

Longgg

0
İyinet Üyesi
Katılım
16 Nisan 2005
Mesajlar
148
Reaction score
0
database ismi vt20.mdb
tablo ismi dosyalar
id diye bir alan var - değişecek alanın ismi adres

evet toplam veri sayısı 40 bin

teşekkürler
 

dizayn1st

0
İyinet Üyesi
Katılım
11 Mayıs 2005
Mesajlar
623
Reaction score
0
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt20.mdb")
%>
<%
id= Request.QueryString("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sor = "Select * from dosyalar where id like '" & id & "'"

rs.Open sor,Baglanti,1,3
%>
<%
If rs.eof then
Response.Write "<center>İşlem Tamamdır.</center>"
Response.End
End If
%>
<%
idd=rs("id") ' "id" yazan yeri veritabanına göre değiştir "idd" yazan yeri elleme
idd=idd+1
%>

<meta http-equiv="refresh" content="1;url=qwq.asp?id=<%=idd%>" />

<font size="6">
<%=rs("adres") %></font>

<%=title%><%
adres=rs("adres")
adres="x"+adres
rs("adres")=adres
rs.Update
%>





bu kodları qwq.asp diye ve veritabanının olduğu klasöre kaydet ve qwq.asp?id=1 diye başlat
40.000 i böyle tek tek yaparsa uzun sürer o yüzden bu sayfalardan 39 tane aç.
firefox da sekme olarka açarsın her yeni sekmede qq.asp?id=1 qq.asp?id=1000 qq.asp?id=2000 qq.asp?id=3000 ..... diye devam etsin böylece 39 tane sayfa devaml ıkendini güncellesin 120.000 veri değiştirdim hiç sorun çıkmadı gerçi biraz uzun sürüyo ama napalım :)

edit: tablo adını dosyalar yerine tablolar yazmışım düzelttim.
 

db.gen.tr

0
İyinet Üyesi
Katılım
1 Aralık 2006
Mesajlar
0
Reaction score
0
Konum
<%=istanbul%>
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt20.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from dosyalar",Baglanti,1,3
for i = 1 to rs.recordcount
rs("adres")="x"+rs("adres")
rs.Update
rs.movenext
next
%>
Toplam <%=rs.recordcount%> kayıt değiştirildi.

Buda olur kasar biraz...
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst