mathieu_cupryk
asked on
Need to put from vb.net to sql format.
I would like to put the following in a sql format. If someone can help me that would be awesome.
Public Function GetTicketDevices(ByVal ticketID As String) As SqlDataReader
Dim sql As New StringBuilder()
sql.Append("SELECT TOP 100 ")
sql.Append("tbl_index_tick et_devices .TicketSol utionCompo nentIndexI D, ")
sql.Append("tbl_index_tick et_devices .DeviceID, ")
sql.Append("tbl_index_tick et_devices .TicketID, ")
sql.Append("tbl_index_tick et_devices .DateAdded , ")
sql.Append("tbl_index_tick et_devices .AgentAdde d, ")
sql.Append("tbl_company.Co mpany, ")
sql.Append("tbl_devices.De viceID, ")
sql.Append("tbl_devices.Fr iendlyName , ")
sql.Append("tbl_lookup_typ e_devices. DeviceVend or, ")
sql.Append("tbl_lookup_typ e_devices. DeviceMode l, ")
sql.Append("tbl_lookup_typ e_devices. DeviceDesc ription ")
sql.Append("FROM tbl_devices ")
sql.Append("Join tbl_index_ticket_devices ")
sql.Append("ON tbl_devices.DeviceID = tbl_index_ticket_devices.D eviceID ")
sql.Append("Join tbl_company ")
sql.Append("ON tbl_devices.EnterpriseID = tbl_company.EnterpriseID ")
sql.Append("Join tbl_lookup_type_devices ")
sql.Append("ON tbl_devices.DeviceTypeID = tbl_lookup_type_devices.De viceTypeID ")
sql.Append("WHERE tbl_index_ticket_devices.T icketID = '" & ticketID & "' ")
sql.Append("ORDER BY tbl_index_ticket_devices.D ateAdded ")
Dim dr As SqlDataReader
Dim conn As New SqlConnection(connectionSt ring)
If conn.State <> ConnectionState.Open Then conn.Open()
Dim cmd As New SqlCommand(sql.ToString(), conn)
cmd.CommandTimeout = 900
dr = cmd.ExecuteReader(CommandB ehavior.Cl oseConnect ion)
SqlConnection.ClearPool(co nn)
Return dr
Public Function GetTicketDevices(ByVal ticketID As String) As SqlDataReader
Dim sql As New StringBuilder()
sql.Append("SELECT TOP 100 ")
sql.Append("tbl_index_tick
sql.Append("tbl_index_tick
sql.Append("tbl_index_tick
sql.Append("tbl_index_tick
sql.Append("tbl_index_tick
sql.Append("tbl_company.Co
sql.Append("tbl_devices.De
sql.Append("tbl_devices.Fr
sql.Append("tbl_lookup_typ
sql.Append("tbl_lookup_typ
sql.Append("tbl_lookup_typ
sql.Append("FROM tbl_devices ")
sql.Append("Join tbl_index_ticket_devices ")
sql.Append("ON tbl_devices.DeviceID = tbl_index_ticket_devices.D
sql.Append("Join tbl_company ")
sql.Append("ON tbl_devices.EnterpriseID = tbl_company.EnterpriseID ")
sql.Append("Join tbl_lookup_type_devices ")
sql.Append("ON tbl_devices.DeviceTypeID = tbl_lookup_type_devices.De
sql.Append("WHERE tbl_index_ticket_devices.T
sql.Append("ORDER BY tbl_index_ticket_devices.D
Dim dr As SqlDataReader
Dim conn As New SqlConnection(connectionSt
If conn.State <> ConnectionState.Open Then conn.Open()
Dim cmd As New SqlCommand(sql.ToString(),
cmd.CommandTimeout = 900
dr = cmd.ExecuteReader(CommandB
SqlConnection.ClearPool(co
Return dr
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER