------------------------------------------------------------------------------------------------------------
Needed Import Statment:
Imports System.Data.SqlClient
------------------------------------------------------------------------------------------------------------
CASE 1: COMMAND which WILL NOT RETUN ANY ROW. Example: UPDATE
Dim connectionString as String
Dim connection as SqlConnection
Dim commandString as String
Dim command as SqlCommand
connectionString = "Data Source=CPHWIN0151;Initial Dialog=ABC Billing Infor;uid=abc_billing;pwd=abc@123"
commandString = "UPDATE ABCTable set costcenter=12345"
connection = New SqlConnection(connectionString)
Try
connection.open()
command = New SqlCommand(commandString,connection)
command.ExecuteNonQuery()
command.connection.close()
Catch ex As SQLException
Finnaly
connection.close()
End Try
------------------------------------------------------------------------------------------------------------
CASE 2: COMMAND WHICH WILL RETURN ROW. Example: SELECT
Dim connectionString as String
Dim connection as SqlConnection
Dim commandString as String
Dim command as SqlCommand
connectionString = "Data Source=CPHWIN0151;Initial Dialog=ABC Billing Infor;uid=abc_billing;pwd=abc@123"
commandString = "SELECT objIdentifier,UID FROM V_MA_ORDER WHERE UID='12345'"
connection = New SqlConnection(connectionString)
Try
connection.open()
command = New SqlCommand(commandString,connection)
Dim dr As SqlDataReader = command.ExecuteReader
Do While dr.Read()
objId = dr(0).ToString.Trim
uid = dr(1).ToString.trim
Loop
dr.close()
command.connection.close()
Catch ex As SqlException
Finnaly
connection.close()
End Try
------------------------------------------------------------------------------------------------------------
No comments:
Post a Comment