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
лл£¬ÎÊÌâ½â¾öÁË
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......