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
Ïà¹ØÎĵµ£º
1.Ê×ÏÈ ddicÓÃ戶ÓÃ戶進È룬su01£¬輸ÈëÓÃ戶Ãû£¨“¼ÓÈëÎÒн¨Á¢µÄdev”£©£¬»Ø車£¬½¨Á¢Ò»個ÓÃ戶帳號£¬È»áá°Ñ設ÖÃÃÜ碼£¬profile選項ÖÐ輸Èë“SAP_ALL”(這個ÊÇSAP ALL 認證µÄÒâ˼)£¬±£ ......
½ñÌìÔÚµ÷ÊԵĹý³ÌÖз¢ÏÖ ÔÚ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 ......
RGBº¯Êý£ºRGBÊÇͨ¹ýÖ¸¶¨ºìÂÌÀ¶²»Í¬µÄ·ÖÁ¿ÖµµÃµ½²»Í¬µÄÑÕÉ«¡£
·¸ñʽ£ºRGB£¨ºìÉ«Öµ£¬ÂÌÉ«Öµ£¬À¶É«Öµ£©
·È¡Öµ·¶Î§Îª0--255£¬·Ö±ð´ú±íËùÒªÑÕÉ«Öеĺ졢ÂÌ¡¢À¶·ÖÁ¿µÄ´óС¡£
QBColorº¯Êý£ºÓÃÒ»¸öÕûÊýÖµ¶ÔÓ¦RGBµÄ³£ÓÃÑÕÉ«Öµ
·¸ñʽQBColor£¨ÑÕÉ«Öµ£©
·ÑÕÉ«ÖµÊÇÒ»¸öÕûÊý£¬È¡Öµ·¶Î§0--15´ú±í16ÖÖ» ......
'ÔÚÒýÓÃÀïÌí¼Ó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=·þÎñÆ÷Ãû"
  ......