Hossis
یک شنبه 09 خرداد 1389, 13: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()
به عنوان مثال مي خواهيم در فيلد "متن" در تمام رککوردهاي ديتابيس ، حرف ک را با ك جايگزين کنيم
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()
به عنوان مثال مي خواهيم در فيلد "متن" در تمام رککوردهاي ديتابيس ، حرف ک را با ك جايگزين کنيم