Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò.ͨɱËùÓÐÓÎÏ·.ºÇºÇ.


ÈÃVB²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò.ͨɱËùÓÐÓÎÏ·.ºÇºÇ.
ÕâÄêÍ·,ÔÚÕâ¸öÂÛ̳ÀïÃæÒѾ­Ã»ÓÐʲô¼¼ÊõÌùÁË...ºÇºÇ~·¢Ò»Æª¾ªÌìµØ,Æü¹íÉñµÄÌû×Ó.µ±È»Õâ¸öÖ»ÊÇÄ£Äâ¼üÅ̵ÄÖÕ¼«Ä£Äâ.ºÇºÇ~
      ¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇ ......

½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò


½Ó×ÅÍâ¹Ò½Ì³Ì VB ´ÓÁ㿪ʼ±àÍâ¹Ò
ÐèÒªVBAPIº¯Êý£º
FindWindow←ѰÕÒ´°¿ÚÁбíÖеÚÒ»¸ö·ûºÏÖ¸¶¨Ìõ¼þµÄ¶¥¼¶´°¿Ú
GetWindowThreadProcessId←»ñÈ¡ÓëÖ¸¶¨´°¿Ú¹ØÁªÔÚÒ»ÆðµÄÒ»¸ö½ø³ÌºÍÏ̱߳êʶ·û
--------------------------------------------------------------------------------------------------------------- ......

pb調ÓÃVB寫µÄDLL·½·¨

1¡¢ÏȰÑVB±àÒëºÃµÄDLLÎļþ·Åµ½ÏµÍ³µÄSYSTEM32Îļþ¼ÐÏÂ
2¡¢ÓÃregsvr32×¢²áÕâ¸öDLLÎļþ
3¡¢Pbϵ÷ÓÃ
oleobject   ole_1
ole_1=create   oleobject
long   ll_ret
ll_ret=ole_1.connecttonewobject( 'add.addstring ')//ÆäÖÐaddΪVBµÄ¹¤³ÌÃû£¬addstringΪVBµÄÀàÄ£¿éÃû
string   ls_message, ......

VB´´½¨ACCESSÊý¾Ý¿âÈ«½â

VB´´½¨ACCESSÊý¾Ý¿âÈ«½â ¶¯Ì¬´´½¨Êý¾Ý¿â¡¢´´½¨±í£¬´´½¨¼Ç¼ ADO¡¢ADOX2009Äê04ÔÂ20ÈÕ ÐÇÆÚÒ» 10:17ÕªÒª£º ±¾ÎIJûÊöÁËÔÚVB³ÌÐòÖÐÀûÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬ÕâЩ·½·¨ÔÚ¿ª·¢VBÊý¾Ý¿âÓ¦ÓóÌÐòÖкÜÓÐʵÓüÛÖµ£¬Ëü¿ÉÒÔÌá¸ßÊý¾Ý¿â³ÌÐòÁé»îÐÔ¡£
¡¡¡¡¹Ø¼ü´Ê£ºÊý¾Ý¿â¡¢Êý¾Ý±í¡¢ADO¡¢ADOX
¡¡¡¡1: ÎÊÌâµÄÌá³ö
¡¡¡¡Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ