Imports Microsoft.Office.InteropImports Imports Microsoft.Office.Core.MsoTriState Imports Microsoft.Office.Interop.PowerPoint Imports Microsoft.Office.Interop Imports System.Data.OleDbModule Imports System.Data.OleDb Module Module1 Sub Main() Dim myApp = New PowerPoint.Application() myApp.Visible = msoTrue Dim MyPresentation = myApp.Presentations.Open("C:\Users\owner\Desktop\Trials.pptx", msoTrue, msoTrue, True) ' get the first slide Dim MyFirstSlide = MyPresentation.Slides(1) Dim sqlQueries As New ArrayList Try For i = 1 To MyFirstSlide.Shapes.Item(1).Table.Rows.Count Dim row = MyFirstSlide.Shapes.Item(1).Table.Rows.Item(i) 'Get desired values from ppt table Dim firstColVal = row.Cells(1).Shape.TextFrame.TextRange.Text.Trim() Dim secondColVal = row.Cells(2).Shape.TextFrame.TextRange.Text.Trim() 'Build the sql insert command for the db sqlQueries.Add("UPDATE SHIPS SET PROBLEMS = 'secondColVal' WHERE NAME='firstColVal'") Next ' close presentation MyPresentation.Close() 'MSAccess stuff 'Open connection to db Dim connection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source= C:\database.mdb") connection.Open() 'Perform each query one-by-one For Each query In sqlQueries Dim cmd = New OleDbCommand(query, connection) Dim icount = cmd.ExecuteNonQuery Next 'Close connection connection.Close() Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Module
Standard input is empty
Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r) Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved. /home/HSijc7/prog.vb (1,20) : Error VBNC30456: 'Office' is not a member of 'Global.Microsoft'. /home/HSijc7/prog.vb (1,20) : Warning VBNC40056: The import 'Microsoft.Office.InteropImports' could not be found. /home/HSijc7/prog.vb (2,19) : Error VBNC30456: 'Office' is not a member of 'Global.Microsoft'. /home/HSijc7/prog.vb (2,19) : Warning VBNC40056: The import 'Microsoft.Office.Core.MsoTriState' could not be found. /home/HSijc7/prog.vb (3,19) : Error VBNC30456: 'Office' is not a member of 'Global.Microsoft'. /home/HSijc7/prog.vb (3,19) : Warning VBNC40056: The import 'Microsoft.Office.Interop.PowerPoint' could not be found. /home/HSijc7/prog.vb (4,19) : Error VBNC30456: 'Office' is not a member of 'Global.Microsoft'. /home/HSijc7/prog.vb (4,19) : Warning VBNC40056: The import 'Microsoft.Office.Interop' could not be found. /home/HSijc7/prog.vb (5,16) : Error VBNC30456: 'OleDbModule' is not a member of 'Global.System.Data'. /home/HSijc7/prog.vb (5,16) : Warning VBNC40056: The import 'System.Data.OleDbModule' could not be found. 5 errors, but compilation succeeded? Resolve /home/HSijc7/<MyGenerator> (1,1) : Error VBNC99999: Unexpected error: There has been an internal error in the compiler: Consistency check failed at vbnc.Compiler.VerifyConsistency (Boolean result, System.String Location) [0x000a3] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:132 at vbnc.Compiler.Compile_Resolve () [0x00070] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:403 at vbnc.Compiler.Compile () [0x0028a] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:561 Compilation took 00:00:00.7036780
Standard output is empty