Biblioteca de Clases,Funciones y Sub-rutinas.

[elkronos]

<%
'Base de datos en oracle con dsn
Dim MM_orafin_STRING
MM_orafin_STRING = "dsn=mibasededatos;uid=miuid;pwd=mipass;"
%>
<%
'No se olvide crear la conexion con el string
'Ojo que pueden existir mas de una columnas por lo tanto columnasydatos es un array que contiene
'el nombre de la columna y el dato ejm
' Si una tabla en la base de datos tiene 2 columnas FECHA y DATO
'el array seria definico asi Dim columnasydatos(1)(1)
'donde la primera fila del array seria para la FECHA y su valor que sequiere ingresar
'columnasydatos(0,0) = "FECHA" columnasydatos(0,1) = '12/12/2001'
'y la segunda fila del array seria para el DATO y su valor que se quiere ingresar
'columnasydatos(1,0) "DATO" = columnasydatos(1,1) = 50
'Se pueden crear array mas grandes
FUNCTION InsertarDatosTabla(nombretabla , columnasydatos )
Dim RecInsertar
Dim columna
Set RecInsertar = Server.CreateObject("ADODB.Recordset")
RecInsertar.ActiveConnection = MM_orafin_STRING
RecInsertar.Source = "SELECT * FROM " & nombretabla
RecInsertar.CursorType = 0
RecInsertar.CursorLocation = 2
RecInsertar.LockType = 3
RecInsertar.Open()
RecInsertar.AddNew
Dim conttemp
for contfil = 0 to Ubound(columnasydatos,1)
conttemp = 0
for contcol = 0 to Ubound(columnasydatos,2)
conttemp = conttemp + 1
columna = columnasydatos(contfil,contcol)
dato = columnasydatos(contfil,conttemp)
contcol = Ubound(columnasydatos,2)
RecInsertar(columna) = dato
next
next
RecInsertar.Update
RecInsertar.Close()
Set RecInsertar = Nothing
END FUNCTION
FUNCTION BorrarDatosTabla(tabla , columna , datos)
Dim RecBorrar
Set RecBorrar = Server.CreateObject("ADODB.Recordset")
RecBorrar.ActiveConnection = MM_orafin_STRING
RecBorrar.Source = "SELECT * FROM " & tabla & " WHERE " & columna & "= '" & datos & "' " & " ORDER BY " & columna & " ASC"
RecBorrar.CursorType = 0
RecBorrar.CursorLocation = 2
RecBorrar.LockType = 3
RecBorrar.Open()
'Nos movemos a la primera posición
RecBorrar.MoveFirst
'Borramos
RecBorrar.Delete
'Guardamos los cambios
RecBorrar.Update
RecBorrar.Close()
Set RecBorrar = Nothing
END FUNCTION

FUNCTION BuscarDatosTabla(tabla , columna , datos)
Dim RecBuscar
Dim datobuscado
Set RecBuscar = Server.CreateObject("ADODB.Recordset")
RecBuscar.ActiveConnection = MM_orafin_STRING
RecBuscar.Source = "SELECT * FROM " & tabla & " WHERE " & columna & "= '" & datos & "' " & " ORDER BY " & columna & " ASC"
RecBuscar.CursorType = 0
RecBuscar.CursorLocation = 2
RecBuscar.LockType = 3
RecBuscar.Open()
IF RecBuscar.EOF THEN
'"NO SE ENCONTRO NADA" TAMBIEN SE PODIA HABER HECHO ASI Y SE QUITABA EL "ELSE" :
'NOT RecBuscar.EOF
ELSE
'Aqui se guarda el dato buscado
datobuscado = RecBuscar.Fields.Item(columna).Value
END IF
RecBuscar.Close()
Set RecBuscar = Nothing
BuscarDatosTabla = datobuscado
END FUNCTION

FUNCTION CrearTabla(Nombretabla)

Dim RecCreaTabla
'Se crea un recordset
Set RecCreaTabla = Server.CreateObject("ADODB.Recordset")
'Se asocia el recordset a la base de datos con el string
RecCreaTabla.ActiveConnection = MM_orafin_STRING
'Se crea una consulta en SQL ejem SELECT, CREATE, etc
RecCreaTabla.Source = "CREATE TABLE " & Nombretabla & " (FECHA DATE NULL, CANTACCIONES NUMBER NULL, VOLUMEN NUMBER NULL, PRECIOMAX NUMBER NULL, PRECIOMIN NUMBER NULL, PRECIOCIERRE NUMBER NULL)"
'Dejar esto por defecto 0
RecCreaTabla.CursorType = 0
'Cursor: 2 Server, 1 Cliente dejar por defecto 2
RecCreaTabla.CursorLocation = 2
'Opcion 3 Optimistic que no es solo lectura
RecCreaTabla.LockType = 3
'Se abre o se realiza la consulta
RecCreaTabla.Open()
END FUNCTION


%>



espero que les sirva de algo una pequeña contribución porque sus funciones me sirvieron mucho gracias