2016. 1. 9. 13:19

시크릿 모드로 전환됨

시크릿 탭을 모두 닫으면 시크릿 탭에서 보는 페이지는 브라우저의 방문 기록, 쿠키 저장소 또는 검색 기록 어디에도 남지 않습니다. 단, 다운로드한 파일이나 생성한 북마크는 유지됩니다. 시크릿 검색에 대해 자세히 알아보기

시크릿 모드로 탐색해도 회사, 인터넷 서비스 제공업체 또는 방문한 웹사이트에 저장된 흔적까지 없앨 수는 없습니다.






그렇다면 이말은 웹에 저장되는걸 숨기기 위한 것이 아니라

컴퓨터에 남기지 않기 위한 기능인거네....


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


Posted by vbnvba
2016. 1. 8. 09:30

Page Up/Page Down 버튼으로 시트를 이동합니다.


Dim i As Integer
Dim setTime As Double
 
Sub Auto_Open()
    Application.OnKey "{PGDN}""DN"
    Application.OnKey "{PGUP}""UP"
End Sub
 
Sub DN()
    If setTime > Timer Then Exit Sub
    i = ActiveSheet.Index
    i = i - 1
    If i < 1 Then i = 1
    Sheets(i).Activate
    setTime = Timer + 1 / 3
End Sub
 
Sub UP()
    If setTime > Timer Then Exit Sub
    i = ActiveSheet.Index
    i = i + 1
    If i > Sheets.Count Then i = Sheets.Count
    Sheets(i).Activate
    setTime = Timer + 1 / 3
End Sub



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


Posted by vbnvba
2016. 1. 7. 11:02

출처 :: vba 를 사용해서 mdb 생성에 필요한 데이터형식 인수

                                           

vba 를 사용해서 mdb 생성에 필요한 데이터형식 인수

상수

숫자

종류

비고

dbBoolean

1

예/아니오

Bool

dbByte

2

숫자

Byte

dbInteger

3

숫자

Integer

dbLong

4

숫자

Long

dbCurrency

5

통화

Currency

dbSingle

6

실수(Single)

Single

dbDouble

7

실수(Double)

Double

dbDate

8

날짜/시간

Date

dbBinary

9

이진수

Binary

dbText

10

텍스트

Text

dbLongBinary

11

OLE 개체

OLE

dbMemo

12

메모

Comment

dbGUID

15

숫자(복제)

CharWidth16

dbBigInt

16

10진수

Digit(10)

          오류가 있으면 댓글 달아주셔요
          혹여 필요할까 해서 글로 남겨둡니다.


'SQL' 카테고리의 다른 글

MySQL 유일한 항목만 남기고 중복제거  (1) 2019.09.16

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


Posted by vbnvba
2016. 1. 7. 09:11

시트단위로 값을 가지고 오는것이 흠이기는 하지만 나름 꽤 쓸만한 기능중 하나라고 봅니다.

'// Excel파일을 열지않고 시트로 불러옴

Sub ET(FullPath As String)
    Sheets("QueryTables").Cells.Delete Shift:=xlUp
    Dim Source As String
    Source = Source & "OLEDB;"
    Source = Source & "Provider=Microsoft.ACE.OLEDB.12.0;"
'    Source = Source & "Password="""";"
'    Source = Source & "User ID=Admin;"
    Source = Source & "Data Source=" & FullPath & ";"
'    Source = Source & "Mode=Share Deny Write;"
'    Source = Source & "Extended Properties=""HDR=YES;"";"
'    Source = Source & "Jet OLEDB:System database="""";"
'    Source = Source & "Jet OLEDB:Registry Path="""";"
'    Source = Source & "Jet OLEDB:Database Password="""";"
    Source = Source & "Jet OLEDB:Engine Type=37;"
'    Source = Source & "Jet OLEDB:Database Locking Mode=0;"
'    Source = Source & "Jet OLEDB:Global Partial Bulk Ops=2;"
'    Source = Source & "Jet OLEDB:Global Bulk Transactions=1;"
'    Source = Source & "Jet OLEDB:New Database Password="""";"
'    Source = Source & "Jet OLEDB:Create System Database=False;"
'    Source = Source & "Jet OLEDB:Encrypt Database=False;"
'    Source = Source & "Jet OLEDB:Don't Copy Locale on Compact=False;"
'    Source = Source & "Jet OLEDB:Compact Without Replica Repair=False;"
'    Source = Source & "Jet OLEDB:SFP=False;"
'    Source = Source & "Jet OLEDB:Support Complex Data=False"
 
 
    With Sheets("QueryTables").ListObjects.Add(SourceType:=0, Source:=Source, Destination:=Sheets("QueryTables").Range("$A$1")).QueryTable
        .CommandType = xlCmdTable    '//
        .CommandText = Array("Sheet1$")    '//
'        .RowNumbers = False
'        .FillAdjacentFormulas = False
'        .PreserveFormatting = True
'        .RefreshOnFileOpen = False
'        .BackgroundQuery = True
'        .RefreshStyle = xlInsertDeleteCells
'        .SavePassword = False
'        .SaveData = True
'        .AdjustColumnWidth = True
'        .RefreshPeriod = 0
'        .PreserveColumnInfo = True
        .SourceDataFile = FullPath    '//
'        .ListObject.DisplayName = "표"
        .Refresh BackgroundQuery:=False    '//
    End With
End Sub






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


Posted by vbnvba
2016. 1. 6. 22:19

vb.net에서 AppSettings 를 사용해보겠습니다.

아래처럼 System.Configuration 참조를 추가해줍니다.


다음으로 솔루션 탐색기에서 아래처럼 "System.Configuration"에 체크를 해줍니다.

이유는 프로젝트 내에서 아무곳에서나 사용하기 위함이니 크게 중요한 부분은 아닙니다.


"App.config"를 열어서 아래처럼 수정해줍니다.

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
    </startup>
  <appSettings>
    <add key="" value=""/>
  </appSettings>

 
</configuration> 



다음으로 아래처럼 불러다 사용하면 됩니다.

Dim T As String = ConfigurationManager.AppSettings("키")
MsgBox(T)



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


Posted by vbnvba
2016. 1. 6. 10:20

cmd.exe

를 열고

cd C:\Windows\System32

를 입력합니다.

아래처럼 순서대로 해줍니다.

Window8 정품인증
C:\Windows\System32>slmgr /ipk 시리얼번호
C:\Windows\System32>slmgr /ato
C:\Windows\System32>slmgr /dlv



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


Posted by vbnvba
2015. 12. 30. 13:11

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


Posted by vbnvba