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=·þÎñÆ÷Ãû"
vscn = New ADODB.Connection
With vscn
.Mode = ADODB.ConnectModeEnum.adModeReadWrite
.CursorLocation = ADODB.CursorLocationEnum.adUseClient
.ConnectionString = SQLString
.ConnectionTimeout = 60
.Open()
End With
Ïà¹ØÎĵµ£º
ÒÑÖªÓÐÒ»¸öXMLÎļþ£¨bookstore.xml£©ÈçÏ£º
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
< ......
½ñÌìÔÚµ÷ÊԵĹý³ÌÖз¢ÏÖ ÔÚ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 ......
/*------------------------------------------------------------------
-- 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 ......
LOFº¯Êý£ºLOF£¨ÎļþºÅ£©--·µ»ØÎļþºÅËù´ú±íÎļþµÄ³¤¶È£¬³¤¶ÈÒÔ×Ö½ÚΪµ¥Î»¡£
LOCº¯Êý£ºLOC£¨ÎļþºÅ£©--·µ»ØÎļþºÅËù´ú±íÎļþµÄ¶ÁдλÖã¬LOCº¯ÊýµÄ·µ»ØֵΪlongÊý¾ÝÀàÐÍ¡£¶ÔÓÚËæ»úÎļþ£¬·µ»ØµÄΪÉÏÒ»´Î¶ÔÎļþ½øÐжÁ³ö»òдÈëµÄ¼Ç¼ºÅ£»¶ÔÓÚ¶þ½øÖÆÎļþ£¬·µ»ØµÄΪÉÏÒ»´Î¶Á³ö»òдÈëµÄ×Ö½ÚλÖ㻶ÔÓÚ˳ÐòÎļþ£¬·µ»ØµÄÊÇÎļþµÄµ ......