Hey guys,
I'm trying to run an Update statement through VB.Net to my database, code is as follows:
VB Code:
Dim strConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\jcarney\My Documents\Visual Studio Projects\WindowsApplication2\WindowsApplication2\Relearn.mdb" Dim cnnDatabase As New OleDb.OleDbConnection(strConnectionString) Private Sub btnScrambler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScrambler.Click tableName = "CustomerID" Dim myCommand As New OleDb.OleDbCommand Try cnnDatabase.Open() myCommand.Connection = cnnDatabase myCommand.CommandText = "UPDATE CustomerID " & _ "SET [Name]= REPLACE(Name,'M','u') " & _ "WHERE CustomerID;" myCommand.ExecuteNonQuery() Dim strSQL = "SELECT * FROM " & tableName Dim adpDatabase As New OleDb.OleDbDataAdapter(strSQL, cnnDatabase) Dim dstRelearn As New DataSet adpDatabase.Fill(dstRelearn, "Parts") Dim rowParts As DataRow Dim litParts As ListViewItem For Each rowParts In dstRelearn.Tables("parts").Rows litParts = lvwTable.Items.Add(rowParts("CustomerID")) litParts.SubItems.Add(rowParts("Name")) litParts.SubItems.Add(rowParts("Address")) litParts.SubItems.Add(rowParts("City")) litParts.SubItems.Add(rowParts("State")) Next Catch ex As Exception MsgBox(ex.Message) Finally cnnDatabase.Close() End Try End Sub
I keep getting the following error:
"Undefined function 'REPLACE' in expression."
any help would greatly be appreciated.




Reply With Quote