VB²éѯaccessÊý¾Ý¿â - VB / »ù´¡Àà
Êý¾Ý¿â½á¹¹ÊÇÕâÑùµÄ ²éѯ³öÀ´ÊÇÒ»¸öͳ¼ÆÐ§¹û
²éѯ³öÀ´¾ÍÊÇ µ±ÈÕÆÚΪʲôµÄʱºò ÕâÒ»ÌìËùÓÐÊý¾ÝµÄͳ¼Æ
sql = "select FScrq from TJlb "
Call OpenConn2
rs2.Open sql, cn2, 1, 1
Do While Not rs2.EOF
sql = "select sum(FScrq) as FScrq from TJlb where FScrq = '" & rs2!FScrq & "'"
rs1.Open sql, cn2, 1, 1
rs2.MoveNext
Loop
Call CloseConn2
ÏÂÃæ²»ÖªµÀÒªÔõôдÁË
http://download.csdn.net/source/1498324
http://download.csdn.net/source/1644211
²»ÖªËùÔÆ
£Ç£ï£ï£ç£ì£åһϡ°£Á£ã£ã£å£ó£ó£¬£Ö£Â£¶£¢£¬ÕÒ¼¸¸öÀý×Ó°É¡£
¶¥
û¿´µ½picture
Ôõô»áÓÐÕâÑùµÄÌû×Ó......
{{
Ïà¹ØÎÊ´ð£º
rt£¬ÎÒÊÔÁËÍøÉÏÖ±Á¬AccesÊý¾Ý¿âµÄ·½·¨,windowsÏÂûÓÐÎÊÌâ,µ«ÊÇÔÚlinuxϲ»ÐУ¬ËÄܸøµãÌáʾ£¿Ð»Ð»
ÄãÔõôÁ¬µÄ£¿
AccesÊý¾Ý¿â..
ÄãÔõôÁ·µÄÄØ£¿
Java code:
static String DBDRIVER = "sun.jd ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......