Consultas SQL Embebidas en Codigo

VB.NET

Una alternativa de ejecucion de consultas SQL a la comunmente utilizada a traves de Stores Procedures es usar codigo embebido del lado del servidor en nuestras paginas web
Esta opcion no es la mas optima en cuanto pero no deja de ser util
cuando se tiene poco acceso a la base de datos ya que no hacen falta stores, ni vistas,etc.
Esto se hace de la siguiente manera

El "objOleDbConn" es la el objeto que contiene la coneccion ya abierta
La variable ID contiene el ID del producto que se quiere encontrar los datos

Dim strSQL As String = "SELECT ID,Descripcion,Precio From Producto "
strSQL &= "WHERE ID = " & ID
Dim myCommand As New Data.OleDb.OleDbCommand(strSQL, objOleDbConn)
Dim dr As Data.OleDb.OleDbDataReader = myCommand.ExecuteReader

Entonces lo que tenemos en el dr son los campos que se encuentran en el select osea
ID,Descripcion y Precio.

En el caso de un INSERT INTO se puede utilizar toda la sintaxis SQL desde el codigo
"Declare @ID int set @ID=ISNULL((SELECT MAX(ID) + 1 AS ID FROM Producto ),1)"
En este caso incrementa el ID para luego hacer el insert en la tabla el cual tambien se puede hacer desde el codigo de la misma forma explicada anteriormente con la diferencia que el command se ejecuta asi: myCommand.ExecuteNonQuery()

ASi se puede ejecutar consultas SQL embebidas en codigo VB.Net