프로그램 저렴하게 제작해드립니다. 문의) 카톡 : vbnvba

'전체 글'에 해당되는 글 27건

2020.10.10 중/대형-키코 바오vol.3 24인치 캐리어(119,000원)
2020.06.30 [vb6.0/vba] VBScript 를 이용한 URL Encode/Decode
2019.09.16 MySQL 유일한 항목만 남기고 중복제거 1

2020. 10. 10. 14:17

중/대형-키코 바오vol.3 24인치 캐리어(119,000원)

카테고리 없음

오늘의 상품을 소개해 드립니다.

키코 바오vol.3 24인치 캐리어

상품을 소개해드리는 블로그입니다.

공감 ♥과 댓글 부탁드려요~

119,000

구매하러 가기

í¤ì½ ë°ì¤vol.3 24ì¸ì¹ ìºë¦¬ì´

COUPANG

www.coupang.com

상품 리뷰

★★★★★

í¤ì½ ë°ì¤vol.3 24ì¸ì¹ ìºë¦¬ì´

COUPANG

www.coupang.com

구매평 더 보기

이 게시물은 2020-10-10에 게시되었습니다, 제공해드리는 제품은 판매자에 의해 정보변동이 있을 수 있음을 알립니다.

이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.

저작자표시

이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.

Posted by vbnvba

2020. 6. 30. 10:05

[vb6.0/vba] VBScript 를 이용한 URL Encode/Decode

vb6.0 & vba/vb6.0 & vba 자료

Private JSEngine As Object

Public Function URLEncode(ByVal value As String)

If JSEngine Is Nothing Then SetJSEngine

value = JSEngine.CodeObject.encodeURIComponent(value)

value = Replace(value, "'", "%27")

URLEncode = Replace(value, """", "%22")

End Function

Public Function UrlDecode(ByVal value As String)

If JSEngine Is Nothing Then SetJSEngine

value = Replace(value, "+", " ")

UrlDecode = JSEngine.CodeObject.decodeURIComponent(value)

End Function

Private Sub SetJSEngine()

Set JSEngine = CreateObject("MSScriptControl.ScriptControl")

JSEngine.Language = "JScript"

End Sub

저작자표시

'vb6.0 & vba > vb6.0 & vba 자료' 카테고리의 다른 글

[vb6.0/vba/vb.net] 잡을수 있는 오류 (0)	2016.04.14

이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.

Posted by vbnvba

2019. 9. 16. 10:58

MySQL 유일한 항목만 남기고 중복제거

SQL

delete from g5_visit where vi_id in (
    select vi_id 
    from 
        (select vi_id, 
            row_number() over (partition by vi_agent, vi_agent order by vi_id desc) as row_num 
        from g5_visit) a
    where a.row_num > 1
    );