?
Solved

Help Creating a function to change SQL Field Values

Posted on 2007-11-18
1
Medium Priority
?
150 Views
Last Modified: 2011-09-20
Hi all

Im looking for some help in creating a function to allow me to hardcode updates into SQL. The attached code will allow me to open the DB and search the fields however its been a while since ive programmed in vb and am moving to .net so hence the .field("Name") = is a bit out of date..  :)

Any help would be great

Many Thanks
Steve

Code in use __________________________________
       Dim SQL As String = "SELECT * FROM USERINFO WHERE USERNAME = '" & txtUsername.Text & "' AND PASSWORD  = '" & CryptPass & "'"
        Dim sqlReader As SqlDataReader = CCDBC.CCDBC.RetrieveData(SQL)
 
        If sqlReader.Read Then
            With sqlReader
                MsgBox(.GetValue(1) & "   " & .GetValue(2) & "   " & .GetValue(3))
            End With
            Me.Close()
        Else
            MsgBox("Invalid Username or Password entered", MsgBoxStyle.Exclamation)
        End If
        sqlReader.Close()
        sqlReader = Nothing
 
__________________________________________________
 
 
 
 
Public Shared Function GetConnection() As SqlClient.SqlConnection
        Dim conn As SqlClient.SqlConnection
        Dim strConn As String = "Data Source=SQLEXPRESS;Initial Catalog=CC;Integrated Security=True;Pooling=False"
 
        conn = New SqlClient.SqlConnection(strConn)
        Try
            conn.Open()
        Catch ex As SqlClient.SqlException
            Console.WriteLine("SQL Server ERROR: " & ex.Message & " in " & ex.StackTrace)
 
        Catch ex As Exception
            Console.WriteLine("ERROR opening connection: " & ex.Message)
        End Try
        GetConnection = conn
    End Function
 
    Public Shared Function RetrieveData(ByVal query As String) As SqlClient.SqlDataReader
        Dim rdr As SqlClient.SqlDataReader
        Dim conn As SqlClient.SqlConnection = GetConnection()
        Try
            Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(query, conn)
            ''CommandBehavior.CloseConnection closes the underlying connection 
            ''whenever the reader is closed
            rdr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
        Catch ex As SqlClient.SqlException
            Console.WriteLine("SQL Server ERROR: " & ex.Message & " in " & ex.StackTrace)
        Catch ex As Exception
            Console.WriteLine("ERROR retrieving data: " & ex.Message)
        End Try
        RetrieveData = rdr
    End Function

Open in new window

0
Comment
Question by:Stephen Manderson
1 Comment
 
LVL 143

Accepted Solution

by:
Guy Hengel [angelIII / a3] earned 2000 total points
ID: 20310503
please check out this tutorial:
http://webgraphics.web108.discountasp.net/HandH/AdapterUpdate.htm

it tells you to fill in a sqldataadapter, and define the UpdateCommand that will submit the sql update (or procedure) to save any changes done to the data inthe sqldataadapter...

hope this clarifies how to do things the .net way
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Wouldn’t it be nice if you could test whether an element is contained in an array by using a Contains method just like the one available on List objects? Wouldn’t it be good if you could write code like this? (CODE) In .NET 3.5, this is possible…
This article shows how to deploy dynamic backgrounds to computers depending on the aspect ratio of display
This Micro Tutorial will teach you how to add a cinematic look to any film or video out there. There are very few simple steps that you will follow to do so. This will be demonstrated using Adobe Premiere Pro CS6.
When cloud platforms entered the scene, users and companies jumped on board to take advantage of the many benefits, like the ability to work and connect with company information from various locations. What many didn't foresee was the increased risk…
Suggested Courses
Course of the Month17 days, 2 hours left to enroll

862 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question