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
Ïà¹ØÎĵµ£º
WindowsÖеÄ×ÀÃæÍ¼±êµÄÅÅÁз½Ê½ÊÇ·ñÈÃÄã¸Ðµ½Ñá¾ë¶øÏë°´ÕÕ×Ô¼ºµÄÏë·¨ÅÅÁÐͼ±ê¡£ÊÇ·ñÏë¸Ä±ä×ÀÃæÍ¼±êÎÄ×ֵı³¾°¶ø²»
ʹÔÚͼ±êÎÄ×ÖϳöÏÖÒ»¸ö¸öÄÑ¿´µÄÉ«¿é¡£ÕâÀïÎÒÒª½éÉÜÈçºÎͨ¹ýVBÀ´¶Ô×ÀÃæµÄͼ±ê½øÐг¹µ×µÄ¸Ä±ä¡£
ÆäʵÔÚWindowsϵÄ×ÀÃæÒÔ¼°ÈÎÎñÀ¸µÈ¶¼ÊÇ´°¿Ú¶ÔÏó£¬ÎÒÃÇ¿ÉÒÔÀûÓÃWindows APIº¯ÊýFindWindow ......
VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢“±ê×¼”DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨2£©
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://blog.csdn.net/useway
×òÌìÎÒÃǽ²µ½£¬ÈçºÎͨ¹ýÌØÊâ·½·¨»ñÈ¡OBJÎļþ£¬ÄÇô½ñÌìÎÒÃǼÌÐø½²ÈçºÎ½øÐбàÒëÁ¬½Ó¡£
  ......
ÕâһƪÎÒÔÙ˵˵ˮ¾§±¨±íµÄÇé¿ö¡£ACCESSÖжÔӦˮ¾§±¨±í·½Ã棬´ó¼Ò¿ÉÄÜ»áÓöµ½µÄ×î¶àµÄÎÊÌâÓ¦¸Ã¾ÍÊÇ´ò¿ª±¨±íºó
»á³öÏÖÐèÒªµÇ¼µÄÎÊÌâ¡£
Õâ¸öÊÇÎªÊ²Ã´ÄØ£¿Ã÷Ã÷ÎÒûÓÐÉèÖÃÃÜÂ룬Ôõô»áÓÐÒªÊäÈëÃÜÂëÄØ£¿Èç¹ûÄã¹»³Á×Å£¬Èç¹ûÄãµÄdebug¾Ñ鲻ȱ·¦µÄ»°£¬
Äã»á·¢ÏÖÔÚË®¾§±¨±íÌø³öÊäÈëÃÜÂëµÄµÇ¼¿òÖУ¬accessµÄ·¾¶²»ÊÇÎÒÏÖÔÚÊý¾Ý¿â· ......
Dim rs As ADODB.Recordset
Dim sqlstr As String
'²éѯ
sqlstr = "select * from ±íÃû where ×Ö¶ÎÃû = '" & ²éѯµÄÄÚÈÝ & "'"
rs = VScn.Execute("" & SqlSt ......
ÔÆÔÂVB´úÂë¸ñʽ»¯²å¼þ 1.0
CloudMoonFormatCode.dll ÊÇÒ»¸öVB6.0µÄ²å¼þ£¬ÓÃÓÚVB¿ª·¢ÈËÔ±¸ñʽ»¯´úÂë¡£´Ë²å¼þÍêÈ«Ãâ·Ñ¡£
Ö÷Òª¹¦ÄÜ£º
ÔÚ VB6 IDE Öиñʽ»¯µ±Ç°´ò¿ª´°¿ÚµÄ´úÂ룬ʹÄãµÄ´úÂë¸ü¼ÓÕû½à¡¢ÃÀ¹Û¡£
Ìṩ¹Ø±ÕËùÓÐÉè¼Æ´°¿ÚµÄ¹¦ÄÜ
Ìṩ¹Ø±ÕËùÓдúÂë´°¿ÚµÄ¹¦ÄÜ
......