Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Êý¾Ý¿â²»Í¬±¸·ÝÃû³Æ´æ·Å²»Í¬Â·¾¶»¹Ô­·½·¨

/*------------------------------------------------------------------
--  Author : htl258(Tony)
--  Date   : 2010-04-15 22:07:01
--  Version: Microsoft SQL Server 2008 (RTM) - 10.0.1600.22 (Intel X86)
    Jul  9 2008 14:43:34
    Copy ......

ÀûÓÃVBÍêÈ«¿ØÖÆÄãµÄ×ÀÃæÍ¼±ê

WindowsÖеÄ×ÀÃæÍ¼±êµÄÅÅÁз½Ê½ÊÇ·ñÈÃÄã¸Ðµ½Ñá¾ë¶øÏë°´ÕÕ×Ô¼ºµÄÏë·¨ÅÅÁÐͼ±ê¡£ÊÇ·ñÏë¸Ä±ä×ÀÃæÍ¼±êÎÄ×ֵı³¾°¶ø²»
ʹÔÚͼ±êÎÄ×ÖϳöÏÖÒ»¸ö¸öÄÑ¿´µÄÉ«¿é¡£ÕâÀïÎÒÒª½éÉÜÈçºÎͨ¹ýVBÀ´¶Ô×ÀÃæµÄͼ±ê½øÐг¹µ×µÄ¸Ä±ä¡£
    ÆäʵÔÚWindowsϵÄ×ÀÃæÒÔ¼°ÈÎÎñÀ¸µÈ¶¼ÊÇ´°¿Ú¶ÔÏó£¬ÎÒÃÇ¿ÉÒÔÀûÓÃWindows APIº¯ÊýFindWindow ......

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

  Ò»Ö±ÏëдÏÂÊý¾Ý¿â²Ù×÷·½ÃæµÄ£¬Ö»ÊÇûʲôʱ¼ä£¨ºÃÏñÊǽè¿Ú£¬Ó¦¸ÃÊÇÀÁ»òÕßûÐÄÇé°É£¬ºÇºÇ£©¡£×î½ü·¢ÏÖCSDNÉÏ
»¹ÊÇÿÌìÓÐÈËÒªÎÊÕâЩÄÚÈÝ£¬ÎÒÓеÄʱºò¾ÍÀÁµÄ»Ø´ð£¬ºÇºÇ£¬Ö÷Òª²»¶ÏµÄÈ¥ÕÒ´úÂë¸øËûÃÇÀÛ°¡¡£ËùÒÔ»¹ÊÇÌý¸ßÈ˵ģ¬À´
¸öÒ»ÀÍÓÀÒÝ£¬×Ô¼ºÖØÐÂÎÂϰÏ£¬Ò²ºÃ¸øÆäËûÈËһЩ°ïÖú¡£
 
    Õâ¸öÊ ......

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

   ÉÏһƪÖÐÎÒÒѾ­ËµÁËÏÂÈçºÎ²Ù×÷ACCESSÊý¾Ý¿â£¬ÏÂÃæÀ´ËµËµ´æÈ¡Í¼Æ¬£¬ÉùÒôÖ®ÀàµÄÎÊÌâ¡£
   ÓÉÓÚͼƬ£¬ÉùÒô²»ÄÜÖ±½Ó´æ´¢£¬ÕâÀï¾ÍÒªÓõ½Êý¾ÝÁ÷·½Ê½ÁË¡£¶ÔÓÚ.NETÖеÄһЩÊõÓï¸ÅÄîÎÒÈÔÈ»ºÜÃÔºý£¬ÔÚѧϰÖС£Ö÷ÒªÎÒ²»ÊÇרҵµÄ£¬
Ö»ÊÇ¿ªÊ¼Ñ§Á˵ãVB6´úÂ룬Ȼºó¾ÍÓÃVB.NETÁË£¬ËùÒÔĿǰֻÊÇ»áдµã´úÂ룬ȴ²»Öªµ ......

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ºÅ