ÈçÌ⣺
ÇóvbʹÓÃODBCÁ¬½ÓDBFÊý¾Ý¿âµÄ´úÂë
VB code:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"
Adodc1.RecordSource = "select * from JWCK_BM"
Adodc1.Refresh
End Sub
jwl_db ......
ÈçÌâ
¾ÍÊÇÅжÏÏÖÔÚÏÔʾµÄÊÇxp×ÀÃæ£¬ÈçºÎ²Ù×÷£¬Ð»Ð»
£¨²»ÊÇÅжϻ´°¿Ú¹þ£©
XP×ÀÃæµÄ¾ä±úÊÇ¿ÉÒÔÕÒµ½µÄ.
ÓÃÀàÃûÒ²¿ÉÒÔ.
ÒýÓÃ
ÓÃÀàÃûÒ²¿ÉÒÔ.
ÎÒÓÃÀàÃû²»Í¬µÄÇé¿öµÃµ½µÄ»î¶¯´°Ìå¾ä±ú²»Ò»Ö°¡£¬°ïÎÒ¿´Ï£¬Ôõô»ØÊ£¬
°´Ï¿ìËÙÆô¶¯ÏÔʾ×ÀÃæ£¬»òÕßÔÚµã»÷Ò»ÏÂÒѾ´ò¿ªµÄÎļþ¼Ð£¬ÔÚµã»÷¿ìËÙÆô¶¯µÄÏÔʾ×Àà ......
ÄÄλ¸ßÈË×ö¹ýÓÃvb ·â×°ADOµÄ×Ô¶¨ÒåÀࣿ
¸ø¸öʵÓõÄÀý×Ó£¬ÎÒÂíÉϸø·Ö
Public Function ExecRS(ByVal pCmd As String, pDCN As ADODB.Connection, Optional pAsync As Boolean = False) As ADODB.Recordset
Dim tmpRs As ADODB.Recordset
Set tmpRs = New AD ......
ÎÒÏÖÔÚÒª°ÑjavaдµÄsocket£¬¸Ä³ÉvbµÄ£¬
java´úÂëÈçÏ£º
String sendValue = ¡°12312¡±;
Socket socket = null;
DataOutputStream dos = null;
BufferedReader br = null;
socket = new Socket();
socket.connect(new Ine ......
VBÓÐûÓа취°ÑwordÎĵµÀïµÄͬһ¸ö±í¸ñÀïµÄcellÀïµÄÍ¼Æ¬ÖØµþ£¨¼´¶àÕÅͼƬ¿´ÆðÀ´¾ÍÏñÒ»ÕÅ)¡£
»òÕßÏÈÏÔʾһÕÅ£¬ÆäËûµÄÏÈɾ³ý£¨±£´æÆðÀ´£©£¬È»ºóµ½Ê±ºòÔÙ¸´ÖƵ½Ð½¨µÄÐÂwordÎĵµÀï¡£¡£
Õâ¸öÄÜ×öµ½Ã´£¿
¶¥
²»»á£¬°ï¶¥
ÓÑÇéUp...........
{{ ......
ÓÃVB´ò¿ªµçÓ°¸ñʽ£¬²¥·ÅµçÓ°µÄÈí¼þÊǶ¨ËÀµÄ£¨Storm.exe£©£¬ÊÔÁËÓÃ
ShellExecute Me.hWnd, "open", mvpath(i), "", "", SW_SHOWNORMAL£¨ÆäÖÐmvpath(i)£©ÊǵçӰ·¾¶¡£¡£
µ«´ò¿ª²»ÁË£¬Ö»»áÔÚ¡°ÈÎÎñ¹ÜÀíÆ÷¡±À¶øÃ»ÓÐÕæÕýµØ²¥·ÅµçÓ°Îļþ
×Ô¼º¶¥Ò»Ï£¡¼Ó·Ö£¡ ......