Category Archives: [Dev]VB6.0

[vb] win7에 Microsoft Visual Basic 6.0 설치

Vs6sp6.exe (vb서비스팩) 파일 다운로드 : Vs6sp6.exe VBRegTLB6.exe (레지등록 프로그램 )파일 다운로드 : VBRegTLB6.exe VB6를 관리자 권한으로  설치한다. 관리자 권한으로 설치 합니다. 설치를 진행합니다. 동의 후 계속 진행 합니다. 제품번호 를  넣고 계속 진행합니다. 사용자 정의로 지행합니다. 경로를 디폴트 또는 변경하여 진행 합니다. 설치 계속 합니다. 설치 계속 합니다. 설치 계속 합니다. 옵션을 설정하고 계속 진행… Read More »

Excel VBA 활용하기

vb 배운거 써먹을 때가 많네요.

샘플 3

[vb] xml 특정 노드 제거

Dim i As Integer Dim objDOMDocument As DOMDocument ‘XMLDocument Dim objNodeList As IXMLDOMNodeList ‘XMLNodeList 몇개나 있는지 알려고 Dim objNode As IXMLDOMNode ‘Set objDOMDocument = Server.CreateObject(“microsoft.XMLDOM”) ‘asp 용 Set objDOMDocument = New DOMDocument ‘동적메모리 설정 objDOMDocument.async = False objDOMDocument.Load (“test.xml”) ‘text xml 파일 불러오기 string 은 LoadXml Set objNodeList = objDOMDocument.getElementsByTagName(“books/book”) ‘로드 찾기 If objNodeList.length Then… Read More »

VB 에서 키보드 KeyAscii 값

상수 값 설명 LButton 1 마우스 왼쪽 단추 RButton 2 마우스 오른쪽 단추 Cancel 3 취소키 MButton 4 마우스 가운데 단추 Back 8 <백스페이스>키 Tab 9 <Tab>키 Clear 12 <Clear>키 Return 13 <Enter>키 Shift 16 <Shift>키 Control 17 <Ctrl>키 Menu 18 <Menu>키 Pause 19 <Pause>키 Capital 20 <Caps Lock>키 Escape 27 <Esc>키 Space 32 <스페이스바>키… Read More »

Null 값 공백으로 받기

Dim sVal as string –중간 생략– sVal = IIf(IsNull(rs(“Modi_Date”)), “”, rs(“Modi_Date”)) mssql query : isNull(컬럼, ‘변경할문자’)

영문 숫자만 입력가능 하게 만든 함수

‘영문 숫자만 입력가능 하게 만든 함수 (일일이 적기 귀찮아서 만들었음) Public Function CharacterMode(KeyAscii As Integer, Mode As Integer, Optional CharacterCode1 As Integer, Optional CharacterCode2 As Integer) As Integer ‘mode:’영문 0 ‘숫자 1 ‘영문+숫자 2 ”’22 Ctrl+V ”’3 Ctrl+C ”’24 Ctrl+X ’66~90 :A~Z 97~122 :a~z ’48~57 :0~9 ’47 : / , ‘8 : backspace, ‘tab, enter… Read More »

물음 메시지 함수

Function AskMsgBox(strMassege As String, Optional strTitle As String) As Boolean ‘물음 메시지. Dim Msg, Style, Help, Ctxt, Response ‘, MyString Msg = strMassege ‘ 기본 메시지. Style = vbYesNo + vbQuestion + vbDefaultButton2 ‘ Define buttons. ‘Title = Title ‘ 기본 제목. ‘Help = “DEMO.HLP” ‘ 기본 도움말 파일. Ctxt = 1000 ‘ 기본 항목… Read More »

숫자외에 모든문자를 제거 함수

Public Function gGet_Nember(strData As String) As String ‘ 내 용 : 숫자외에 모든문자를 제거한다.Dim i As Integer Dim strNum As String Dim strTmp As String Dim temp_strData As String temp_strData = strData For i = 1 To Len(temp_strData) strTmp = Mid(temp_strData, i, 1) If Asc(strTmp) >= 48 And Asc(strTmp) <= 57 Then ‘숫자라면 strNum =… Read More »

IP 주소 가져 오기 함수

SQL Native Client 를 vb 에서 사용 (UPDATE ERROR (smalldatetime))

2005 server  2008 server 인 경우 Public Const Connect = “PROVIDER=MSDASQL;driver= {SQL Native Client};server=111.111.111.111;uid=IDXXX;pwd=PASSXXX2;database=DBXXX” UPDATE ERROR (smalldatetime) 인서트는 자동으로  해주지만 Update는 CAST 해주워야 함.

VB ASP에서 웹서비스 이용하기

VB에서 웹서비스 이용하기

ASP에서 웹서비스 이용하기

오류 : 시스템이 지정한 인코딩을 지원하지 않습니다.=> MSXML 4.0 SP2 파서가 설치 되지 않음 msxmlkor.msi 설치 다운로드 : https://www.microsoft.com/ko-kr/download/confirmation.aspx?id=19662