[Dev]VB6.0 – 페이지 2

파일경로+파일명에서 파일명 또는 경로 알아내기 함수

2012년 08월 21일 golgol 0

파일경로+파일명에서 파일명 또는 경로 알아내기 Function GetFind(What As String, Optional division As String = “\”, Optional privious As Boolean) As String Dim Length As Integer, […]

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

2012년 08월 21일 golgol 0

Public Function gGet_Nember(strData As String) As String ‘ 내 용 : 숫자외에 모든문자를 제거한다.Dim i As Integer Dim strNum As String Dim strTmp As String […]

vb6에서 IP 주소 가져 오기 함수

2012년 08월 21일 golgol 0

참조 : https://learn.microsoft.com/en-us/windows/win32/api/iphlpapi/nf-iphlpapi-getipaddrtable c++ 에서

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

2012년 08월 19일 golgol 0

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 해주워야 함.


Format(DEP_DATETIME, "YYYY-MM-DD hh:mm:ss")

1

2

3

Format(DEP_DATETIME, "YYYY-MM-DD hh:mm:ss")

[…]

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

2012년 08월 08일 golgol 0

VB에서 웹서비스 이용하기


Option Explicit
Private Sub Command1_Click()

Const HttpPath = "http://111.111.111.111/service.asmx/Doc"
Dim xmlDoc As Object
Dim strRequest As String
Dim XMLhttp As MSXML2.XMLHTTP30
Dim sSend

Set XMLhttp = New MSXML2.XMLHTTP30
sSend = "RLOC=" & Me.Text1.Text

XMLhttp.open "POST", HttpPath, False
XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLhttp.send sSend
Me.Text2 = XMLhttp.responseText
Me.Text2 = response

Dim doc As DOMDocument

Set doc = New DOMDocument '동적메모리 설정

Dim objNodeList As IXMLDOMNodeList

doc.async = False
doc.loadXML (response)

Set objNodeList = doc.getElementsByTagName("Root")
   
   If objNodeList.length Then
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("Name").nodeTypedValue & ", "
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("age").nodeTypedValue & ", "
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("address").nodeTypedValue & ", "
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("phonnumber").nodeTypedValue & ", "
  End If
  
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

Option Explicit

Private Sub Command1_Click()

Const HttpPath = "http://111.111.111.111/service.asmx/Doc"

Dim xmlDoc As Object

Dim strRequest As String

Dim XMLhttp As MSXML2.XMLHTTP30

Dim sSend

Set XMLhttp = New MSXML2.XMLHTTP30

sSend = "RLOC=" & Me.Text1.Text

XMLhttp.open "POST", HttpPath, False

XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

XMLhttp.send sSend

Me.Text2 = XMLhttp.responseText

Me.Text2 = response

Dim doc As DOMDocument

Set doc = New DOMDocument '동적메모리 설정

Dim objNodeList As IXMLDOMNodeList

doc.async = False

doc.loadXML (response)

Set objNodeList = doc.getElementsByTagName("Root")

If objNodeList.length Then

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("Name").nodeTypedValue & ", "

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("age").nodeTypedValue & ", "

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("address").nodeTypedValue & ", "

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("phonnumber").nodeTypedValue & ", "

End If

End Sub

ASP에서 웹서비스 이용하기


<%
Dim ServerType
Dim ServiceName
Dim SoapRequest: 

ServerType = request.Form("ServerType")
ServiceName = request.Form("ServiceName")
SoapRequest = request.Form("SoapRequest")

HttpPath="http://uapi.test.com/API"

 '-------------------------------------------------------------------
Dim lResolve
Dim lConnect
Dim	lSend
Dim lReceive
Dim sSend 
sSend="ServerType="& ServerType & _
	  "&ServiceName="& ServiceName & _
	  "&SoapRequest="& SoapRequest
 
    Set XMLhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
	lResolve = 60 * 1000 'Timeout values are in milli-seconds
	lConnect = 60 * 1000
	lSend = 60 * 1000
	lReceive = 60 * 1000
	XMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive
	XMLhttp.open "POST",HttpPath, False
 '------------------------------------------------------------------
	XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"   
	XMLhttp.Send sSend
	
 Dim sResponse
 sResponse = XMLhttp.responseText
 
Response.ContentType = "text/xml"
response.write sResponse

response.end
%>

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

<%

Dim ServerType

Dim ServiceName

Dim SoapRequest:

ServerType = request.Form("ServerType")

ServiceName = request.Form("ServiceName")

SoapRequest = request.Form("SoapRequest")

HttpPath="http://uapi.test.com/API"

'-------------------------------------------------------------------

Dim lResolve

Dim lConnect

Dim lSend

Dim lReceive

Dim sSend

sSend="ServerType="& ServerType & _

"&ServiceName="& ServiceName & _

"&SoapRequest="& SoapRequest

Set XMLhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")

lResolve = 60 * 1000 'Timeout values are in milli-seconds

lConnect = 60 * 1000

lSend = 60 * 1000

lReceive = 60 * 1000

XMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive

XMLhttp.open "POST",HttpPath, False

'------------------------------------------------------------------

XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

XMLhttp.Send sSend

Dim sResponse

sResponse = XMLhttp.responseText

Response.ContentType = "text/xml"

response.write sResponse

response.end

%>

오류 : 시스템이 지정한 인코딩을 지원하지 않습니다.=> MSXML 4.0 SP2 파서가 설치 되지 않음 msxmlkor.msi 설치 다운로드 […]