VB.NET

VB.NET RSS

Using RecordsAffected as a parameter

Please support our VB.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: Jan 2008

Posts: 97

Reputation: Estella is an unknown quantity at this point

Solved Threads: 6

Estella

Offline

Junior Poster in Training

Using RecordsAffected as a parameter

Jun 10th, 2008

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
SearchString = "SELECT * FROM Breakdown WHERE BFrom = " & txtFrom.Text ' & " AND BTo = " & txtTo.Text
Dim Con As New OleDbConnection(BCalc_ConnectionString)
Dim Search As New OleDbCommand(SelectSearchString, Con)
SearchString = "SELECT * FROM Breakdown WHERE BFrom = " & txtFrom.Text ' & " AND BTo = " & txtTo.Text
Dim Con As New OleDbConnection(BCalc_ConnectionString)
Dim Search As New OleDbCommand(SelectSearchString, Con)

I want to stop users from being able to save a duplicate record in my Access database. I thought of using RecordsAffected, but I can't figure out how to get it to work.

That's how I've started. I want to be able to use the result of the RecordsAffected as a parameter in an IF statement so that

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
 IF Search.records affected = 0 THEN Insert records
 ELSE Display msgbox telling user that duplicate records aren't allowed.
 IF Search.records affected = 0 THEN Insert records
 ELSE Display msgbox telling user that duplicate records aren't allowed.

Please Help...

•

Join Date: Nov 2007

Posts: 2,641

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: Using RecordsAffected as a parameter

Jun 10th, 2008

see this code :

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\MyDB.mdb;")
cn.Open()
cmd = New OleDbCommand("SELECT * FROM Breakdown WHERE BFrom = '" & txtFrom.Text & "'", cn)
dr = cmd.ExecuteReader
If dr.Read()
  MsgBox "Matching Records Found"
  'write whatevr code u want here
Else
  MsgBox "Data not found"
End If
dr.Close()
cn.Close()
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\MyDB.mdb;")
cn.Open()
cmd = New OleDbCommand("SELECT * FROM Breakdown WHERE BFrom = '" & txtFrom.Text & "'", cn)
dr = cmd.ExecuteReader
If dr.Read()
  MsgBox "Matching Records Found"
  'write whatevr code u want here
Else
  MsgBox "Data not found"
End If
dr.Close()
cn.Close()