data-raw/odbc_test.R

In takewiki/tsda: data access and driver interface in takewiki solutions

conn = odbc_conn(ip = '115.159.201.178',port = 1433,user_name = 'sa',password = 'Hoolilay889@',db_name = 'py_test')

sql <- paste0("select *  from t_test")

data <- odbc_select(conn,sql)
data



odbc_writeTable(conn = conn,table_name = 't_test',r_object = data,append = T)



??odbc::dbWriteTable



sql2 = "	update t_test set fage =33 where fname = 'abc'"
bbc = odbc::dbSendQuery(conn,sql2)
bbc


conn = odbc_getConn(token = '9B6F803F-9D37-41A2-BDA0-70A7179AF0F3')

sql ="SELECT TOP (1000) [FBillNo]
      ,[FPrdOrgId]
      ,[FBillType]
      ,[FDate]
      ,[FMaterialId]
      ,[FBomId]
      ,[FProductType]
      ,[FReportType]
      ,[FUnitID]
      ,[FQuaQty]
      ,[FFailQty]
      ,[FReworkQty]
      ,[FScrapQty]
      ,[FReMadeQty]
      ,[FFinishQty]
      ,[FWorkshipId]
      ,[FMoBillNo]
      ,[FMoEntrySeq]
      ,[FCreatorId]
      ,[FCreateDate]
      ,[FApproverId]
      ,[FApproveDate]
  FROM [cprds].[dbo].[rds_prd_MoRpt_mes]"

data2 = odbc_select(conn,sql)
data2