Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

ACCESS是不是不支持中文字符啊?

12  发表于:2013-05-31 10:24:13  
复制

ACCESS是不是不支持中文字符啊?我把excel中文导入access临时表.在从临时表中把中文插入access link的SQL表.中文就乱码了

access好像不支持N''

代码如下:

 Set rs = CodeDb.OpenRecordset("SELECT temp_po.*, temp_po_guid.poi_guid, VEN.VEN_FOB, temp_po_guid.pom_guid, VEN.VEN_DefaultPurOrderAddress, VendorPurOrderAddress.VENPO_Contact, VEN.VEN_APTermsDesc, Item.IMA_UnitMeasure, Item.IMA_ItemName, Item.IMA_ItemID, Item.IMA_POInspFlag, Item.IMA_RecordID, Item.IMA_PurConvUnitMeasure, VEN.VEN_RecordID, VEN.VEN_Comments, VBA.VBA_PayName, VBA.VBA_PayAddress, VBA.VBA_PayCity, VBA.VBA_PayState, VBA.VBA_PayPostalCode, VBA.VBA_PayCountry, VBA.VBA_PayPhone, VBA.VBA_PayPhoneExt, VBA.VBA_PayFax, VBA.VBA_PayFaxExt, VBA.VBA_Counter,imv.IMV_MfgItemID,imv.IMV_POConvUnitMeasure, imv.IMV_POConvFactor, VEN.VEN_POName" & _
" FROM (((((temp_po_guid INNER JOIN temp_po ON (temp_po_guid.line = temp_po.line) AND (temp_po_guid.poid = temp_po.poid)) INNER JOIN Item ON temp_po.itemid = Item.IMA_ItemID) INNER JOIN VEN ON temp_po.venderid = VEN.VEN_VendorID) INNER JOIN VBA ON temp_po.venderid = VBA.VBA_VendorID) INNER JOIN VendorPurOrderAddress ON VEN.VEN_DefaultPurOrderAddress = VendorPurOrderAddress.VENPO_RecordID) INNER JOIN IMV ON (VEN.VEN_VendorID = IMV.IMV_VendorID) AND (Item.IMA_ItemID = IMV.IMV_ItemID) ", dbOpenDynaset, dbSeeChanges).OpenRecordset
  
   rs.MoveFirst
   Do While Not rs.EOF
      
             'pod
             sqlpod = "insert into pod (pod_purchorderid,pod_polinenbr,pod_requireddate,pod_requiredqty,"
             sqlpod = sqlpod & "pod_pounitprice,pod_shipname,"
             sqlpod = sqlpod & "pod_shipaddress,pod_shipcity,pod_shipstate,pod_shippostalcode,"
            
             sqlpod = sqlpod & "POD_CompleteFlag,POD_POChangeFlag,POD_Upgrade,POD_Final,POD_PrevReceiptQty,"
             sqlpod = sqlpod & "pod_shipcountry,pod_shipmethod,pod_itemid,pod_recordid,pod_poi_recordid,pod_inspectionflag,POD_PromiseDate)values("
           
             sqlpod = sqlpod & "'" & rs!POID & "','" & rs!LINE & "','" & rs!requiredate & "','" & rs!requiredqty & "',"
             sqlpod = sqlpod & "'" & rs!reprice & "','" & shipname & "',"
             sqlpod = sqlpod & "'" & shipaddress & "','" & shipcity & "','" & shipstate & "','" & shipcode & "',"
            
            
             sqlpod = sqlpod & "'0','0','0','0','0',"
             sqlpod = sqlpod & "'" & shipcountry & "','" & shipmod & "','" & rs!ItemID & "','" & rs!pod_guid & "','" & rs!poi_guid & "','" & IIf(rs!IMA_POInspFlag = False, "0", "1") & "','" & CDate(rs!requiredate) & "')"
                                      
             poicount = CInt(IIf(Nz(Dall("DLookup", "POI_Recordid", "POI", "  POI_Recordid ='" & StringFromGUID(rs!poi_guid) & "' ", cn:=mcnxADO), "0") = "0", "0", "1"))
             pomcount = CInt(IIf(Nz(Dall("DLookup", "POM_Recordid", "pom", "  POM_Recordid ='" & StringFromGUID(rs!pom_guid) & "' ", cn:=mcnxADO), "0") = "0", "0", "1"))
                          
      

 

 

Top
西出阳关无故人 发表于:2013-05-31 19:04:44

access肯定支持中文!!!



wfhwfh 发表于:2013-06-06 16:42:21

但代码不支持N''



总记录:2篇  页次:1/1 9 1 :