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)
Ïà¹ØÎĵµ£º
DECLARE @HDOC INT --Îĵµ¾ä±ú
DECLARE @XMLSTRING VARCHAR(200) --XML×Ö·û´®
SET @xmlString ='<?xml version="1.0"?>
<ROOT>
<USER ID="1" Name="SBQCEL"/>
<USER ID="2" Name="PEACELI"/>
<USER ID="3" Name="SHEEPCHANG"/>
</ROOT>'
--ʹÓÃϵͳ´æ´¢ ......
1 TOP
ÕâÊÇÒ»¸ö´ó¼Ò¾³£Îʵ½µÄÎÊÌ⣬ÀýÈçÔÚSQLSERVERÖпÉÒÔʹÓÃÈçÏÂÓï¾äÀ´È¡µÃ¼Ç¼¼¯ÖеÄÇ°Ê®Ìõ¼Ç¼£º
SELECT TOP 10 * from [index] ORDER BY indexid DESC;
µ«ÊÇÕâÌõSQLÓï¾äÔÚSQLiteÖÐÊÇÎÞ·¨Ö´Ðеģ¬Ó¦¸Ã¸ÄΪ£º
SELECT * from [index] ORDER BY indexid DESC limit 0,10;
ÆäÖÐlimit 0,10±íʾ´ÓµÚ0Ìõ¼Ç¼¿ªÊ¼£¬Íùºó ......
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 ......
1.ÓïÑÔ/»·¾³»ù´¡
--ÏîÄ¿µÄ×é³É
--ÓïÑÔ»ù´¡
----±äÁ¿µÄ×÷ÓÃÓòºÍÉú´æÆÚ
----»ù±¾Óï¾ä(forÑ»·,¸³ÖµÓï¾älet(ÆÕͨ±äÁ¿¸³Öµ),set(¶ÔÏóµÄ¸³Öµ,Ö»ÓÃset),·ÖÖ§Óï¾ä)
----¾²Ì¬Êý×éºÍ¶¯Ì¬Êý×é(Êý×éµÄÉùÃ÷,ÉÏϽçÈ·¶¨,¶¯Ì¬Êý×éµÄʹÓÃ,¶¨ÒåеÄÖ®ºó,Ôõô±£ÁôÒÔÇ°µÄÊý¾Ý)
----Ö÷ÒªµÄϵͳº¯ÊýºÍ¹ý³Ì(By ......
Ò»Ö±ÏëдÏÂÊý¾Ý¿â²Ù×÷·½ÃæµÄ£¬Ö»ÊÇûʲôʱ¼ä£¨ºÃÏñÊǽè¿Ú£¬Ó¦¸ÃÊÇÀÁ»òÕßûÐÄÇé°É£¬ºÇºÇ£©¡£×î½ü·¢ÏÖCSDNÉÏ
»¹ÊÇÿÌìÓÐÈËÒªÎÊÕâЩÄÚÈÝ£¬ÎÒÓеÄʱºò¾ÍÀÁµÄ»Ø´ð£¬ºÇºÇ£¬Ö÷Òª²»¶ÏµÄÈ¥ÕÒ´úÂë¸øËûÃÇÀÛ°¡¡£ËùÒÔ»¹ÊÇÌý¸ßÈ˵ģ¬À´
¸öÒ»ÀÍÓÀÒÝ£¬×Ô¼ºÖØÐÂÎÂÏ°Ï£¬Ò²ºÃ¸øÆäËûÈËһЩ°ïÖú¡£
Õâ¸öÊ ......