ÓÃVC´¦ÀíACCESSÖеÄλͼÊý¾Ý
----±È½Ï¸´ÔÓµÄÊý¾Ý¿âÖÐÒ»°ã»áÓÐλͼÊý¾Ý£¨±ÈÈçÏàÆ¬£©¡£ËäÈ»ÕâÀà“OLE¶ÔÏó”µÄ²åÈ롢ɾ³ýÒÔ¼°Ìæ»»²Ù×÷ÔÚACCESSÀïÈÝÒ×ʵÏÖ£¬ÔÚVCÖÐÈ´ÏԵø´ÔÓ¶øÇÒÆÄ·ÑÖÜÕÛ¡£ÒÔϰÑ×÷ÕßÓÃVC´¦ÀíACCESSÊý¾Ý¿âÖеÄλͼÊý¾ÝµÄÌå»á¼òµ¥ÐðÊöһϣ¬ÒÔÇë½ÌÓÚ´ó¼Ò¡£
----ÔÚCdaoRecordsetÅÉÉúÀàµÄ¶ÔÏóÖУ¬VC×Ô¶¯ÎªACCESSµÄ“OLE¶ÔÏó”ÓòÉú³ÉÒ»¸öCLongBinary¶ÔÏ󡣸ÃÀàËäÈ»½Ï¼òµ¥£¬ÔÚ³ÌÐòÀïÈ´ÐèҪʹÓÃÈ«¾Öº¯ÊýGlobalAlloc()ºÍGlobalFree()´¦ÀíÓëËüµÄÄÚ´æ¾ä±úm_hDataÓйزÙ×÷£¬·ÃÎÊÊý¾ÝǰºóÒªµ÷ÓÃGlobalLock()ºÍGlobalUnlock()£¬¶øÇÒ»¹Òª¸øËüµÄm_dwDataLength¸³Öµ£¬Ê¹ÓÃÆðÀ´Ïà¶Ô¸´ÔÓ£¬ËùÒÔÒ»°ãÍÆ¼öʹÓÃCByteArrayÀà¡£ÕâÖ»ÐèÒªÔÚCdaoRecordsetÅÉÉúÀà¶ÔÏóµÄÊý¾Ý˵Ã÷ÀïÐÞ¸Äһϣ¬²¢°ÑDoFieldExchange()ÀïµÄDFX_LongBinary()¸Ä³ÉDFX_Binary()¼´¿É¡£
----×÷Õß¶¨ÒåÁËÒ»¸öÒÔCObjectΪ»ùÀàµÄCDibÀࣨCDaoRecordViewµÄÅÉÉúÀàÀﶨÒåÁËCDib¶ÔÏó³ÉÔ±m_DIB£©£¬ÆäÖаüÀ¨Ò»Ï³ÉÔ±ºÍ·½·¨£º
CByteArray m_bufDIB;
BOOL Create(CByteArray& ba);
BOOL Create(CFile& bmpFile);
BOOL Paint(HDC hDC);
----m_bufDIBÊǴ洢λͼÊý¾ÝµÄ»º³åÇø¡£Îª¼ò±ãÆð¼û£¬Ëü²»°üº¬°ü×°ÐÅÏ¢ºÍBITMAPFILEHEADER½á¹¹¡£ÕâÑù¶ÔÊý¾Ý¿â¸üкó£¬ÔÓеēOLE¶ÔÏó”ÀàÐͽ«±ä³É“³¤¶þ½øÖÆÊý¾Ý”£¬²»ÄÜÔÚACCESSÀï²é¿´ÁË¡£
----µÚÒ»¸öCreate()ÖØÔØ·½·¨µÄ²ÎÊýbaÊǼǼ¼¯µÄλͼÊý¾Ý£¨±ÈÈçm_image£©£¬Ê¹ÓÃCByteArray::Copy()°ÑÊý¾Ý¸´ÖƸøm_bufDIB;µÚ¶þ¸öCreate()·½·¨µÄ²ÎÊýbmpFileÊÇÒÑ´ò¿ªµÄλͼÎļþ£¬Ê¹ÓÃCFile::ReadHuge()°ÑÎļþÀïµÄÊý¾Ý¶ÁÈëm_bufDIB£¨·ÅÆúÇ°ÃæµÄBITMAPFILEHEADER½á¹¹£©£º
DWORDdwBufSize;
dwBufSize=bmpFile.GetLength();//»ñµÃÎļþ³¤¶È
bmpFile.Seek((long)sizeof(BITMAPFILEHEADER),
CFile::begin);//·ÅÆúÎļþÍ·
dwBufSize-=sizeof(BITMAPFILEHEADER);
m_bufDIB.SetSize(dwBufSize);//ÉèÖûº³åÇø´óС
file.ReadHuge((LPSTR)(m_bufDIB.GetData()),dwBufSize);
……
----Paint()·½·¨µ÷ÓÃÁËSetDIBitsToDevice()º¯Êý£¨¸ù¾ÝÇé¿öÒ²¿ÉÒÔʹÓÃStretchDIBits()£©£¬²ÎÊýhDCÊÇCDaoRecordviewµÄ×ÊÔ´ÖеÄÒ»¸ö¾²Ì¬¿ØÖƵÄÉ豸¾ä±ú£¬×÷ΪSetDIBitsToDevice()µÄµÚÒ»¸ö²ÎÊý¡£Èç¹û²»ÊÇ16»ò24λµÄλͼ£¬»¹ÐèÒª½¨Á¢ºÍÉèÖõ÷É«°å¡£Paint()·½·¨³ýÁËÔÚCDaoRecordViewÅÉÉúÀàµÄOnMove()Àïµ÷ÓÃÍ⣬Ҳ±»OnPaint()µ÷ÓÃ(×îºÃ²»ÔÚOnDraw()Àïµ÷ÓÃ)£º
void CDeri
Ïà¹ØÎĵµ£º
Access ÏîÄ¿¹ÜÀíÍÅ¶ÓµÄ Clint ÔÚ´ËÏò Office ¹¤³Ì²©¿ÍµÄ¶ÁÕß±íʾÎʺò¡£Í¨¹ýÓëµÚ 9 ƵµÀºÏ×÷£¬Access ÍŶӼ´½«ÍƳöÒ»¸öÃûΪ Access չʾµÄÐÂչʾ¡£ÆäÖ÷ÒªÈËÎï°üÀ¨ Ryan McMinn¡¢ÎÒ±¾ÈËÒÔ¼°ÍŶӵįäËûÈËÔ±¡£ÎÒÃǽ«ÉîÈë̽ÌÖ Access 2010 ºÍ Access Services ÖеÄÐÂÔö¹¦ÄÜ£¬²¢·ÖÏíÀ´×ÔÉçÇøµÄ·´À¡¡£
´ËÍ⣬×î½üÔÚ SharePoint D ......
Ò»¡¢SQL SERVER ºÍACCESSµÄÊý¾Ýµ¼Èëµ¼³ö
³£¹æµÄÊý¾Ýµ¼Èëµ¼³ö£º
ʹÓÃDTSÏòµ¼Ç¨ÒÆÄãµÄAccessÊý¾Ýµ½SQL Server£¬Äã¿ÉÒÔʹÓÃÕâЩ²½Öè:
¡¡¡¡¡ð1ÔÚSQL SERVERÆóÒµ¹ÜÀíÆ÷ÖеÄTools£¨¹¤¾ß£©²Ëµ¥ÉÏ£¬Ñ¡ÔñData Transformation
¡¡¡¡¡ð2Services£¨Êý¾Ýת»»·þÎñ£©£¬È»ºóÑ¡Ôñ czdImport Data£¨µ¼ÈëÊý¾Ý£©¡£
¡¡¡¡¡ ......
Option Explicit
Private Sub Form_Load()
'¹¤³Ì->ÒýÓÃ->Ñ¡ÖÐMicrosoft ActiveX Data Objects 2.8 Library
Dim shujukulianjie As New ADODB.Connection
Dim jiluji As New ADODB.Recordset
'Á¬½ÓÊý¾Ý¿âµÄ´úÂë¶Î
shujukulianjie.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Sour ......
ÓÃCdbl()ÊÔÊÔ
CDbl(str) --> Ë«¾«¶È
CInt(str) --> ÕûÐÍ
CLng(str) --> ³¤ÕûÐÍ
CSng(str) --> µ¥¾«¶È
CDate(str) --> ÈÕÆÚÐÍ ......