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

vb.net SQLÊý¾Ý¿â²Ù×÷£¨¶ÁÈ¡¡¢Ð޸ġ¢É¾³ý£©

        Dim rs As ADODB.Recordset
Dim sqlstr As String
 
'²éѯ
        sqlstr = "select * from ±íÃû where ×Ö¶ÎÃû = '" & ²éѯµÄÄÚÈÝ & "'"
        rs = VScn.Execute("" & SqlStr & "")
        If Not rs.EOF Then
            TextBox1.Text = rs("×Ö¶ÎÃû").Value.ToString
        End If
 
         'ÐÞ¸Ä
        sqlstr = "update ±íÃû set ×Ö¶ÎÃû= '" & ÒªÐ޸ĵÄÄÚÈÝ & "' where ×Ö¶ÎÃû= '" & ²éѯµÄÄÚÈÝ & "'"
        VScn.Execute(sqlstr)
 
         'ɾ³ý
sqlstr = "delete from ±íÃû where ×Ö¶ÎÃû= '" & ²éѯµÄÄÚÈÝ & "'"
        VScn.Execute(sqlstr)


Ïà¹ØÎĵµ£º

SQL Trigger(´¥·¢Æ÷)

´¥·¢Æ÷ÊÇÒ»ÖÖÌØÊâµÄ´æ´¢¹ý³Ì£¬ÔÚÓû§ÊÔͼ¶ÔÖ¸¶¨µÄ±íÖ´ÐÐÖ¸¶¨µÄÊý¾ÝÐÞ¸ÄÓï¾äʱ×Ô¶¯Ö´ÐС£Microsoft® SQL Server™ ÔÊÐíΪÈκθø¶¨µÄ INSERT¡¢UPDATE »ò DELETE Óï¾ä´´½¨¶à¸ö´¥·¢Æ÷¡£
1¡¢INSERT´¥·¢Æ÷£º¿ÉÒÔ¶¨ÒåÒ»¸öÎÞÂÛºÎʱÓÃINSERTÓï¾äÏò±íÖвåÈëÊý¾Ýʱ¶¼»áÖ´ÐеĴ¥·¢Æ÷¡£
       ......

vb³£ÓÃÄÚ²¿º¯Êý£¨Î壩£ºÎļþ´¦Àíº¯Êý


LOFº¯Êý£ºLOF£¨ÎļþºÅ£©--·µ»ØÎļþºÅËù´ú±íÎļþµÄ³¤¶È£¬³¤¶ÈÒÔ×Ö½ÚΪµ¥Î»¡£
LOCº¯Êý£ºLOC£¨ÎļþºÅ£©--·µ»ØÎļþºÅËù´ú±íÎļþµÄ¶ÁдλÖã¬LOCº¯ÊýµÄ·µ»ØÖµÎªlongÊý¾ÝÀàÐÍ¡£¶ÔÓÚËæ»úÎļþ£¬·µ»ØµÄΪÉÏÒ»´Î¶ÔÎļþ½øÐжÁ³ö»òдÈëµÄ¼Ç¼ºÅ£»¶ÔÓÚ¶þ½øÖÆÎļþ£¬·µ»ØµÄΪÉÏÒ»´Î¶Á³ö»òдÈëµÄ×Ö½ÚλÖã»¶ÔÓÚ˳ÐòÎļþ£¬·µ»ØµÄÊÇÎļþµÄµ ......

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


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

»¹Ô­SQLʧ°Ü

Êý¾Ý¿âÖ´ÐÐexec sp_renamedb 'oldname','newname'Óï¾ä£¬ÖØÃüÃûºó£¬½«Êý¾Ý¿â±¸·ÝÎļþ»¹Ô­Ê±£¬»á³öÏÖ´íÎó£¬Èçͼ
ÒòÊýÊý¾ÝÎļþÓëÊý¾Ý¿âÃû³Æ²»Ò»Ö¡£
½â¾ö·½·¨£º¿ÉÒÔÕÒµ½Êý¾ÝÎļþµÄÃû³Æ£¬½«Êý¾Ý¿â»¹Ô­Ãû³Æ¸úÊý¾Ý¿âÎļþÒ»ÖµÄÃû³Æ£¬´Ëʱ»¹Ô­³É¹¦ºó£¬ÔÙÐÞ¸ÄÊý¾Ý¿âµÄÃû³Æ¡£
×¢£ºÊý¾Ý¿âÖØÃüʱ£¬Ð轫SQL·þÎñÆ÷Í£Ö¹£¬ÖØÃüÃûºóÔÙÖØÐ ......

vb.net Á¬½ÓSQLÊý¾Ý¿â

     'ÔÚÒýÓÃÀïÌí¼ÓADODB
Public vscn As ADODB.Connection
Public SQLString As String
SQLString = "Provider=SQLOLEDB.1;Password=ÃÜÂë;Persist Security Info=True;User ID=ÓÃ" & _
"»§;Initial Catalog=Êý¾Ý¿âÃû;Data Source=·þÎñÆ÷Ãû"
         ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ