check if user-id exists then edit

[crzyice]

Greetings,
im a beginner in vb.net and im trying to make a survey program(which consists of radiobuttons- poor,fair,good,verygood,excellent) that when a user inputs its user-id. the program will check the database whether the user-id has been entered before or not. if existing, the user may edit the original/existing survey record. im using MS SQL as a back-end. and also, i was asked to use 1 form only.

i was just wondering if you guys can help me out by showing some examples of your way of programming it, 'cause honestly, i dont have that much idea yet when it comes to vb.net.

Thank you in advance.

[Pegasus40218]

Are you writing an ASP.Net application with VB.Net on the back-end or are you writing a VB.Net Windows Forms application?

[crzyice]

im writing asp.net with vb.net sir. sorry, i got lost with my message. but the good news is, i finally manage to check user-id if it exists sir. i used read.item. but there's just another one problem. i cant call the sub saverec() which allows the user to save unentered value.

here's my code sir :

Protected Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim con As New SqlConnection
        Dim cmd As New SqlCommand()
        con.ConnectionString = "Data Source = MARITES; Initial Catalog = dbClientFeedBack; Persist Security Info = True; User ID = sa; Password = sa;"
        con.Open()
        cmd.Connection = con
 
        Dim sql As String
        sql = ("SELECT * FROM tblFeedBackPK WHERE ORNum ='" & txtORNum.Text & "'")
        cmd.CommandText = sql
        Dim read As SqlDataReader = cmd.ExecuteReader
        While read.Read
 
 
 
            If read.Item("ORNum").ToString = txtORNum.Text Then
                Dim msgedit As DialogResult = MsgBox("OR NUMBER ALREADY EXIST, Do you want to edit?", MsgBoxStyle.YesNo)
                If msgedit = Windows.Forms.DialogResult.Yes Then
                    calling()
 
                Else
                    txtORNum.Text = ""
                    Page.Form.DefaultFocus = txtORNum.ClientID()
                    button1.Visible = False
                    Button2.Visible = True
                End If
 
            ElseIf read.HasRows = 0 Then
                saverec()
            End If
 
        End While
        con.Close()
 
 
 
    End Sub
 
 

here is my saving() sub

Public Sub saverec()
        Dim con As New SqlConnection
        Dim cmd As New SqlCommand()
        con.ConnectionString = "Data Source = MARITES; Initial Catalog = dbClientFeedBack; Persist Security Info = True; User ID = sa; Password = sa;"
        cmd.Connection = con
        con.Open()
        cmd.CommandText = "INSERT INTO tblFeedBackPK(ORNum,poorAvail,poorPrice,poorTransc,poorStore,poorCourt,poorAccess,fairAvail,fairPrice,fairTransc,fairStore,fairCourt,fairAccess,goodAvail,goodPrice,goodTransc,goodStore,goodCourt,goodAccess,vgAvail,vgPrice,vgTransc,vgStore,vgCourt,vgAccess,excellentAvail,excellentPrice,excellentTransc,excellentStore,excellentCourt,excellentAccess) VALUES('" & txtORNum.Text & "','" & poor1.Checked & "','" & poor2.Checked & "','" & poor3.Checked & "','" & poor4.Checked & "','" & poor5.Checked & "','" & poor6.Checked & "','" & fair1.Checked & "','" & fair2.Checked & "','" & fair3.Checked & "','" & fair4.Checked & "','" & fair5.Checked & "','" & fair6.Checked & "','" & good1.Checked & "','" & good2.Checked & "','" & good3.Checked & "','" & good4.Checked & "','" & good5.Checked & "','" & good6.Checked & "','" & verygood1.Checked & "','" & verygood2.Checked & "','" & verygood3.Checked & "','" & verygood4.Checked & "','" & verygood5.Checked & "','" & verygood6.Checked & "','" & excellent1.Checked & "','" & excellent2.Checked & "','" & excellent3.Checked & "','" & excellent4.Checked & "','" & excellent5.Checked & "','" & excellent6.Checked & "')"
        cmd.ExecuteNonQuery()
        MsgBox("SUCCESS")
        button1.Visible = True
        Button2.Visible = False
 
        clearing()
 
    End Sub

[crzyice]

every time i click the button save (which is not an existing number), nothing happens and and the button just disappears. but when an existing value was entered. the msg prompts asking the user if he wants to edit. after edit was done, still the button just disappears upon saving and nothing happens.

sorry for bothering you pegasus.
any help will be appreciated :)

[crzyice]

@Pegasus40218
WOOHOO! nvm pegs i finally managed to execute it. i removed sub saving() inside the while loop. sorry for bothering you. thank you too :) keepsafe.
God bless :)