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

vb.net ×Ô¶¨ÒåÊý¾Ý¿âÁ´½ÓÀà(Access)

×Ô¶¨ÒåÊý¾Ý¿âÁ´½ÓÀà(Access)ÊÇÁ´½ÓAccessÊý¾Ý¿âʱʹÓõÄÀà¡£
²¹×㣺Application.StartupPath.ToStringÊÇÖ¸¶¨Éú³É.EXEÎļþµÄ·¾¶£¬°ÑÊý¾Ý¿âºÍÖ´ÐÐÎļþ´æ·Åµ½Ò»Æðʱ£¬²»¹Ü°²×°ºóÔÚʲô·¾¶¶¼ÎÞÐèÌض¨Ö¸¶¨¡£
Imports System.Data.OleDb
 
 #Region "È«¾Ö±äÁ¿"
 
     Private mTimeout As Integer
     Private mDbConn As OleDbConnection
     Private mSqlConn As OleDbCommand                 'SQLÖ´ÐÐ
     Private sTblNm As String                         '´æ·ÅÊý¾ÝµÄ±íÃû
     Private mbOpen As Boolean                        'DBÁ´½ÓÅжÏÓÃ
     Private mDbReader As OleDbDataReader
     Private mDbTrans As OleDbTransaction
     Private mbTran As Boolean = False                'Transaction¿ªÊ¼ÅжÏÓÃ
     Private sSqlStr As String                        'SQLÎÄ
     Private mDbResult As DB_RESULT                   'EXECUTE·½·¨µÄ´¦Àí½á¹û
     Private mDbConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath.ToString & _
                                  &nbs


Ïà¹ØÎĵµ£º

sql2005 + VB6.0 ÔÚVB6.0ÖÐÆ´SQL ×¢Òâ"()"

½ñÌìÔÚµ÷ÊԵĹý³ÌÖз¢ÏÖ ÔÚ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 ......

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=·þÎñÆ÷Ãû"
         ......

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

        Dim rs As ADODB.Recordset
Dim sqlstr As String
 
'²éѯ
        sqlstr = "select * from ±íÃû where ×Ö¶ÎÃû = '" & ²éѯµÄÄÚÈÝ & "'"
        rs = VScn.Execute("" & SqlSt ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ