Generador de querys oracle
Publicado por Ali (1 intervención) el 29/05/2017 22:43:53
Hola que tal
Me encuentro realizando una macro pequeña que sea capaz de generarme las consultas básicas (insert, update, delete) para oracle, a raiz de una tabla creada en un excel. Hasta el momento el logrado concatenar los datos llamando a una función que llame "=(CREARINSERT", y seleccionando el área de la tabla, pero no me hago la idea como darle la sintaxis de las querys. Cualquier idea, aporte o ayuda se los agradecería mucho, les dejo unas imágenes para aclarar un poco mi tema.
El código para concatenar es el siguiente
Agradecería mucho su ayuda
Me encuentro realizando una macro pequeña que sea capaz de generarme las consultas básicas (insert, update, delete) para oracle, a raiz de una tabla creada en un excel. Hasta el momento el logrado concatenar los datos llamando a una función que llame "=(CREARINSERT", y seleccionando el área de la tabla, pero no me hago la idea como darle la sintaxis de las querys. Cualquier idea, aporte o ayuda se los agradecería mucho, les dejo unas imágenes para aclarar un poco mi tema.
El código para concatenar es el siguiente
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'==== CREAR INSERT ====
Function CREARINSERT(Rango As Range)
'Recorre todas las celdas del rango
For Each celda In Rango.Cells 'Si la celda NO esta vacia, entonces concatena
If celda.Value <> "" Then
resultado = resultado & "; " & celda.Value
End If
Next celda
'Se remueve el ; y el espacio inicial
resultado = Right(resultado, Len(resultado) - 2)
CREARINSERT = resultadoEnd Function
Agradecería mucho su ayuda
- Generador-de-Querys-Oracle.zip(13,8 KB)
Valora esta pregunta
0