PDA

View Full Version : جايگزيني يک متن در تمام رکوردها



Hossis
یک شنبه 09 خرداد 1389, 12:18 عصر
اگر بخواهيم با استفاده از اين کدها يک کاراکتر را در تمام رديفها در يک فيلد خاص جايگزين کنيم چه دستوري بايد بنويسيم


Dim CnnStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb"
Dim da As OleDbDataAdapter
Dim ds As New DataSet
' Dim cr As New CrystalReport1
Dim cnn As OleDbConnection
If findStr = String.Empty Then Exit Sub
cnn = New OleDbConnection(cnnstr)
cnn.Open()
.....
da.Fill(ds, "Books")
DG.DataSource = ds.Tables("Books")

cnn.Close()

به عنوان مثال مي خواهيم در فيلد "متن" در تمام رککوردهاي ديتابيس ، حرف ک را با ك جايگزين کنيم

Shahram_Shobeiri
دوشنبه 10 خرداد 1389, 10:31 صبح
یه حلقه می گذاری که کل دیتا تیبل رو ردیف به ردیف پیمایش کنه.
بعد با کد زیر مثلا a رو b تبدیل می کنی

dt.rows(i).items(n).value = Replace(dt.rows(i).items(n).value, "a", "b")
بعد هم update می کنی دیگه.

Hossis
دوشنبه 10 خرداد 1389, 11:25 صبح
یه حلقه می گذاری که کل دیتا تیبل رو ردیف به ردیف پیمایش کنه.
بعد با کد زیر مثلا a رو b تبدیل می کنی

dt.rows(i).items(n).value = Replace(dt.rows(i).items(n).value, "a", "b")
بعد هم update می کنی دیگه.
حالا که حرف از آپيدت شد، کد آپديت رو با توجه به کدي که در پست اول نوشتم چجوري مي نويسيد؟؟
dt.uPDATE??
SQL.Update???

Shahram_Shobeiri
دوشنبه 10 خرداد 1389, 12:59 عصر
نمی دونم این روش اصولی هست یا نه اما من تو همون حلقه میام مقدار جدید رو با دستورات sql و یه شی sqlcommand تو بانکم update می کنم.