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

VBʹÓÃADODB²Ù×öÊý¾Ý¿â

ÏÂÃæÊÇÎÒËùÕÆÎÕµÄʹÓÃADO¶ÔÊý¾Ý¿â²Ù×öµÄһЩ³£Ó÷½·¨£¬Ö÷ÒªÊÇÌṩ¸ø³õѧÕß×öΪ²Î¿¼£¬Óв»¶ÔµÄµØ·½ÇëÖ¸Õý¡£ÈçÓв¹³ä²»Ê¤ÈÙÐÒ
×¼±¸¹¤×ö
========
À´Ô´£ºwww.va1314.com/bc
Dim conn As New  ADODB.Connection  '´´½¨Ò»¸ö Connection ʵÀý£¬ÔÚÕâÀïʹÓÃNewµÈÓÚ½«DimºÍSetºÏ²¢ÎªÒ»¶Î´úÂëÖ´ÐÐ
Dim rs As ADODB.Recordset    '´´½¨Ò»¸ö Recordset ʵÀý£¬²»Ê¹ÓÃNew ÊÇÒòΪ£¬¾­³£ÐèÒªÖظ´Ê¹ÓÃSet£¬Òò¶øû±ØÒªÔÚÕâÀïʹÓÃ
Dim CnStr As String, Sql As String  '´´½¨Á½¸ö×Ö·û´®±äÁ¿·Ö±ð´æ·ÅÁ½¸ö¼¯ºÏµÄSQLÓï¾ä´úÂë¶Î
1¡¢×°ÔØÊý¾Ý¿â(²»ÊôÓÚRecordset¼¯ºÏ)
=============
Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$
'ÒÔÉÏ5¸ö×Ö·û´®±äÁ¿·Ö±ð±íʾÎļþ·¾¶ºÍÎļþÃû¡¢Êý¾Ý¿âµØÖ·¡¢Êý¾Ý¿âÃû¡¢Êý¾Ý²Ù×öÔ±Óû§Ãû¡¢²Ù×öÔ±ÃÜÂë
FileName = App.Path & "'Êý¾Ý¿âÃû'"
DbIp = "Êý¾Ý¿âµØÖ·"
DbName = "Êý¾Ý¿âÃû"
DbUser = "Êý¾Ý²Ù×öÔ±Óû§Ãû"
DbPw = "²Ù×öÔ±ÃÜÂë"
'ÒÔÉϱäÁ¿¸ù¾ÝÊý¾Ý¿âÀàÐ͵IJ»Í¬¶ø²»Í¬£¬ÓпÉÄÜÖ»ÐèÒª1ÖÁÁ½¸ö±äÁ¿
'1)Á¬½ÓAccessÊý¾Ý¿â:
'-------------------
CnStr = "PROVIDER=microsoft.jet.oledb.3.51;persist security info =false;data source=" & FileName & ";Jet OLEDB Database Password=" & DbPw
'2)Á¬½ÓOracleÊý¾Ý¿â:
'-------------------
CnStr = "PROVIDER=MSDAORA.1 Password=" & DbPw & ";User ID=" & DbUser & ";Data Source=" & FileName & "Persist Security Info=True"
'ÆäÖÐ:
'PASSWORD:      ÃÜÂë
'User ID:       Óû§ºÅ
'Data Source:   Êý¾Ý¿âÃû
'Persist Security Info:
'Provider:
'3)Á¬½ÓVFµÄDBF¿â:
'----------------
CnStr = "PROVIDER=MSDASQL.1 Persist Security Info=False;Driver={Microsoft Visual FoxPro Driver};UID=" & DbUser & ";SourceDB=" & FileName &
";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"
'4)Á¬½ÓSQLµÄÊý¾Ý¿â
'------------------
CnStr = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid=" & DbUser & ";pwd=" & DbPw & ";DRIVER=SQL Server;DATABASE=" & DbName & ";WSID=GQSOFT;SERVER=" &
DbIP
'Ò²Äܹ»Ê¹ÓÃÕâ¶Î¼òÒ×´úÂë CnStr = "Provi


Ïà¹ØÎĵµ£º

VBʵÏÖÊý×Öµ½ÖÐÎĽð¶îµÄת»»º¯Êý

Private Function NMoneyToSMoney ( NMoney As Variant )   As String
      If IsNumeric ( NMoney )     =   False Then
            NMoneyToSMoney   =   "²»ÊÇÊý×ÖÀ ......

c#Óë×îÅ£vbËã·¨±ÈÆ´ by Error


 
ÎÄÕÂÀ´Ô´: http://www.zoesan.com By Error 302777528תÔØÇë×¢Ã÷³ö´¦
ÒÔÉÏvbÓõ½Ö¸Õë¼¼Êõ²éÕÒ×Ö·û´®Óëc#Ò»°ãµÄ.indexof()²éÕÒÏà±È½Ï£¬Ã÷ÏÔ¿´³öË­¿ìË­Âý¡£
VB:
Option Explicit
'Ö¸Õë·½·¨²Ù×÷×Ö·û´®
'CopyÒ»¸ö×Ö·û´®µ½»º´æÖÐ
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public ......

vbʵÏַ½ðɽ´Ê°ÔµÄÆÁĻȡ´Ê¹¦ÄÜ

½ñÌìÏëÒª×öÀàËƽðɽ´Ê°ÔÆÁĻȡ´ÊµÄ¹¦ÄÜ£¬ÔÚÍøÉÏÕÒÁËһЩ×ÊÁÏ£¬·¢ÏÖ¶¼ºÜ¸´ÔÓ¡£¼ÈÈ»½ðɽ´Ê°ÔÒѾ­Êµ
ÏÖÁË£¬½èÓÃÖ®:
½ðɽ´Ê°ÔÖÐ2005ÖдøÁËÒ»¸öXdictGrb.dll£¬ÆäʵÊÇÒ»¸öCOM×é¼þ£¬²¢ÇÒʵÏÖÁËÒ»¸öÈ¡´ÊµÄ²å¼þ¿ò¼Ü¡£
ÆäÖеÄÓÐÒÔÏÂÄÚÈÝ£º
1 ½Ó¿Ú
1.1 GrabProxy È¡´Ê´úÀí¶ÔÏó
Function AdviseGrab(XDictGrabSink As IXDictGra ......

VB.NET/C# and JavaScript communication

Introduction
This article is about passing data between VB.NET/C# WinForms and JavaScript.
Before reading further, let me warn you that this article is not about ASP.NET. Concepts covered in the article are applied to Desktop applications.
Background
I was working on a project which required dat ......

ÔÚvbÖÐʹÓÃIphlpapi.dll»ñÈ¡ÍøÂçÐÅÏ¢ µÚÒ»Õ ǰÑÔ

¡ù==================================================================
¡ù±¾Á¬ÔØÎÄÕÂ˵Ã÷£º
¡ù1¡¢Á¬ÔØÊ×·¢ÓÚ¡¶Èí¼þ±¨¡·£¨http://www.sweek.com£©2006Äê21ÆÚ£¨2006Äê5ÔÂ22ÈÕ£©£»
¡ù2¡¢´Ë´ÎÍøÉÏÁ¬ÔزÉÓõÄÊÇÔ­¸å¼þ½á¹¹£¬ÄÚÈÝÓ롶Èí¼þ±¨¡··¢±íÂÔÓв»Í¬£»
¡ù3¡¢Ð»¾ø³ý¡¶Èí¼þ±¨¡·¼°ÆäÏà¹Ø¿¯ÎïÖ®ÍâµÄ´«Í³Ã½Ì岿·Ö»òÈ«²¿×ªÔØ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ