Visual Basic para Aplicaciones - Generador de querys oracle

Life is soft - evento anual de software empresarial
   
Vista:

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.


muestra

final

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 = resultado
 
End Function

Agradecería mucho su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder