RE:Crear Vista en servidor SQL desde VBA
Publicado por
jorge avalos (1 intervención) el 27/03/2007 19:48:18
haa ps ests bien facil mi chavo
ahi te va el codigo oki
dim vm_Select as string
vm_Select = "CREATE VIEW Vw" & C_USERID & " AS "
vm_Select = vm_Select & "SELECT KNTB_Companias.KNnv_nombre AS Sucursal, " & _
"FAnv_Talon, FAdt_FechaFac, " & _
"Cliente = CASE WHEN FAnv_CveCliPaga = FAnv_RemCve " & _
"THEN FAnv_Remitente ELSE FAnv_Destinatario END, " & _
"FAdc_Total, FAnv_Descripcion AS Motivo, CRTb_Clientes.CRin_Grupo AS Grupo, "
vm_Select = vm_Select & "Total = 1, FATb_Factura.FAin_DestinoSuc AS No_Suc " & _
"From FATb_Factura " & _
"INNER JOIN KNTB_Companias ON FATb_Factura.FAin_DestinoSuc = KNTB_Companias.KNin_nucia " & _
"LEFT JOIN CRTb_Clientes ON FATb_Factura.FAnv_CveCliPaga = CRTb_Clientes.CRnv_CveCliente " & _
"LEFT JOIN FATb_MotivoCancela ON FATb_MotivoCancela.FAnv_Clave = FATb_Factura.FAnv_CveCancela "
'etc... todo lo que quieras en tu select para la vista...
'y despues lo creas
Cn_W.Execute vm_Select
'nota: Cn_W es una coneccion a la base de datos oki
Saludos!!!