Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Create view

Sub CreateQuery()          Dim cat As New ADOX.Catalog     Dim cd As New ADODB.Command     Dim sSQL As String          cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _        "Data Source=C:\mydb.mdb;"          sSQL = "SELECT * FROM Newtable"          cd.CommandText = sSQL          cat.Views.Append "Newquery", cd End Sub