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

vb.net²Ù×÷Êý¾Ý¿âÖ®ACCESS£¨3£©

ÕâһƪÎÒÔÙ˵˵ˮ¾§±¨±íµÄÇé¿ö¡£ACCESSÖжÔӦˮ¾§±¨±í·½Ã棬´ó¼Ò¿ÉÄÜ»áÓöµ½µÄ×î¶àµÄÎÊÌâÓ¦¸Ã¾ÍÊÇ´ò¿ª±¨±íºó
»á³öÏÖÐèÒªµÇ¼µÄÎÊÌâ¡£
Õâ¸öÊÇÎªÊ²Ã´ÄØ£¿Ã÷Ã÷ÎÒûÓÐÉèÖÃÃÜÂ룬Ôõô»áÓÐÒªÊäÈëÃÜÂëÄØ£¿Èç¹ûÄã¹»³Á×Å£¬Èç¹ûÄãµÄdebug¾­Ñ鲻ȱ·¦µÄ»°£¬
Äã»á·¢ÏÖÔÚË®¾§±¨±íÌø³öÊäÈëÃÜÂëµÄµÇ¼¿òÖУ¬accessµÄ·¾¶²»ÊÇÎÒÏÖÔÚÊý¾Ý¿â·ÅÖõÄλÖã¬ÈÔÈ»ÊÇÎÒÔÚ±àÂëµÄʱºò
Ñ¡ÔñµÄÊý¾Ý¿âµØÖ·¡£ËûΪʲôûÓбäÄØ£¿ÆäʵÕâ¸öʱºòÄãÐèÒªÎÊ£¬Õâ¸öµØÖ·ÎªÊ²Ã´Òª±ä£¿
µ±ÄãʹÓù«Ó÷þÎñÆ÷µÄʱºò£¬¿ÉÄܲ»»á³öÏÖÕâ¸öÎÊÌ⣬ÒòΪÄã²»¹Üµ½Äĸö¿Í»§¶ËʹÓ㬷þÎñÆ÷µØÖ·²»»á±ä¡£È»¶øÄãÓÃaccess£¬
µ±Êý¾Ý¿â¸ú×Å»»Á˵çÄԺ󣬷þÎñÆ÷µØÖ·µ±È»Ò²±äÁË£¬¶øÄã±àÂëÖеĵØÖ·È´Ã»Óб䣬Õâ¸ö¾ÍÊÇÎÊÌâ³öÏÖµÄÔ­Òò¿©£¡Ã÷°×Á˰ɣ¿
ÆäʵÊǺܼòµ¥µÄÒ»¸öµÀÀí¡£
ÄÇÔõô°ìÄØ£¿ÀÏ¹æ¾Ø£¬¿´´úÂë¡£
‘Êý¾Ý¿âÁ¬½Ó
DBConnection.ConnectionString = DB_CnStr()
DBConnection.Open()
'¿ªÊ¼²éѯ
Dim sql As New System.Text.StringBuilder
Dim DT As New DataTable
sql.Append(" SELECT * from WORDINFO")
Dim cmd As New OleDb.OleDbCommand(sql.ToString, DBConnection)
Dim RS As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(cmd)
DT = New DataTable
RS.Fill(DT)
DBConnection.Close()
’ÒÔÉϾÍÊÇÊý¾Ý¿âÀï²éѯ£¬ÏÂÃæ¾ÍÊǰѲéѯ½á¹û¸øË®¾§±¨±íÀ´ÏÔʾ¡£
’Ïȶ¨Ò屨±íµÄλÖ㬽Ó×Ŷ¨ÒåÒ»¸ö±¨±íÒ³Ãæ£¬È»ºóÊÇÒ»¸ö×Ô¶¯µÇ¼Êý¾Ý¿âµÄ
Dim reportPath As String = Application.StartupPath & "\" & "CrystalReport.rpt"
Dim rptDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim logonInfo As New CrystalDecisions.Shared.TableLogOnInfo
rptDoc.Load(reportPath)
‘ÕâÀï¾ÍÊÇÉèÖÃÊý¾Ý¿âµÇ¼µÄÐÅÏ¢£¬ACCESSÖÐÓÐÕ˺ÅÃÜÂëµÄ»°¾ÍÌûÓеϰ¾ÍÈ«²¿¿Õ£¬
’Èç¹ûÆäËûµÄÊý¾Ý¿â£¬Èçsql¾ÍÒªÌî·þÎñÆ÷ºÍÊý¾Ý¿âÃû³ÆÁË
logonInfo.ConnectionInfo.ServerName = ""
logonInfo.ConnectionInfo.DatabaseName = ""
logonInfo.ConnectionInfo.UserID = ""
logonInfo.ConnectionInfo.Password = ""
rptDoc.Database.Tables(0)


Ïà¹ØÎĵµ£º

VB¾ä±ú¸ÅÄî ²»¶®ÒÔºóÉîÈëÀí½â

×î½üÔÚѧϰwindows APIµÄʱºò·¢ÏÖÔÚ¸ö½Ð¾ä±úµÄ¸ÅÄî¸ã²»Çå³þ£¬ÓÚÊDzéÁËÒ»ÏÂÏÖÔÚ°Ñ×Ô¼ºµÄÀí½âд³öÀ´£¬ºóÃæÔÙÌùÍøÉϵĽéÉÜ¡£¾ä±úÊÇÒ»¸ö´ú±í´°¿ÚµÄÕýÕûÊý£¬µ±È»´°¿ÚµÄ¸ÅÄîÔÚÕâÀï°üº¬ÁË×ÀÃæ¡¢°´Å¥¡¢¹ö¶¯ÌõµÈ£¬Õâ¾ÍÊÇÎÒ×î¼òµ¥µÄÀí½âÁË¡£
ÒÔÏÂÊÇÍøÉϵĽéÉÜ£º
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Á˽â¾ä±ú
ÔÚµ÷ÓÃ ......

VB ³£Óà ¿ì½Ý¼ü Èȼü ³ÌÐòÔ±

´°ÌåÉèÖ㬿ؼþ²¼¾ÖʱÓÃ:
alt+v+x¿ÉÒÔ¿ìËÙÏÔʾ³ö¹¤¾ß¿ò
Alt+P+N ÒýÓÃ
ctrl+×óÓÒ¼üÍ·¿ÉÒÔÒÆ¶¯¿Ø¼þ  
shift+×óÓÒ¼üÍ·µ÷Õû¿Ø¼þ´óС
F7   Çл»µ½±à¼­´°¿Ú
Shift+f7 Çл»´úÂë´°¿Ú
¿ª·¢´úÂ룬µ÷ÊÔ´úÂë¶¼ÄÜÓõģº
Ctrl+C¸´ÖÆ
Ctrl+VÕ³Ìù
Ctrl+X¼ôÌù
Ctrl+F²éÕÒ
¿ª·¢´úÂëʱÓõÄ:
Tab ÏòÓÒÍÆ
Shi ......

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ÎÞËù²»ÄÜÖ®Î壺½¨Á¢¡°±ê×¼¡±DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨2£©

VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢“±ê×¼”DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨2£©
 
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://blog.csdn.net/useway
        ×òÌìÎÒÃǽ²µ½£¬ÈçºÎͨ¹ýÌØÊâ·½·¨»ñÈ¡OBJÎļþ£¬ÄÇô½ñÌìÎÒÃǼÌÐø½²ÈçºÎ½øÐбàÒëÁ¬½Ó¡£
        ......

vb³£ÓõÄÄÚ²¿º¯Êý£¨Áù£©£ºÑÕÉ«º¯Êý


RGBº¯Êý£ºRGBÊÇͨ¹ýÖ¸¶¨ºìÂÌÀ¶²»Í¬µÄ·ÖÁ¿ÖµµÃµ½²»Í¬µÄÑÕÉ«¡£
·¸ñʽ£ºRGB£¨ºìɫֵ£¬ÂÌɫֵ£¬À¶É«Öµ£©
·È¡Öµ·¶Î§Îª0--255£¬·Ö±ð´ú±íËùÒªÑÕÉ«Öеĺ졢ÂÌ¡¢À¶·ÖÁ¿µÄ´óС¡£
QBColorº¯Êý£ºÓÃÒ»¸öÕûÊýÖµ¶ÔÓ¦RGBµÄ³£ÓÃÑÕɫֵ
·¸ñʽQBColor£¨ÑÕɫֵ£©
·ÑÕɫֵÊÇÒ»¸öÕûÊý£¬È¡Öµ·¶Î§0--15´ú±í16ÖÖ» ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ