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 ´ÓÁ㿪ʼ±àÍâ¹Ò
ÐèÒªVBAPIº¯Êý£º
FindWindow←Ñ°ÕÒ´°¿ÚÁбíÖеÚÒ»¸ö·ûºÏÖ¸¶¨Ìõ¼þµÄ¶¥¼¶´°¿Ú
GetWindowThreadProcessId←»ñÈ¡ÓëÖ¸¶¨´°¿Ú¹ØÁªÔÚÒ»ÆðµÄÒ»¸ö½ø³ÌºÍÏ̱߳êʶ·û
--------------------------------------------------------------------------------------------------------------- ......
VB´´½¨ACCESSÊý¾Ý¿âÈ«½â ¶¯Ì¬´´½¨Êý¾Ý¿â¡¢´´½¨±í£¬´´½¨¼Ç¼ ADO¡¢ADOX2009Äê04ÔÂ20ÈÕ ÐÇÆÚÒ» 10:17ÕªÒª£º ±¾ÎIJûÊöÁËÔÚVB³ÌÐòÖÐÀûÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬ÕâЩ·½·¨ÔÚ¿ª·¢VBÊý¾Ý¿âÓ¦ÓóÌÐòÖкÜÓÐʵÓüÛÖµ£¬Ëü¿ÉÒÔÌá¸ßÊý¾Ý¿â³ÌÐòÁé»îÐÔ¡£
¡¡¡¡¹Ø¼ü´Ê£ºÊý¾Ý¿â¡¢Êý¾Ý±í¡¢ADO¡¢ADOX
¡¡¡¡1: ÎÊÌâµÄÌá³ö
¡¡¡¡Ô ......
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 ......
¡ù==================================================================
¡ù±¾Á¬ÔØÎÄÕÂ˵Ã÷£º
¡ù1¡¢Á¬ÔØÊ×·¢ÓÚ¡¶Èí¼þ±¨¡·£¨http://www.sweek.com£©2006Äê21ÆÚ£¨2006Äê5ÔÂ22ÈÕ£©£»
¡ù2¡¢´Ë´ÎÍøÉÏÁ¬ÔزÉÓõÄÊÇÔ¸å¼þ½á¹¹£¬ÄÚÈÝÓ롶Èí¼þ±¨¡··¢±íÂÔÓв»Í¬£»
¡ù3¡¢Ð»¾ø³ý¡¶Èí¼þ±¨¡·¼°ÆäÏà¹Ø¿¯ÎïÖ®ÍâµÄ´«Í³Ã½Ì岿·Ö»òÈ«²¿×ªÔØ ......
×î½üÔÚÀûÓÃvb±àд¹ØÓڰٶȿռäÑéÖ¤Âë×Ô¶¯Ê¶±ðµÄ³ÌÐò£¬µ«ÊÇһֱûÄÜʵÏÖ£¬ÔÒò¾ÍÊÇÎÒµÄˮƽ»¹ÊÇÌ«²Ë¡£ÓÚÊÇ´ÓÍøÉÏÑ°ÕÒÁ˺ܶà¹ØÓÚÑéÖ¤Âëʶ±ðµÄÔ´´úÂ룬´ÓÀïÃæѧµ½²»ÉÙ¶«Î÷£¬ËãÊÇû°×ŬÁ¦°É¡£ÔÚ´Ë×ܽáÒ»ÏÂѧµ½µÄ¶«Î÷£¬Ï£ÍûÄܶÔÅóÓÑÃÇÓÐЩ°ïÖú°É¡£
Ê×ÏÈÕûÀíϱàдÑéÖ¤Âëʶ±ðµÄ˼·°É£º
1 ......