データベースからデータを取得
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 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