Imports System.Data.OleDb
・・・
Public Sub ItemRemove(ByVal IllDoc As Illustrator.Document)
If Form1.Cn.State = ConnectionState.Closed Then Form1.Cn.Open()
Dim delCom As OleDbCommand = Form1.Cn.CreateCommand
Dim tttCom As OleDbCommand = Form1.Cn.CreateCommand
tttCom.CommandText = "SELECT [key], ID, [TOP] FROM TEXTTABLE WHERE ([TOP] > 810)"
Dim ttt As OleDb.OleDbDataReader = tttCom.ExecuteReader()
While ttt.Read
IllDoc.TextArtItems.Remove(IllDoc.TextArtItems(ttt("ID")))
delCom.CommandText = "DELETE FROM TEXTTABLE WHERE [key]= " & ttt("key")
delCom.ExecuteNonQuery()
End While
ttt.Close()
tttCom.CommandText = "SELECT [key], ID, [TOP], WIDTH, STROKEWIDTH FROM PATHITEMS WHERE (STROKEWIDTH > 1.8) AND (WIDTH > 1000) AND ([TOP] > 780)"
ttt = tttCom.ExecuteReader()
While ttt.Read
IllDoc.PathItems.Remove(IllDoc.PathItems(ttt("ID")))
delCom.CommandText = "DELETE FROM PATHITEMS WHERE [key]= " & ttt("key")
delCom.ExecuteNonQuery()
End While
ttt.Close()
End Sub