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

vb.net²Ù×÷Êý¾Ý¿âÖ®ACCESS£¨1£©

  Ò»Ö±ÏëдÏÂÊý¾Ý¿â²Ù×÷·½ÃæµÄ£¬Ö»ÊÇûʲôʱ¼ä£¨ºÃÏñÊǽè¿Ú£¬Ó¦¸ÃÊÇÀÁ»òÕßûÐÄÇé°É£¬ºÇºÇ£©¡£×î½ü·¢ÏÖCSDNÉÏ
»¹ÊÇÿÌìÓÐÈËÒªÎÊÕâЩÄÚÈÝ£¬ÎÒÓеÄʱºò¾ÍÀÁµÄ»Ø´ð£¬ºÇºÇ£¬Ö÷Òª²»¶ÏµÄÈ¥ÕÒ´úÂë¸øËûÃÇÀÛ°¡¡£ËùÒÔ»¹ÊÇÌý¸ßÈ˵ģ¬À´
¸öÒ»ÀÍÓÀÒÝ£¬×Ô¼ºÖØÐÂÎÂϰÏ£¬Ò²ºÃ¸øÆäËûÈËһЩ°ïÖú¡£
 
    Õâ¸öÊý¾Ý¿â²Ù×÷ÎÒ»áд¸öϵÁÐÐԵİɣ¬ ÏÈдACCESS¡£²»ÖªµÀÕâ¸öһƪÄÜд¶à³¤£¬²»ÐÐÎÒÒª·Ö¼¶ÆªÁË¡£
    ÆäʵACCESSµÄ²Ù×÷»ù±¾¶¼ÆäËûÊý¾Ý¿âÒ»¸öÑù£¬Ö»Êdz¤µÄ²»Ò»Ñù£¬´ó¼ÒÓÐÖÖη¾å»¹ÊÇİÉú£¿ÆäʵÊÇÖ½ÀÏ»¢À²¡£
    ºÃÁË£¬ÏÈ˵Á¬½Ó·½Ã棺
Public Function DB_CnStr() As String
Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "./FlashCard.mdb"
End Function
  ÉÏÃæµÄ´úÂë¾ÍÊÇÒ»¸ö¹«Óú¯Êý£¬ÒòΪ¶à´¦ÒªÓõ½£¬ÀÁµÃÿ´Î¶¼Ð´£¬Ö±½Óµ÷ÓÃϾÍOKÁË¡£Öм䲿·Ö¾ÍÊÇÒ»¸öÊý¾Ý¿âÁ¬½Ó×Ö´®£¬
Data Source=" & Application.StartupPath & "./FlashCard.mdb"ÕâÀï¾ÍÊÇÉèÖÃÄãµÄÊý¾Ý¿âµØÖ·£¬¾ßÌå´úÂë²»ÓÃÎÒ½âÊÍÁ˰ɣ¿
    Èç¹ûÓÐÃÜÂë¾ÍÐèÒªÔÙ¼ÓÒ»¸öÕ˺ÅÃÜÂëÁË.
     User ID=myUsername;Password=myPassword
Õâ¸ö×ÊÁÏÌ«¶àÁË£¬Ò²»ù±¾²î²»¶à£¬Ëæ±ã×¥×¥¾ÍÀ´¿©¡£
ÄÇÏÂÃæÊDz»ÊÇҪ˵˵ÈçºÎ²Ù×÷ÁË£¿¶Ô£¬²Ù×÷Êý¾Ý¿âÂÎ޷ǾÍÊDzéѯ£¬Ôö¼Ó£¬É¾³ý£¬ÐÞ¸ÄÕ⼸ÖÖ¡£´úÂë·½Ãæ»ù±¾Ò²²î²»¶àÁË£¬Ö»ÊÇSQLÉÏÒª»»Ãû×Ö¡£·Ï»°²»ËµÁË£¬Ö±½ÓÉÏ´úÂëºÃÁË¡£
‘ÕâÀï¾ÍÊÇ“²éѯ”²¿·Ö¿©£¬¾ßÌåÔõô²éÊÇдSQLµÄÎÊÌâÁË£¬ÏȲ»ÌÖÂÛ
’ÏÈÁ¬½Ó
DBConnection.ConnectionString = DB_CnStr()
DBConnection.Open()
'¿ªÊ¼²éѯ
Dim sql As New System.Text.StringBuilder
sql.Append(" SELECT * from WORDINFO")
sql.Append(" WHERE CLASS='").Append(Classstring).Append("'")
Dim cmd As New OleDb.OleDbCommand(sql.ToString, DBConnection)
Dim RS As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(cmd)
DT = New DataTable
RS.Fill(DT)
DBConnection.Close()
'Óв鵽ÔòÏÔʾ³öÀ´
Rowcount = DT.Rows.Count
If Rowcount = 0 Then
MsgBox("No Reco


Ïà¹ØÎĵµ£º

VBʵÀý —ÍòÄêÀú £¨1£©

1¡¢´´½¨¿Ø¼þ£ºlbl1¡¢txt1¡¢lbl2¡¢cmd1
2¡¢lbl1.caption=ÊäÈëÈÕÆÚ£¨ÈÎÒ»ÖÖÕýÈ·¸ñʽ£©£º
ÉèÖÃlbl1¡¢txt1¡¢lbl2¡¢cmd1µÄ×ÖÌå´óС¼°ÑÕÉ«£»
3¡¢Ë«»÷°´Å¥“È·ÈÏ”£¬Ìí¼Ó´úÂ룬Ч¹ûΪ£º
    Option Explicit
        Private Sub cmd1_Click()
  &nb ......

VBÇå³ýCookies


Option Explicit
Private Const ERROR_CACHE_FIND_FAIL As Long = 0
Private Const ERROR_CACHE_FIND_SUCCESS As Long = 1
Private Const ERROR_FILE_NOT_FOUND As Long = 2
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_INSUFFICIENT_BUFFER As Long = 122
Private Const MAX_PATH As Long ......

VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢¡°±ê×¼¡±DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨2£©

VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢“±ê×¼”DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨2£©
 
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://blog.csdn.net/useway
        ×òÌìÎÒÃǽ²µ½£¬ÈçºÎͨ¹ýÌØÊâ·½·¨»ñÈ¡OBJÎļþ£¬ÄÇô½ñÌìÎÒÃǼÌÐø½²ÈçºÎ½øÐбàÒëÁ¬½Ó¡£
        ......

vb³£ÓõÄÄÚ²¿º¯Êý£¨Áù£©£ºÑÕÉ«º¯Êý


RGBº¯Êý£ºRGBÊÇͨ¹ýÖ¸¶¨ºìÂÌÀ¶²»Í¬µÄ·ÖÁ¿ÖµµÃµ½²»Í¬µÄÑÕÉ«¡£
·¸ñʽ£ºRGB£¨ºìɫֵ£¬ÂÌɫֵ£¬À¶É«Öµ£©
·È¡Öµ·¶Î§Îª0--255£¬·Ö±ð´ú±íËùÒªÑÕÉ«Öеĺ졢ÂÌ¡¢À¶·ÖÁ¿µÄ´óС¡£
QBColorº¯Êý£ºÓÃÒ»¸öÕûÊýÖµ¶ÔÓ¦RGBµÄ³£ÓÃÑÕɫֵ
·¸ñʽQBColor£¨ÑÕɫֵ£©
·ÑÕɫֵÊÇÒ»¸öÕûÊý£¬È¡Öµ·¶Î§0--15´ú±í16ÖÖ» ......

VB ÊÓÆµ´ó¸Ù

1.ÓïÑÔ/»·¾³»ù´¡
--ÏîÄ¿µÄ×é³É
--ÓïÑÔ»ù´¡
  ----±äÁ¿µÄ×÷ÓÃÓòºÍÉú´æÆÚ
  ----»ù±¾Óï¾ä(forÑ­»·,¸³ÖµÓï¾älet(ÆÕͨ±äÁ¿¸³Öµ),set(¶ÔÏóµÄ¸³Öµ,Ö»ÓÃset),·ÖÖ§Óï¾ä)
  ----¾²Ì¬Êý×éºÍ¶¯Ì¬Êý×é(Êý×éµÄÉùÃ÷,ÉÏϽçÈ·¶¨,¶¯Ì¬Êý×éµÄʹÓÃ,¶¨ÒåеÄÖ®ºó,Ôõô±£ÁôÒÔǰµÄÊý¾Ý)
  ----Ö÷ÒªµÄϵͳº¯ÊýºÍ¹ý³Ì(By ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ