Question

Honest, I am really trying to learn this stuff. I’ve been using Classic ASP for years and just switching over to .net. So far, I’m not having much fun, but I’m trying and I’m not going to quit. One of the small pieces I am struggling with is running a query then, updating the record. Even googling for examples, I having a tough time figuring out how to do something simple like:

    Set objRS = Server.CreateObject ("ADODB.RecordSet")


ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=G:\Inetpub\wwwroot\TestPage\TheData\TestData.mdb;" & _
          "Persist Security Info=False"

SqlStr = "SELECT * " & _
         "FROM Techs " & _
         "WHERE UserID = " & UserID & " "

objrs.Open SqlStr, ConStr, adOpenStatic, adLockOptimistic,adCmdText
If Objrs.recordCount <> 0 Then
   TechUserName = Objrs("TechUserName")
   Objrs.Update
      Objrs("LastLogin") = Now()
   Objrs.Update
Else
   Objrs.AddNew
      Objrs("UserID") = UserID
   Objrs.Update
End If
Objrs.Close

Set objRS = Nothing


Is it even possible? Can someone please help me do the above code in ASP.net (VB) or point me to a really good thorough tutorial on how to do this.

Thanks in advance.
												

Answer 1

Woo Hoo I got it!

Dim SqlStr As String
Dim ConStr As String = ConfigurationManager.ConnectionStrings("TCConStr").ConnectionString

SqlStr = "SELECT * " & _
         "FROM TechUsers " & _
         "WHERE TechWWID = " & Chr(34) & TechWWID & Chr(34) & " " & _
         "AND TechEmplNum = " & TechEmplNum & " "

Dim CN As OleDbConnection = New OleDbConnection(ConStr)
CN.Open()
Dim DA As OleDbDataAdapter = New OleDbDataAdapter(SqlStr, CN)
Dim DS As New DataSet
DA.Fill(DS, "TechUsers")
Dim DT As DataTable = DS.Tables("TechUsers")
Dim RecCount As Integer = DT.Rows.Count
Dim CB As OleDbCommandBuilder = New OleDbCommandBuilder(DA)

If RecCount = 0 Then
    DA.InsertCommand = CB.GetInsertCommand()
    Dim DR As DataRow = DT.NewRow()
    DR("TechName") = TechName
    DR("TechWWID") = TechWWID
    DR("TechEmplNum") = TechEmplNum
    DR("FirstLogin") = Date.Now()
    DR("LastLogin") = Date.Now()
    DR("LoginCount") = 1
    DT.Rows.Add(DR)
    DA.Update(DS, "TechUsers")
Else
    Dim DR As DataRow = DT.Rows(0)
    Dim LoginCount As Integer = DR("LoginCount")
    TestStuff.InnerHtml = TestStuff.InnerHtml & "<br > " & LoginCount
    DA.UpdateCommand = CB.GetUpdateCommand()
    DR("LastLogin") = Date.Now()
    DR("LoginCount") = LoginCount + 1
    DA.Update(DS, "TechUsers")
End If

CN.Close()

Thanks everyone for the clues to get this done.