본문 바로가기

전체 글156

[MySQL] [MySQL] SELECT 문 특정 컬럼의 MIN값이 0보다 클경우 0을 반환하고 그렇지 않으면 MIN값을 반환 보통 다른 언어에서는 IF문을 사용하지만 MySQL에서는 CASE문을 사용합니다. SELECT CASE WHEN MIN(`발주번호`) - 1 > 0 THEN 0 ELSE MIN(`발주번호`) - 1 END AS V FROM `order_delivery_number` WHERE 1 위 쿼리를 실행시키면 다음과 같은 결과를 볼 수 있습니다. 2023. 7. 12.
[vba] Outlook 현재 활성화된 창의 제목 및 내용을 가져오는 방법 VBASub progrgram1472() Dim myOlExp As Outlook.Explorer Dim myOlSel As Outlook.Selection Set myOlExp = Application.ActiveExplorer Set myOlSel = myOlExp.Selection Dim selectedFolder As Outlook.MAPIFolder Set selectedFolder = myOlExp.CurrentFolder Dim itemMessage As String itemMessage = "Item is unknown." Dim expMessage As String expMessage = "Your current folder is " & selectedFolder.Parent.Name &.. 2023. 7. 10.
[vb.net] 이미지 주변 여백 제거 Public Function CropWhiteSpace(ByVal bmp As Bitmap) As Bitmap Dim w As Integer = bmp.Width Dim h As Integer = bmp.Height Dim white As Integer = &HFFFFFF Dim allWhiteRow As Func(Of Integer, Boolean) = Function(r) For i As Integer = 0 To w - 1 If (bmp.GetPixel(i, r).ToArgb() And white) white Then Return False Next Return True End Function Dim allWhiteColumn As Func(Of Integer, Boolean) = Function(.. 2023. 6. 28.
[vb.net] 네이버 스마트 스토어 커머스 API 활용하기 - 주문 조회 URL : https://api.commerce.naver.com/external/v1/pay-order/seller/product-orders/last-changed-statuses​lastChangedFromrequired string Example: 아래 "한국 표준시(KST)" 참고조회 시작 일시(inclusive)lastChangedTostring 조회 종료 일시(inclusive). 생략 시 lastChangedFrom으로부터 24시간 후로 자동 지정됩니다.lastChangedTypestring최종 변경 구분moreSequencestringmoreSequence 사용법은 API 설명을 참고합니다. 임의의 값 입력 시 예기치 않은 결과가 제공될 수 있습니다.limitCountinteger조회 .. 2023. 6. 26.
[vb.net] 이미지 주변 여백 제거 Imports System.Drawing.Imaging Imports System.Runtime.CompilerServices Public Module BitmapExtensions Public Function TrimImage(ByRef img As Bitmap) As Bitmap Dim threshhold = 250 Dim topOffset = 0 Dim bottomOffset = 0 Dim leftOffset = 0 Dim rightOffset = 0 Dim x As Long, y As Long, GetColor As Color Dim foundColor = False ' Get left bounds to crop x = 1 While x = 1 AndAlso foundColor = False y .. 2023. 6. 26.
[vb.net] OpenFileDialog Example Dim ofd As New OpenFileDialog() '// ofd.FileName = "default.매뉴" '// 최초지정 파일 '// ofd.InitialDirectory = "C:\" '// 처음에 표시되는 폴더(미지정시 현재폴더) ofd.Filter = "All file(*.*)|*.*" '// 파일종류(미지정시 모든파일) ofd.FilterIndex = 1 '// 처음에는 모든 파일이 선택되도록 지정 ofd.Title = "file Select" '// 타이틀 ofd.RestoreDirectory = True '// 다이얼로그박스 닫기젖 현재의 디렉토리를 복원 ofd.CheckFileExists = True '// 존재하지 않는 파일 지정시 경고(자동지정) ofd.CheckPathExist.. 2023. 6. 21.
[vb.net] WebClient 파일 업로드 프로세스 바 / BackgroundWorker Progress Display Private WithEvents uploader As New WebClient Private Sub UploadFile(sourcePath As String, destinationAddress As String) uploader.UploadFileAsync(New Uri(destinationAddress), sourcePath)End Sub Private Sub uploader_UploadProgressChanged(sender As Object, e As UploadProgressChangedEventArgs) Handles uploader.UploadProgressChanged SetProgress(Convert.ToInt32(100 * e.BytesSent / e.TotalBytesToSend)).. 2023. 6. 14.
[MySql] DB 백업 //https://atg-cas.iptime.org/db_backup.php?db_nm=alltogreen//https://atg-cas.iptime.org/db_backup.php?db_nm=aserpacific//https://atg-cas.iptime.org/db_backup.php?db_nm=jeju//https://atg-cas.iptime.org/db_backup.php?db_nm=mysql//https://atg-cas.iptime.org/db_backup.php?db_nm=information_schema /*** Updated: Mohammad M. AlBanna* Website: MBanna.info*/  //MySQL server and database$dbhost = 'localho.. 2023. 6. 7.
[vb.net] Round Button Private Sub RoundButton(btn As Button) btn.FlatStyle = FlatStyle.Flat btn.FlatAppearance.BorderSize = 0 btn.BackColor = Color.Red btn.ForeColor = Color.White btn.Cursor = Cursors.Hand btn.Font = New Font("Century Gothic", 14) Dim Raduis As New Drawing2D.GraphicsPath Raduis.StartFigure() 'appends an elliptical arc to the current figure 'left corner top Raduis.AddArc(New Rectangle(0, 0, 20, 20), 1.. 2023. 6. 7.
[vb.net] DateTimePicker 전월, 전주, 어제, 오늘, 금주 설정하기 Private Sub cmd_d_x_Click(sender As Object, e As EventArgs) Handles cmd_d_5.Click, cmd_d_4.Click, cmd_d_3.Click, cmd_d_2.Click, cmd_d_1.Click Dim nm As String = sender.Name Dim idx As Integer = nm.Split("_").Last Select Case idx Case 1 '// 전월 DTP_0_1.Value = DateSerial(Year(Now), Month(Now) - 1, 1) DTP_0_2.Value = DateSerial(Year(Now), Month(Now), 0) Case 2 '// 전주 DTP_0_2.Value = Now.Date.AddDay.. 2023. 5. 22.
[vb.net] JSON Example Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim jo As Object = New With {Key .list = {"foo", "bar"}, Key .data = "string"} RichTextBox1.Text = JsonConvert.SerializeObject(jo) End Sub 2023. 4. 9.
네이버 블로그 주소로 아이디 알아내기 https://blog.naver.com/NBlogWlwLayout.naver?blogId=sequoia-jeju 응답결과: http://blog.naver.com/favicon.ico 네이버 블로그 바로가기 WebLayout 왜 블로그 아이디를 따로 만든걸까? 2023. 3. 28.
[vb6.0/vba] 쿠팡 상품 크롤링 Sub 검색() '/****************** 기존코드 Dim s As Shape For Each s In ActiveSheet.Shapes Debug.Print s.Name If s.Name = "이미지" Then s.Delete Next Range("5:10000").ClearContents '/****************** 0 Then sNodeName = sNodeNameIndex lNodeIndex = 1 Else sXPathArray = Split(sNodeNameIndex, "[") sNodeName = sXPathArray(0) lNodeIndex = CLng(Left(sXPathArray(1), Len(sXPathArray(1)) - 1)) End If sRestOfXPath .. 2023. 3. 11.
[vb6.0/vba] 파일명에서 사용할 수 없는 텍스트(파일명) 치환함수 Function changeFileName(txt) s = txt s = Replace(s, "\", "_") s = Replace(s, "/", "_") s = Replace(s, ":", "_") s = Replace(s, "*", "_") s = Replace(s, "?", "_") s = Replace(s, """", "_") s = Replace(s, "", "_") s = Replace(s, "|", "_") changeFileName = s End Function 2023. 3. 11.
[vb6.0/vba] WinHttp를 이용한 파일 다운로드 downloadFile 함수 Function downloadFile(URL, localPath) As String On Error GoTo goErr Set winhttp = CreateObject("WinHttp.WinHttpRequest.5.1") winhttp.Open "GET", URL, False winhttp.Send Set objStream = CreateObject("ADODB.Stream") objStream.Open objStream.Type = 1 objStream.Write winhttp.responseBody objStream.SaveToFile localPath, 2 objStream.Close Exit Function goErr: downloadFile = Err.Description End Function 2023. 3. 11.
[vb6.0/vba] htmlfile(MSHTML.HTMLDocument) 를 이용한 스크립트를 통한 encode / decode Function encode(str) Set htmlfile = CreateObject("htmlfile") htmlfile.parentWindow.execScript "function encode(s) {return encodeURIComponent(s)}", "jscript" encode = htmlfile.parentWindow.encode(str) End Function Function decode(str) Set htmlfile = CreateObject("htmlfile") htmlfile.parentWindow.execScript "function decode(s) {return decodeURIComponent(s)}", "jscript" decode = htmlfile.parentWind.. 2023. 3. 11.
[vb.net] csv 내보내기(Export data to CSV file in VB.NET) AddHandler ts.Click, Sub(so As ToolStripMenuItem, ea As EventArgs) Dim tem As String = "급여일,사원번호,이름,부서,직책,기본급,식대,자가운전,성과급,지급액계,국민연금,건강보험,고용보험,장기요양보험,소득세,지방소득세,공제액계,차인지급액2023-03-31,202301011,홍길동,인사팀,과장,1500000,100000,0,0,1600000,100000,110000,12000,4500,3200,2500,232200,1367800" Dim fileName As String = Path.Combine(APP_USER_DATA_PATH, "salary_example.csv") My.Computer.FileSystem.WriteAllText(fil.. 2023. 2. 25.
[MySQL] A테이블에 있고, B테이블에 없는 데이터 조회 및 삭제 A테이블에 있고, B테이블에 없는 데이터 조회 SELECT A.str_id FROM chat A LEFT OUTER JOIN meeting B ON A.str_id=B.multi_key WHERE B.multi_key IS NULL; 임시테이블을 이용한 A테이블에 있고, B테이블에 없는 데이터 삭제 DELETE FROM chat WHERE str_id IN (SELECT * FROM (SELECT A.str_id FROM chat A LEFT OUTER JOIN meeting B ON A.str_id=B.multi_key WHERE B.multi_key IS NULL) AS temp_table); 2023. 2. 21.
[vb6.0/vba] 로또 6/45 번호 회차별 당첨번호 크롤링 Sub 로또645_회차별_추첨결과() Dim URL As String, IE As Object, T As String Application.ScreenUpdating = 0 Set IE = CreateObject("WinHttp.WinHttpRequest.5.1") URL = "https://dhlottery.co.kr/gameResult.do?" URL = URL & "method=allWinExel&nowPage=" URL = URL & "&drwNoStart=1&drwNoEnd=65535" With IE .Open "GET", URL .setRequestHeader "Host", "dhlottery.co.kr" .send: .waitForResponse: DoEvents T = .responseTe.. 2023. 2. 16.
[PHP] $_SERVER를 이용하여 현재 페이지의 URL 정보를 가져오는 방법 $_SERVER를 이용하여 현재 페이지의 URL 정보를 가져올 수 있다. $_SERVER[ "HTTP_HOST" ] : 도메인 $_SERVER[ "REQUEST_URI" ] : 도메인 다음 부분 $_SERVER[ "QUERY_STRING" ] : GET 방식으로 넘어온 값 $_SERVER[ "PHP_SELF" ] : 도메인 다음 부분에서 GET 방식으로 넘어온 값 제외 basename( $_SERVER[ "PHP_SELF" ] ) : 파일 이름 예를 들어 URL이 http://program1472.com/php/php.php?a=123&b=456라고 할 때, 결과는 다음과 같다. $_SERVER[ "HTTP_HOST" ] : program1472.com $_SERVER[ "REQUEST_URI" ] : .. 2022. 12. 2.
[vb.net] 다형성(가상함수) Module Module1 Sub Main() Dim objParent As ParentClass = New ChildClass objParent.GeneralFunc() objParent.OverridAbleFunc() Console.WriteLine("") Dim winarray(3) As Control winarray(0) = New Control(1, 2) winarray(1) = New Label(3, 4, "aaa") winarray(2) = New Button(1, 2) For Each c As Control In winarray If c Is Nothing Then Continue For c.DrawControl() Next Console.ReadLine() End Sub Public Cl.. 2022. 11. 30.

티스토리툴바