Replace komutunu kullanarak belirtilen bir kelimenin başka bir kelime ile değiştirilmesini sağlayabiliriz. Bu komutu “Bul ve Değiştir”olarakda adlandırabiliriz.
Örneğin “Özgün Makale” kelimesini “bilgi-sayar.net” ile değiştirilmesini istiyoruz. Bunun için şöyle bir kod kullanabiliriz.
Dim Metin As String = "Özgün Makale"
Dim Degistir As String = Metin.Replace("Özgün Makale","bilgi-sayar.net")
MsgBox(Degistir)
Bu kod çalıştırıldığında Metin adlı değişkenin içindeki “Özgün Makale” kelimesi “bilgi-sayar.net” kelimesi ile değiştirilerek mesaj kutusunda yazdırılır.
Oooo tamamdir tamda bana bu lazımdı 🙂
bu kısa ama önemli bişey bence
bi data base içinden değiştirmek istediğim kelimeleri değiştirmek istiyorum
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim baglanti_metni1, baglanti_metni2 As String
baglanti_metni1 = “Provider=Microsoft.ACE.OLEDB.12.0; Data Source=|DataDirectory|\vt2.accdb; Persist Security Info=False;”
baglanti_metni2 = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\vt2.mdb; Persist Security Info=False;”
Dim baglanti1 As New Data.OleDb.OleDbConnection(baglanti_metni2)
baglanti1.Open()
Dim sql2 As String
sql2 = “select * from anatablo ”
Dim komut As New System.Data.OleDb.OleDbCommand(sql2, baglanti1)
Dim veri_okuyucu As Data.OleDb.OleDbDataReader
veri_okuyucu = komut.ExecuteReader
While (veri_okuyucu.Read())
RichTextBox2.Text = RichTextBox1.Text.Replace(veri_okuyucu(“dkmetin”), veri_okuyucu(“dsmetin”))
End While
veri tabanının sonundaki kelimeyi kullanıyor.
peki bunu database üzerinden nasıl yaparız değiştirlecek 1 den fazla kelime database de değiştirilecek yeni değerleri ile kayıtlı ise formülünü yazarsan sevinirim.
UPDATE dizimi bunun için kullanılabilir, WHERE ile koşullandırarak etkiyi sınırlandırabilirsin.