SQL DELETE VISUAL BASIC CGI

UNIDAD 5: VISUAL BASIC INTRODUCION A LAS BASES DE DATOS

TEMA 12: BAJA ELIMINACION DELETE VISUAL BASIC CGI

La instruccion sql a usar es: DELETE FROM TABLA WHERE CONDICION

Prog23.html


<HTML>

<FORM ACTION=/cgi-bin/tusitio/prog23.exe METHOD=get>

CLAVE ANIMALITO A ELIMINAR:<INPUT TYPE=text NAME=CLAVE><BR>

<INPUT TYPE=submit VALUE=ELIMINAR>

</FORM></HTML>

prog23.vb


Imports System

Imports System.Data

Imports System.Data.OleDb

Imports Microsoft.VisualBasic

PUBLIC CLASS prog23

' creando y cargando coneccion, adpater, dataset como variables globales

SHARED DIM coneccion AS OLEDBCONNECTION

SHARED DIM canal AS OLEDBDATAADAPTER

SHARED DIM tabla AS DATASET

SHARED DIM orden AS OLEDBCOMMAND

PUBLIC SHARED SUB MAIN()

' variables a usar

dim q, clave as string

' enlazando coneccion a la base de datos

coneccion = NEW OLEDBCONNECTION("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\progfacil\tusitio\mibase.mdb")

'capturando clave a buscar

DIM capturar AS lnet = new lnet()

'clave se captura como string porque se usa mas adelante un oledbtype

'para conertirla y mandarla

clave = capturar.getparametro("CLAVE")

' instruccion sql DELETE FROM TABLA WHERE CLAVE=DATO

q = "delete from mitabla where clave=@CLAVE"

orden = new OleDbCommand(q, coneccion)

orden.Parameters.Add(new OleDbParameter("@CLAVE", OleDbType.Integer))

orden.Parameters("@CLAVE").Value = clave

orden.Connection.Open()

orden.ExecuteNonQuery()

orden.Connection.Close()

' avisando que ya se termino

System.Console.WriteLine("Content-Type:text/html" & vbCrLf)

System.Console.WriteLine("ANIMALITO ELIMINADO USAR PROG18 PARA DESPLEGAR")

' o mejor aun construir aqui, EN y UNA forma dinamica el prog18.HTML

' cerrando todo

coneccion.Close()

END SUB

END CLASS

OBSERVAR QUE NO SE OCUPO NI ADAPTER NI DATASET, SOLO UN COMMAND DIRECTO A LA CONECCION O BASE DE DATOS, es decir es valido mandar instrucciones sql directo a una base de datos, interesante verdad???

Corridas :

Prog18 ← tabla original