S
staspe
vb.net 2003
Access 2003
The following code is using a Criteria Table
"tblVendNameFindReplace"
with 2 fields txtFind txtReplace
and a data table "tblData" Using "fldDescription"
What I'am trying to do:
Find the Value "txtFind" inside the fldDescription string and use
the txtReplace value and place it in fldMfgname
Problem:
However the code will only Update the fldMfgname field if the string
matches exactly
tblData: before routine runs example
fldDescription
fld Mfgname
PUSH , BAR , 102K06301 , LAWSON, 62A28477
SANDPAPER , 120GRIT , 2 50YDS , MSC ,73167
VACCUM , CU , P70208, LAWSON
VACCUM , CU , P70608, FASTENAL
after routines runs....
fldDescription
fld Mfgname
PUSH , BAR , 102K06301 , LAWSON, 62A28477 LAWSON
SANDPAPER , 120GRIT , 2 50YDS , MSC ,73167 MSC
VACCUM , CU , P70208, LAWSON LAWSON
VACCUM , CU , P70608, FASTENAL FASTENAL
Dim conn As System.Data.OleDb.OleDbConnection
Dim tblVendNameFindReplace As New DataTable
Dim tblData As New DataTable
conn = New
System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.
4.0;Data Source=C:\DM2007\SkuCat.mdb")
'make dataadapters
Dim dac As New System.Data.OleDb.OleDbDataAdapter("SELECT
fldId, txtFind, txtReplace FROM tblVendNameFindReplace", conn)
Dim dad As New System.Data.OleDb.OleDbDataAdapter("SELECT
fldDid, fldMfgname, fldMfrnum, fldDescription FROM tblData", conn)
Dim cb As New System.Data.OleDb.OleDbCommandBuilder(dad)
'get the datables from Access
dac.Fill(tblVendNameFindReplace)
dad.Fill(tblData)
'revise the data
' for a name find dump
For Each drc As DataRow In tblVendNameFindReplace.Rows
For Each drd As DataRow In tblData.Rows
' just so I can see the values =======
Dim strDesc As String
Dim strFind As String
strDesc = drd("fldDescription")
strFind = drc("txtFind")
' just so I can see the values =======
If drd("fldDescription") Like drc("txtFind") Then
drd("fldMfgname") = drc("txtReplace")
End If
Next
Next
'send updated table back to Access
dad.Update(tblData)
MsgBox("DONE Vendor Name Dump ", MsgBoxStyle.Information)
Thanks
fordraiders
Access 2003
The following code is using a Criteria Table
"tblVendNameFindReplace"
with 2 fields txtFind txtReplace
and a data table "tblData" Using "fldDescription"
What I'am trying to do:
Find the Value "txtFind" inside the fldDescription string and use
the txtReplace value and place it in fldMfgname
Problem:
However the code will only Update the fldMfgname field if the string
matches exactly
tblData: before routine runs example
fldDescription
fld Mfgname
PUSH , BAR , 102K06301 , LAWSON, 62A28477
SANDPAPER , 120GRIT , 2 50YDS , MSC ,73167
VACCUM , CU , P70208, LAWSON
VACCUM , CU , P70608, FASTENAL
after routines runs....
fldDescription
fld Mfgname
PUSH , BAR , 102K06301 , LAWSON, 62A28477 LAWSON
SANDPAPER , 120GRIT , 2 50YDS , MSC ,73167 MSC
VACCUM , CU , P70208, LAWSON LAWSON
VACCUM , CU , P70608, FASTENAL FASTENAL
Dim conn As System.Data.OleDb.OleDbConnection
Dim tblVendNameFindReplace As New DataTable
Dim tblData As New DataTable
conn = New
System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.
4.0;Data Source=C:\DM2007\SkuCat.mdb")
'make dataadapters
Dim dac As New System.Data.OleDb.OleDbDataAdapter("SELECT
fldId, txtFind, txtReplace FROM tblVendNameFindReplace", conn)
Dim dad As New System.Data.OleDb.OleDbDataAdapter("SELECT
fldDid, fldMfgname, fldMfrnum, fldDescription FROM tblData", conn)
Dim cb As New System.Data.OleDb.OleDbCommandBuilder(dad)
'get the datables from Access
dac.Fill(tblVendNameFindReplace)
dad.Fill(tblData)
'revise the data
' for a name find dump
For Each drc As DataRow In tblVendNameFindReplace.Rows
For Each drd As DataRow In tblData.Rows
' just so I can see the values =======
Dim strDesc As String
Dim strFind As String
strDesc = drd("fldDescription")
strFind = drc("txtFind")
' just so I can see the values =======
If drd("fldDescription") Like drc("txtFind") Then
drd("fldMfgname") = drc("txtReplace")
End If
Next
Next
'send updated table back to Access
dad.Update(tblData)
MsgBox("DONE Vendor Name Dump ", MsgBoxStyle.Information)
Thanks
fordraiders