R语言-股票数据库(4)-股票行业和概念板块数据-Wind

############################################################################################
######################     行业数据        #############################################
############################################################################################
create table stock_industry_wind
(stock_id varchar(10)    -- 股票代码
,DATETIME date  -- 数据日期
,STOCK_name varchar(50)  -- 公司名
,START_DATE DATE  -- 上市日期
,CONCEPT     VARCHAR(500)  -- 概念板块
,industry_gics    VARCHAR(150)  -- WIND行业名称 11种分类
,industry_gicscode    INT  -- WIND行业代码 11种分类
,industry_CSRC12   VARCHAR(150)  -- 证监会行业名称 19种分类
)
############################################################################################
###############  循环加载交易数据  ##################
############################################################################################
library(RCurl)
library(RMySQL)  # 载入RMySQL包
library(WindR)
w.start()

table_name <- "stock_industry_wind"
flag <- "