VB ADODCÐÞ¸ÄÊý¾Ý
ÇëÎÊÏÂÀûÓÃADODC¿Ø¼þÈçºÎÐÞ¸ÄÊý¾Ý¿âµÄijһ¸öÖµ£¿ÎÒÔÚÀûÓÃÎı¾°ó¶¨Êý¾Ý¿âµÄÇé¿öÏÂÏÔʾ³öÊý¾Ý£¬µ«ÊÇÔÚÐÞ¸ÄÆäÖеÄijһ¸öÖµµÄʱºò£¬ÀûÓà Adodc1.Recordset.Update
Adodc1.Refresh ´úÂë¸üб£´æ£¬È´·¢ÏÖûÓб£´æÁË£¬ÊÇʲôÔÒò£¿¸ÃÈçºÎ½â¾öÄØ£¬Çë´óÏÀÖ¸½Ì
Adodc1.Recordset.addnew
Adodc1.Recordset.fields("name").value="ÕÅÈý"
Adodc1.Recordset.fields("age").value=30
Adodc1.Recordset.Update
Adodc1.Refresh
лл£¬ÎÒÂíÉϸĴúÂëÊÔÏÂ
´óÏÀ£¬ºÃÏñʵ¼ÊÉϲ»¿ÉÐУ¬ÎÊÌâÊÇÕâÑùµÄ£¬ÎÒÓÐÒ»¸öÎı¾°ó¶¨Êý¾Ý¿â£¬ÄÚÈÝÊÇ´òÓ¡´ÎÊý£¬ÔÚÎÒµãÏ´òÓ¡µÄʱºòÕâ¸öÎı¾ÀïÃæµÄÊý×Ö×Ô¶¯Ôö¼Ó1£¬Ö®ºó±£´æµ½Êý¾Ý¿â£¬¾Í¸ÄÕâÒ»¸öµØ·½£¬Ö¸½ÌÏ£¬´ó¸ç£¬¸ø¸ö´úÂ룬лл
ÎÒÊÔ¹ý£¬Ã»ÎÊÌâ
VB code:
Option Explicit
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access DB\Database1.mdb;"
Adodc1.RecordSource = "select top 1 ÊýÁ¿ from T1"
Adodc1.Refresh
End Sub
Private Sub Command1_Click()
Text1.Text = Val(Text1.Text) + 1
Adodc1.Recordset.addnew
Adodc1.Recordset.fields("ÊýÁ¿").Value = Val(Text1.Text)
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
лл£¬ÎÊÌâ½â¾öÁË
Ïà¹ØÎÊ´ð£º
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
Õâ¾ä»°ÎÒ²»Ì«Ã÷°×£¬vbÔ´Âë¸ÃÔõô×ö£¿Ð»Ð»
ÖÆ×÷Ò»¸öupdate.exeרÃÅÓÃÀ´Éý¼¶£¬Ö´ÐÐÕâ¸öupdateµÄʱºò£¬³ÌÐòʹÓÃapiº¯ÊýURLDownloadToFile½«http://update.8888.cn/MiniDor/version.iniÏÂÔØÏÂÀ´£¬È»ºóÓ뵱ǰ°æ±¾±È½Ï°æ± ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......