Dim Yellow As Integer Try Yellow = pItem.FillColor.CMYK.Yellow Catch ex As Exception Yellow = 0 End Try

SQLCm.CommandText = "DELETE FROM TEXTPOINT" SQLCm.ExecuteNonQuery()

Dim TS As OleDbCommand = Cn.CreateCommand TS.CommandText = "SELECT * FROM TEXTPOINT" Dim tRead As OleDb.OleDbDataReader = TS.ExecuteReader While tRead.Read Tcx = tRead("center_x") Tcy = tRead("center_y") End While

Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\mdb_test\ITEMS.mdb") Dim SQLCm As OleDbCommand = Cn.CreateCommand If Cn.State = ConnectionState.Closed Then Cn.Open() SQLCm.CommandText = "INSERT INTO TEXTPOINT…

Console.WriteLine(pItem.FillColor.CMYK.Yellow) 結果：25

定数値説明 adBoolean 11 ブール値型 adCurrency 6 通貨型。 adDate 7 日付時刻型。 adDouble 5 倍精度浮動小数点数型。 adGUID 72 オートナンバー型。 adInteger 3 長整数型。 adLongVarWChar 203 メモ型。 adSingle 4 単精度浮動小数点数型。 adSmallInt 2…

Imports System.Data.OleDb Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\DB\PATHDB.mdb") If Cn.State = ConnectionState.Closed Then Cn.Open()

ALPCm.CommandText = "SELECT MAX(key) FROM POINTALL " Try key = ALPCm.ExecuteScalar Catch ex As Exception key = 0 End Try