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
Ïà¹ØÎĵµ£º
1¡¢´óµÀÖÁ¼ò
Ã×ÀÏʦÏȳÊÏÖÁËÒ»¸öº¯ÊýµÄͼÏñ£¬È»ºóÎÊÎÊ´ó¼ÒÏëµ½ÁËʲô¡£
¿´µ½ÕâÕÅͼ£¬ÎÒÏÈ·¢ÏÖÕâÊÇÒ»¸öÖÜÆÚº¯Êý£¬ÔÙÍùÉîÁ˾͸оõ×Ô¼ºÓ¦¸Ã²»»áÁË£¬¼ÄÏ£ÍûÓÚÊéÐŵöͬѧ£¬¸Ð¾õÓ¦¸ÃÊǸßÊýÀïµÄ¶«Î÷¡£µ«ÊÂʵ֤Ã÷ÊdzõÖеÄ֪ʶ£º
ËûÊÇÒÔÏÂÈý¸öº¯ÊýµÄ¸´ºÏº¯Êý£º
y=sin(x)+sin(2x)+sin(3x)
& ......
Private Function Utf8ToUni(B() As Byte) As String
'²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode
Dim BU As Long
On Error Resume Next
BU = -1: BU = UBound(B)
If BU = -1 Then Exit Function
On Error GoTo 0
&n ......
VB´´½¨ACCESSÊý¾Ý¿âÈ«½â ¶¯Ì¬´´½¨Êý¾Ý¿â¡¢´´½¨±í£¬´´½¨¼Ç¼ ADO¡¢ADOX2009Äê04ÔÂ20ÈÕ ÐÇÆÚÒ» 10:17ÕªÒª£º ±¾ÎIJûÊöÁËÔÚVB³ÌÐòÖÐÀûÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬ÕâЩ·½·¨ÔÚ¿ª·¢VBÊý¾Ý¿âÓ¦ÓóÌÐòÖкÜÓÐʵÓüÛÖµ£¬Ëü¿ÉÒÔÌá¸ßÊý¾Ý¿â³ÌÐòÁé»îÐÔ¡£
¡¡¡¡¹Ø¼ü´Ê£ºÊý¾Ý¿â¡¢Êý¾Ý±í¡¢ADO¡¢ADOX
¡¡¡¡1: ÎÊÌâµÄÌá³ö
¡¡¡¡Ô ......
ÔÚCÓïÑÔÖУ¬escapeµÄ·ûºÅºÜºÃÓã¬
±ÈÈç
"ÖйúÒ»¶¨Ç¿"
Õâ¸ö×Ö´®¿ÉÒÔд³É£º
"\x4E2D\x56FD\x4E00\x5B9A\x5F3A"
ÓÃ×ÖÔª±àÂë±àд³ÌÐò£¬ÔÚÆäËû²»Í¬ÓïÑÔµÄwindowsÔË×÷ʱ£¬±È½Ï²»»áÓÐÎÊÌâ¡£
£¨ÎÒ¾¡Á¿²»ÏëÔÚ³ÌÐòÖÐдÈëÖÐÎÄ£©
µ«ÊÇvbÈç¹ûÈ«²¿ÒªÓÃ×ÖÔª±àÂëдµÄ»°£¬¾Í»áºÜÂé·³¶øÇÒÒ»¸öÒ»¸ö¶¼ÒªÊÖд³É£º
ChrW(&H4E2D) ......
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 ......