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

VB²Ù×÷Êý¾Ý¿â³öÏÖ¡°¶ÔÏ󹨱Õʱ£¬²»ÔÊÐí²Ù×÷¡±µÄ´íÎó

ÎÒµÄÊý¾Ý¿âÖÐÓÐchangqiang£¬WuMa_yt,DrawData1,DrawDataËĸö±í£¬ÎÒʹÓÃAdodc¿Ø¼þÁ¬½ÓÊý¾Ý¿â²Ù×÷ʱ£¬³öÏÖ¡°¶ÔÏ󹨱Õʱ£¬²»ÔÊÐí²Ù×÷¡±µÄ´íÎó£¬ÇëÎÊÊǺÍÔ­Òò£¿£¿£¿£¿

³ÌÐò´úÂëÈçÏ£º


    CommonDialog_open.DialogTitle = "´ò¿ªmdbÎļþ"
    CommonDialog_open.Filter = "access(*.mdb)|*.mdb"
    CommonDialog_open.ShowOpen
   

        If Adodc_Open.Recordset.State <> adStateClosed Then      'close opened database first
            Adodc_Open.Recordset.Close
        End If

        Adodc_Open.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
            & CommonDialog_open.FileName & ";Persist Security Info=False;"
        Adodc_Open.RecordSource = "delete * from DrawData1"
        Adodc_Open.Refresh
        Adodc_Open.RecordSource = "insert into DrawData1 select changqiang.Max_dBuVm, WuMa_yt.distance from changqiang,WuMa_yt where (changqiang.date = WuMa_yt.date) and (changqiang.time = WuMa_yt.time)"
        Adodc_Open.Refresh
        Adodc_Open.RecordSource = "delete * from DrawData&quo


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ