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

¹ØÓÚvb²»Í¬½çÃæÖ®¼äÊý¾Ý¿âµÄдÈë

¸÷λ¸ßÊÖ£¬Ð¡µÜÓÖÓÐÎÊÌâ¸ã²»¶¨ÁË
Option Explicit
Public db As ADODB.Connection
Public rs As ADODB.Recordset

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("Ò»¹¤Î»") = 5555
Adodc1.Recordset.Fields("¶þ¹¤Î»") = 6666
Adodc1.Recordset.Fields("Èý¹¤Î»") = 7777
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub

Private Sub Form_Load()
Set db = New ADODB.Connection
    Set rs = New ADODB.Recordset
  db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False;"
  Set DataGrid1.DataSource = Adodc1
End Sub
Õâ¸ö£¬ÊÇÎÒÔÚform2ÖеĴúÂ룬form2ÖÐÓÐÒ»¸ödatagridºÍÒ»¸öadodc¿Ø¼þ£¬ÏÖÔÚÔÚform2ÖУ¬command1µÄµã»÷ÊÇ¿ÉÒÔʵÏֵģ¬ÏÖÔÚÎÒÔÚform1ÖвÙ×÷£¬
Private Sub Cmdstart_Click()
cmdstart.BackColor = RGB(123, 104, 238)
Form2.Adodc1.Recordset.AddNew
Form2.Adodc1.Recordset.Fields("Ò»¹¤Î»") = 5555
Form2.Adodc1.Recordset.Fields("¶þ¹¤Î»") = 6666
Form2.Adodc1 Recordset.Fields("Èý¹¤Î»") = 7777
Form2.Adodc1.Recordset.Update
End Sub
¾Íû·¨ÊµÏÖ£¬±¨±äÁ¿Î´¶¨ÒåµÄ´íÎ󣬹â±êÍ£ÔÚrecordsetÉÏ£¬ÎÒ²»ÖªµÀÓ¦¸ÃÔõÑù¶¨Òå±äÁ¿ÁË£¬ÔÚform2ÖÐÎÒÒѾ­Ð´³ÉpublicÁË£¬ÎªÊ²Ã´»¹ÊÇ˵䶨ÒåÄØ£¬ÓÐÄÄλ¸ßÊÖ°ï¸ö棬ÏêϸµÄ°ïСµÜ¸Äһϡ£Ð¡µÜ¸Ð¼¤²»¾¡£¬ÏÖÔÚÎÒÔÚform1ÖаÑËùÓйØÓ


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

´ÓVBתÐÐVB.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃŰ¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......

Çë¸ßÊÖ°ï¿´¿´Õâ¸övb¸ÃÔõô×ö£¬Ð»Ð»

Õâ¾ä»°ÎÒ²»Ì«Ã÷°×£¬vbÔ´Âë¸ÃÔõô×ö£¿Ð»Ð»
ÖÆ×÷Ò»¸öupdate.exeרÃÅÓÃÀ´Éý¼¶£¬Ö´ÐÐÕâ¸öupdateµÄʱºò£¬³ÌÐòʹÓÃapiº¯ÊýURLDownloadToFile½«http://update.8888.cn/MiniDor/version.iniÏÂÔØÏÂÀ´£¬È»ºóÓ뵱ǰ°æ±¾±È½Ï°æ± ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ