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

vbºÍaspÈçºÎÓÃremote·ÃÎÊÔ¶³ÌÊý¾Ý¿â

·ÃÎÊÔ¶³ÌÊý¾Ý¿âµÄÇé¿öÓÐÒÔϼ¸ÖÖ£º
1£©·ÃÎÊÔ¶³ÌÊý¾Ý¿âµÄaccessÊý¾Ý¿â
2£©·ÃÎÊÔ¶³ÌmssqlÊý¾Ý¿â»òoracleµÈÆäËû¹ØÏµÊý¾Ý¿â£¬µ«ÊÇÊý¾Ý¿âͨÐŶ˿ڱ»·À»ðǽ×èµ²»òÆäËûÍøÂçÔ­ÒòÔì³ÉÎÞ·¨Ê¹Óøö˿Ú
±¾ÎĽöÔÚwindows2000 advance server,mdac2.8ϲâÊÔͨ¹ý£¬ÆäÓàÌõ¼þ²»±£Ö¤ÄÜÕý³£ÔËÐÐ
ÔÚmdacµÄService ProvidersÖаüÀ¨Microsoft OLE DB Persistence Provider£¬Microsoft OLE DB Remoting Provider£¬µÈµÈ£¬¾Í²»Ïêϸ˵ÁË
£¬ÎÒÃǽñÌìÒªÓõ½µÄÊÇMicrosoft OLE DB Remoting Provider¡£
¿´Ò»ÏÂMS RemoteµÄ·¶Àý£º
MS Remote - Access (Jet)
¡¡¡¡i)ODBC DSN:
¡¡¡¡¡¡¡¡oConn.Open "Remote Server=http://<ServerName>;" & _  //·þÎñÆ÷ÓòÃû»òip£¬Èç¹ûÔÚ¾ÖÓòÍø¾ÍÊÇ·þÎñÆ÷Ãû×Ö
¡¡¡¡¡¡¡¡¡¡¡¡"Remote Provider=MSDASQL;" & _
¡¡¡¡¡¡¡¡¡¡¡¡"DSN=AdvWorks;" & _                              //×¢Ò⣬ÕâÀïµÄodbcÊÇÖ¸·þÎñÆ÷¶ËµÄ
¡¡¡¡¡¡¡¡¡¡¡¡"Uid=admin" & _                                  //·ÃÎʸÃodbcÖ¸ÏòÊý¾Ý¿âµÄÓû§Ãû
¡¡¡¡¡¡¡¡¡¡¡¡"Pwd=;"                                          //¼ûÉÏ£¬ÃÜÂë
¡¡¡¡ii)OLE DB Provider:
¡¡¡¡¡¡¡¡oConn.Open "Provider=MS Remote;" & _
¡¡¡¡¡¡¡¡¡¡¡¡"Remote Server=http://carl2;" & _
¡¡¡¡¡¡¡¡¡¡¡¡"Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
¡¡¡¡¡¡¡¡¡¡¡¡"Data Source=\somepath\mydb.mdb;", _
¡¡¡¡¡¡¡¡¡¡¡¡"admin", ""
¡¡¡¡iii)OLE DB Provider×Ô¶¨ÒåÊÂÎñ¶ÔÏó
¡¡¡¡¡¡¡¡oConn.Open "Provider=MS Remote;" & _
¡¡¡¡¡¡¡¡¡¡¡¡"Remote Server=http://carl2;&qu


Ïà¹ØÎĵµ£º

aspÐÔÄܲâÊÔ±¨¸æ

ÔÚ·þÎñÆ÷ÉÏÉú³É¶¯Ì¬ÄÚÈÝÊÇʹÓÃASP×îÖ÷ÒªµÄÔ­ÒòÖ®Ò»£¬ËùÒÔÎÒÃÇÑ¡ÔñµÄµÚÒ»¸ö²âÊÔÏîÄ¿ÊÇÈ·¶¨°Ñ¶¯Ì¬ÄÚÈÝ·¢Ë͵½Ó¦´ðÁ÷ʹÓÃʲô·½·¨×îºÃ¡£»ù±¾µÄÑ¡ÔñÓÐÁ½ÖÖ£¨ÒÔ¼°ËüÃǵÄһЩ±ä»¯£©£ºÊ¹ÓÃÄÚǶASP±ê¼Ç£¬Ê¹ÓÃResponse.WriteÓï¾ä¡£
¡¡¡¡ Ϊ²âÊÔÕâЩ²»Í¬µÄ·½·¨£¬ÎÒÃÇ´´½¨ÁËÒ»¸ö¼òµ¥µÄASPÒ³Ãæ£¬Ò³ÃæÏȶ¨ÒåһЩ±äÁ¿È»ºó°ÑËüÃDzåÈëµ½±í¸ ......

ÈçºÎÈÃÒ»¸öVB´°¿Ú×ÜÊÇ´¦ÓÚ¸÷´°¿ÚµÄ×îÉϲã

´úÂëÈçÏÂ:
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As
Long, ByVal hWndInsertAfter As Long,& _ 
       ¡¡ ByVal X As Long, ByVal Y As
Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long & _
 &n ......

VB ±à³ÌÖÐÈçºÎʹ´°¿ÚÓÒÉϽǵĹرհ´Å¥(X)ʧЧ

1¡¢Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
        Cancel = True
       End Sub
    2¡¢Private Sub
Form_Unload(Cancel As Integer)
        Cancel = ......

vb³ÌÐòÖÐwebbrowser ½ÓÊÜSendMessage µÄÏûÏ¢

webbrowser ²»ÄÜÊÕµ½SendMessageµÄÏûÏ¢
Ö÷ÒªÊÇÒòΪ1webbrowser µÄ¾ä±úÕÒ²»µ½¡£¾­¹ýŬÁ¦ËÑË÷£¬ÖÕÓÚ½â¾öÁË¡£×ö¸ö¼Ç¼.
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ......

VBʵÏÖÈ«´°ÌåÒÆ¶¯

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Priva ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ