• Home
 · 
• Windows System Services
 · 
• All source should be free...Create a View and Drop a View on the fly...Couldnt find this anywhere..

All source should be free...Create a View and Drop a View on the fly...Couldnt find this anywhere..

All source should be free...Create a View and Drop a View on the fly...Couldnt find this anywhere...I needed it for MS Access ADP as i didn't

Rate All source should be free...Create a View and Drop a View on the fly...Couldnt find this anywhere..

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'       - Command1: Creates the view
'       - Command2: Drops the view
'
' TODO: Change Connection String
'
' TODO: Change Command Text for Create View
'
' TODO: Change Command Text for Drop View
'
' TODO: Add a refernce for the ADODB library 
'

Dim xCn As New ADODB.Connection
Dim xCmd As New ADODB.Command

Private Sub Form_Load()

    xCn.ConnectionString="Provider=Provider;UID=sa;Catalog=Cat;Data Source=kAOs"
    xCn.Open
    xCmd.ActiveConnection = xCn

End Sub

Private Sub Command1_Click()
    
    xCmd.CommandText="CREATE VIEW vw_View AS SELECT * FROM tbl WHERE Fld=param"
    xCmd.Execute

End Sub

Private Sub Command2_Click()

    xCmd.CommandText = "DROP VIEW vw_View1"
    xCmd.Execute

End Sub