Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBʵÏÖSoap XML½âÎö

http://bbs.blueidea.com/viewthread.php?tid=531257
Èç¹ûÏëÁ˽âSOAPµ½µ×ÊÇʲô£¬¾ÍÒª×Ô¼º¶¯ÊÖ½¨Á¢×Ô¼ºµÄSOAP±ê×¼¶ÔÏó¡£±¾ÎÄ¿ÉÒÔ°ïÖúÄãÆð²½¡£
============================================
¼ò½é
SOAP - ¼òµ¥¶ÔÏó´¦ÀíЭÒé(Simple Object Access Protocol) - Êǵ±Ç°XML¿ª·¢µÄÈȵ㡣ËüÊÇ΢ÈíÐÂÒ»´úVisual StudioµÄÖ÷Òª½ÇÉ«£¬ÊÇ".NET"²ßÂԵĻù´¡¡£Èç¹ûÏëÓÃVB 6±àÖÆÒ»¸öÓб£ÕϵÄSOAP·þÎñ£¬¿ÉÒÔ²éÔÄ΢ÈíµÄSOAP¹¤¾ß°ü(VB)¡£µ«Èç¹ûÏëÁ˽âSOAPµ½µ×ÊÇʲô£¬¾ÍÒª×Ô¼º¶¯ÊÖ½¨Á¢×Ô¼ºµÄSOAP±ê×¼¶ÔÏó¡£±¾ÎÄ¿ÉÒÔ°ïÖúÄãÆð²½¡£
±¾ÎÄÖУ¬ÎÒÃÇ´´½¨Ò»¸ö¼òµ¥µÄSOAP·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë¡£·þÎñ¶ËÓÃASP±àд£¬ÃûΪsoap.asp¡£Õâ¸öÎļþÓ¦´æ·ÅÔÚ¸öÈËWeb·þÎñÆ÷µÄ¸ùĿ¼Ï£¬È磺\Inetpub\wwwroot¡£Õâ¸ö·þÎñÆ÷½«½ÓÊܺʹ¦Àí¿Í»§¶ËÌá³öµÄSOAPÇëÇ󡣿ͻ§¶ËÊÇÒ»¸ö¼òµ¥µÄVB¿ÉÖ´ÐÐÎļþ£¬ÓÉSub Main()Æô¶¯¡£
²½Öè
ÖÚËùÖÜÖª£¬SOAPÊÇÒ»¸ö“ºô½Ð-ÏìÓ¦”»úÖÆ£¬°´¿Í»§/·þÎñ·½Ê½ÔËÐС£¿Í»§¶Ë(Ó¦ÓóÌÐò)Ïò·þÎñ¶Ë(λÓÚ»¥ÁªÍøÉϵÄij¸öWeb·þÎñÆ÷)·¢³öº¯Êýµ÷ÓÃÇëÇó²¢´«µÝ²ÎÊý£»·þÎñ¶ËÔò·µ»ØÏìÓ¦¡£ºô½ÐÓëÏìÓ¦µÄÄÚÈݺÍÊý¾Ý¶¼Êǰ´XMLÎļþ¸ñʽ½øÐд«Ë͵ġ£Òò´Ë£¬Òª½¨Á¢Ò»¸ö¼òµ¥µÄSOAPÓ¦ÓÃϵͳ£¬¾ÍÒª½¨Á¢Ò»¸ö¿Í»§¶ËºÍÒ»¸ö·þÎñ¶Ë£¬¼´Ò»¸öºô½Ð-ÏìÓ¦Ìåϵ¡£
ÏÂÃæÊÇÒ»¸ö¼òµ¥Àý×Ó£º
ÎÒÃǽ¨Á¢Ò»¸ö·þÎñ¶ËÀ´¼ÆËãÏúÊÛ½»Ò×µÄ˰¿î¡£°´ÕÕ´«Í³µÄVBÊõÓ¼´½¨Á¢Ò»¸öº¯Êý£¬¶¨ÒåÈçÏ£º
      Public Function GetSalesTax(ByVal pSalesTotal As Double) as Double
          GetSalesTax = pSalesTotal * 0.04
      End Function
Ò»¸ö´Ö²ÚµÄº¯Êý£¬µ«¿É×÷ΪʾÀý(±¾ÀýÖ»ÄÜÓÃÓÚ˰ÂÊΪ4%µÄµØ·½)¡£
Õâ¸öº¯Êý¶¨ÒåÁËÒ»¸öº¯ÊýÃû(GetSalesTax)£¬Ò»¸ö²ÎÊý(pSalesTotal – ÏúÊÛ½ð¶î)ºÍÒ»¸ö·µ»ØÖµ(º¯Êý·µ»ØÖµ)¡£°´ÕÕÃæÏò¶ÔÏóÔ­Ôò£¬¿ÉÒÔÈÏΪpSalesTotalÊÇÒ»¸ö"IN"²ÎÊý£¬GetSalesTax·µ»ØÖµÊÇÒ»¸ö"OUT"²ÎÊý¡£Òò´ËÎÒÃǵÄSOAP·þÎñ¶Ë¾ÍÒªÕìÌý¿Í»§·¢³öµÄµ÷ÓÃGetSalesTaxµÄÇëÇóºÍ´«µÝµÄ"IN"²ÎÊý(ÏúÊÛ½ð¶î)£¬È»ºó·µ»Ø´øÓÐ"OUT"²ÎÊýµÄ»ØÓ¦£¬Ïò¿Í»§·µ»ØËùÐè˰¿î¡£
¿Í»§¶Ë
ÏÂÃæÊÇÓÃVB½¨Á¢Ò»¸öºô½Ð·þÎñµÄ¿Í»§¶Ë³ÌÐò£º
      dblSalesTax = GetSalesTax(100)
      µÃµ½·µ»ØÖµ$4¡£
      
      Èç¹ûGetSalesTaxº¯ÊýÊÇÒ»¸öÍⲿ¶ÔÏ󣬱ÈÈçÔÚMTS·þÎñÆ÷ÉÏ£¬¾ÍÒ


Ïà¹ØÎĵµ£º

VB±¸·ÝACCESSÊý¾Ý¿âµÄ·½·¨£¬´úÂë

VB±¸·ÝACCESSÊý¾Ý¿âµÄ·½·¨£¬´úÂë
Õâ¸ö´úÂëÆäʵҲÊÊÓÃÓÚÆäËüÀàÐÍÎļþµÄ¸´ÖÆ£¬ÒªÐÞ¸ÄÒ»ÏÂÆäÖеÄÓï¾äŶ~Private Sub bak_Click()
Dim TargetFileName As String 'Ä¿±êÎļþÃû
On Error Resume Next
With cdlog1
.DialogTitle = "Êý¾Ý±¸·Ý"
.InitDir = App.Path
.FileName = "backup.mdb"
.Filter = ......

VCµ÷ÓÃVBµÄdll

Óо²Ì¬ºÍ¶¯Ì¬Á½ÖÖ£¬¾²Ì¬µÄÐèÒªlib¶ø¶¯Ì¬µÄÖ»ÐèÒªÒ»¸ödll¾Í¿ÉÒÔÁË£¨µ«ÊÇÒªÖªµÀº¯ÊýµÄ¶¨ÒåÒ»°ãÊÇÍ·ÎÄ
¼þ£©¶¯Ì¬Ïà¶Ô¸´ÔÓÒ»µã£¡µ«ÊÇÕÆÎÕÁËÒ²²»ÊǺÜÄÑ  
  //µÚÒ»²½     ¶¨Ò庯ÊýÖ¸Õë¾ÍÊÇÄãÒªµ÷Óõĺ¯Êý£¬²ÎÊý±ØÐëÒ»Ö£¬²»È»¾ÍÄÚ´æÐ¹Â¶  
  typedef   HANDLE ......

C´úÂëÓïÑÔתVB´úÂëµÄÎÊÌ⣺

Ë­ÄܰïÎÒ°ÑÕâ¶Î´úÂëת³ÉVbµÄ´úÂ룬²»Ê¤¸Ð¼¤£¬Ð»Ð»£¡
void CTempDlg::OnOK()
{
  UpdateData(1);
  int nlen=m_edit1.GetLength();
  char *username=m_edit1.GetBuffer(nlen);//¶¨ÒåÒ»¸öÐÂ×Ö·û´®username,³¤¶ÈΪnlen£¬²¢½«m_edit1ÖеÄ×Ö·û´®Ò»¸ö¸ö·ÅÈëµ½usernameÊý×éÖÐ
  char strA[]="90123456 ......

VBÖеÄUnicode ºÍ Ansi ¸ñʽ ת»»


 VBÖеÄUnicode ºÍ Ansi ¸ñʽ
    Visual Basic 32-bit °æ±¾µÄ×Ö´®´¦Àí²ÉÓà Unicode£¬Ò²¾ÍÊÇ˵×Ö´®ÔÚ VB ÄÚ²¿ÊÇÒÔUnicode µÄ¸ñʽÀ´´æ·Å¡£ºÎν Unicode£¿¼òµ¥µÄ˵£¬¾ÍÊÇÿһ¸ö×Ö·û¶¼ÊÇÒÔ 2-byte µÄÐÎʽ±íʾ£¬¶øÃ¿¸ö¡¸ÊµÌå×Ö·û¡¹¾ÍÊÇÒ»¸ö¡¸×Ö·û¡¹¡£Òò´Ë£¬
 Len("´ó¼ÒºÃ")
 Len("abc")
& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ