vb.net²Ù×÷Êý¾Ý¿âÖ®ACCESS£¨2£©
ÉÏһƪÖÐÎÒÒѾ˵ÁËÏÂÈçºÎ²Ù×÷ACCESSÊý¾Ý¿â£¬ÏÂÃæÀ´ËµËµ´æÈ¡Í¼Æ¬£¬ÉùÒôÖ®ÀàµÄÎÊÌâ¡£
ÓÉÓÚͼƬ£¬ÉùÒô²»ÄÜÖ±½Ó´æ´¢£¬ÕâÀï¾ÍÒªÓõ½Êý¾ÝÁ÷·½Ê½ÁË¡£¶ÔÓÚ.NETÖеÄһЩÊõÓï¸ÅÄîÎÒÈÔÈ»ºÜÃÔºý£¬ÔÚѧϰÖС£Ö÷ÒªÎÒ²»ÊÇרҵµÄ£¬
Ö»ÊÇ¿ªÊ¼Ñ§Á˵ãVB6´úÂ룬Ȼºó¾ÍÓÃVB.NETÁË£¬ËùÒÔĿǰֻÊÇ»áдµã´úÂ룬ȴ²»ÖªµÀÔÀí£¬ºÜ²ÑÀ¢¡£
°¥Ó´£¬×ßÌâÁË£¬¸Ï½ô»ØÀ´£¬²»ºÃÒâ˼£¡
ºÃ°É£¬ÎÒÃÇÏÈ¿´¿´Í¼Æ¬ºÍÉùÒôµÄ´æ´¢ºÍ¶ÁÈ¡¡£¿´Ï´úÂë¡£
’Õâ¶Î´úÂëÊDzåÈëͼƬºÍÉùÒôµÄ´úÂë
’µÚÒ»¸ö¾ÍÊÇͼƬÁË£¬pathµ±È»ÊÇͼƬµÄµØÖ·ÁË
Picturebyte = My.Computer.FileSystem.ReadAllBytes(PicturePath)
’ÏÂÃæÕâ¸ö¾ÍÊÇÉùÒô¿©£¬voicepath×ÔÈ»»¹ÊÇÉùÒôµØÖ·ÁË
Voicebyte = My.Computer.FileSystem.ReadAllBytes(VoicePath)
‘ÕâÀï¾Í¿ªÊ¼ÕÕ¾ÉдSQL£¬Çø±ðÒÔǰµÄµØ·½¾ÍÊÇÕâÀïÊÇÓÃCOMMANDµÄÒ»¸ö²ÎÊýÀ´¸³Öµ
str = New System.Text.StringBuilder
str.Append(" INSERT INTO WORDINFO ([PICTURE],[ENGLISHNAME],[CHINESENAME],[VOICE],[Class]) ")
str.Append(" VALUES(?,?,?,?,?)")
cmd = New OleDb.OleDbCommand(str.ToString, DBConnection)
cmd.Parameters.Add(New OleDb.OleDbParameter)
cmd.Parameters(0).Value = Picturebyte
cmd.Parameters.Add(New OleDb.OleDbParameter)
cmd.Parameters(1).Value = EnglishName
cmd.Parameters.Add(New OleDb.OleDbParameter)
cmd.Parameters(2).Value = ChineseName
cmd.Parameters.Add(New OleDb.OleDbParameter)
cmd.Parameters(3).Value = Voicebyte
cmd.Parameters.Add(New OleDb.OleDbParameter)
cmd.Parameters(4).Value = Classstring
cmd.ExecuteNonQuery()’sqlдÍêÁ˾ͿªÊ¼Ö´ÐÐ
DBConnection.Close()
Ïà¹ØÎĵµ£º
1¡¢´´½¨¿Ø¼þ£ºlbl1¡¢txt1¡¢lbl2¡¢cmd1
2¡¢lbl1.caption=ÊäÈëÈÕÆÚ£¨ÈÎÒ»ÖÖÕýÈ·¸ñʽ£©£º
ÉèÖÃlbl1¡¢txt1¡¢lbl2¡¢cmd1µÄ×ÖÌå´óС¼°ÑÕÉ«£»
3¡¢Ë«»÷°´Å¥“È·ÈÏ”£¬Ìí¼Ó´úÂ룬Ч¹ûΪ£º
Option Explicit
Private Sub cmd1_Click()
&nb ......
len£¨string£©£º¼ÆËã×Ö·û´®³¤¶Èº¯Êý¡£·µ»Ø×Ö·û´®stringÖÐ×Ö·ûµÄ¸öÊý¡£Ò»¸öºº×ÖΪһ¸ö×Ö·û£¬¿Õ¸ñҲΪһ¸ö×Ö·û£¬¿Õ×Ö·û´®µÄ³¤¶ÈΪ0.
Ltrim£¨string£©¡¢Rtrim£¨string£©¡¢Trim£¨string£©£º
Ltrim£¨string£©º¯Êý¹¦ÄÜÊÇ·µ»ØÉ¾³ýÁË×Ö·û´®string×ó±ß¿Õ¸ñÖ®ºóÊ£ÓàµÄ²¿·Ö¡£
Rtrim£¨string£©º¯Êý¹¦ÄÜÊÇ·µ»ØÉ¾³ýÁË×Ö·û´®ÖÐstringÓ ......
ÁκéÁÁ 2010/4/13
¸ÅÊö
ÔÚʵ¼ÊµÄÏîÄ¿ÖУ¬¿ÉÄÜ»áÓöµ½ÕâÑùµÄÎÊÌ⣺A·þÎñÆ÷ÉϵÄÓ¦ÓóÌÐòÐèÒª·ÃÎÊB·þÎñÆ÷ÉϵÄaccessÊý¾Ý¿â(¿ÉÒÔʹÓÃÐéÄâ»úÄ£ÄâA¡¢B·þÎñÆ÷½øÐвâÊÔ)¡£¶øaccessÊý¾Ý¿âÊÇÎļþÀàÐ͵쬲»Í¬¼ÆËã»ú¼äÐèÒªÖ¸¶¨Îļþ·ÃÎÊȨÏÞ£¬Ôö¼ÓÁ˳ÌÐòµÄ¸´ÔÓ¶È¡£±¾ÎĽ«´ÓÒ»¸öʵÀýÀ´½éÉÜÒ»ÖÖ¼òµ¥ÊµÓõķ½·¨¡£¸ÃʵÀýʹÓõķ½·¨À´×ÔInte ......
½ñÌìÔÚµ÷ÊԵĹý³ÌÖз¢ÏÖ ÔÚvbÖÐÆ´SQLµÄʱºò·¢ÏÖ"()" ×÷Óúܴó
eg: table: T_TEST col : T_KB int ,S_CD int ,Z_SU int
dim gcstrT_1 ,gcstrT_3 as integer
gcstrT_1 = 1
gcstrT_3 = 3
strWhere = strWhere & "……"
strWhere = strWhere & "AND ((T_K ......
Ò»Ö±ÏëдÏÂÊý¾Ý¿â²Ù×÷·½ÃæµÄ£¬Ö»ÊÇûʲôʱ¼ä£¨ºÃÏñÊǽè¿Ú£¬Ó¦¸ÃÊÇÀÁ»òÕßûÐÄÇé°É£¬ºÇºÇ£©¡£×î½ü·¢ÏÖCSDNÉÏ
»¹ÊÇÿÌìÓÐÈËÒªÎÊÕâЩÄÚÈÝ£¬ÎÒÓеÄʱºò¾ÍÀÁµÄ»Ø´ð£¬ºÇºÇ£¬Ö÷Òª²»¶ÏµÄÈ¥ÕÒ´úÂë¸øËûÃÇÀÛ°¡¡£ËùÒÔ»¹ÊÇÌý¸ßÈ˵ģ¬À´
¸öÒ»ÀÍÓÀÒÝ£¬×Ô¼ºÖØÐÂÎÂϰÏ£¬Ò²ºÃ¸øÆäËûÈËһЩ°ïÖú¡£
Õâ¸öÊ ......