vbÓëÊý¾Ý¿â
VBÊý¾Ý¿â²Ù×÷ʵÀý
2008-02-22 05:49
VBÊý¾Ý¿â²Ù×÷¶ÔºÜ¶à³õѧÕßÅóÓѸе½±È½Ï³ÔÁ¦£¬Ä¿Ç°½Ì²ÄÖеÄʵÀý¶ÔÊý¾Ý¿â²Ù×÷¶¼±È½Ïµ¥Ò»£¬ºÜ¶àÅóÓÑÌáÒéÎÒ×öÒ»¸ö°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷ʵÀý£¬ÏÂÃæÕâ¸öʵÀý¾ÍÊÇÒ»¸öÕâÑùµÄÊý¾Ý¿â²Ù×÷ʵÀý¡£
¡¶Êé¿â¹ÜÀíϵͳ¡·ÊÇÒ»¸ö×î¼òµ¥µÄÊý¾Ý¿â²Ù×÷ʵÀý£¬Ëü°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷£¬Ê¹ÓÃÊý¾ÝÁ´½Ó¿Ø¼þAdodcÁ´½ÓÊý¾Ý¿â¡¢Êý¾ÝÏÔʾ¿Ø¼þMSHFlexGridÏÔʾÊý¾Ý¿âÖеļǼ¡£
ÔÚн¨¹¤³Ìʱ¹¤¾ßÏäÖÐÊÇûÓÐAdodc¿Ø¼þºÍMSHFlexGrid¿Ø¼þµÄ£¬ÎÒÃDZØÐëµã»÷²Ëµ¥Öеġ¾¹¤³Ì¡¿-¡¾²¿¼þ¡¿£¬ÔÚ¶Ô»°¿òÖй´Ñ¡“Microsoft ADO Data Control 6.0 (SP6)”ºÍ“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”£¬×îºóµã»÷¡¾È·¶¨¡¿£¬ÕâÑùAdodc¿Ø¼þºÍMSHFlexGrid¿Ø¼þ¾ÍÒѾ·ÅÖÃÔÚ¹¤¾ßÏäÖÐÁË¡£
ÆäÖÐAdodc¿Ø¼þµÄConnectionStringÊôÐÔÖµÊÇ£º"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=¼ÒÍ¥Êé¼Ü.mdb;Persist Security Info=False"£¬ËüÉèÖÃÁ´½ÓÁË“¼ÒÍ¥Êé¼Ü.mdb”Õâ¸öAccessÊý¾Ý¿â£¬RecordSourcÊôÐÔÖµÊÇ£º"select ͼÊéµÇ¼Ç±í.ID,ͼÊéµÇ¼Ç±í.Ãû³Æ,ͼÊéµÇ¼Ç±í.ÊéºÅ,ͼÊéµÇ¼Ç±í.×÷Õß,ͼÊéµÇ¼Ç±í.³ö°æÉç,ͼÊéµÇ¼Ç±í.³ö½è״̬,³ö½è¼Ç¼.½èÊéÈË,³ö½è¼Ç¼.µç»°,³ö½è¼Ç¼.µØÖ·,ͼÊéµÇ¼Ç±í.±¸×¢,ͼÊéµÇ¼Ç±í.³ö½è¼Ç¼ from ͼÊéµÇ¼Ç±í,³ö½è¼Ç¼ where ͼÊéµÇ¼Ç±í.ID=³ö½è¼Ç¼.zhuID ORDER BY ͼÊéµÇ¼Ç±í.ID"£¬ÒòΪÔÚ“¼ÒÍ¥Êé¼Ü.mdb”Êý¾Ý¿âÖаüº¬"ͼÊéµÇ¼Ç±í"ºÍ"³ö½è¼Ç¼"¶þ¸öÊý¾Ý±í£¬ÕâÊǶà±íÁ´½ÓµÄµäÐ͵ÄSQLÓï¾ä¡£AdodcµÄÕâ¶þ¸öÊôÐÔÖµÔÚVBµÄÊôÐÔ´°¿Ú½øÐб༣¬Äã¿ÉÒÔ½«ÉÏÊöÊôÐÔÖµÖ±½ÓÊäÈëµ½ÏàÓ¦µÄÊôÐÔÖУ¬ÉèÖÃVisibleµÄֵΪFalse£¬Ä¿µÄÊÇÔÚÔËÐÐÖв»ÏÔʾÕâ¸ö¿Ø¼þ£¬ÆäËûÊôÐÔĬÈÏÖµ¼´¿É¡£
MSHFlexGrid¿Ø¼þµÄÃû³ÆÎÒÃÇÐÞ¸ÄΪMS1£¬ËüµÄÊôÐÔÉèÖÃÉÔÉԱȽÏÂé·³£º
Ê×ÏȽ«ËüµÄDataSourceÊôÐÔÔÚÊôÐÔ´°¿ÚÉèÖÃΪ"Adodc1"£»
È»ºóÔÚ¶ÔÏó´°¿ÚÓÒ»÷¿Ø¼þ£¬ÔÚÏÂÀ²Ëµ¥Öеã»÷¡¾ÊôÐÔ¡¿£¬ÔړͨÓÔ±êÇ©ÖÐÐÞ¸ÄÐÐΪ3£¬ÐÞ¸ÄÁÐΪ11£¬Ð޸Ĺ̶¨ÐÐΪ0£¬Ð޸Ĺ̶¨ÁÐΪ0£¬Èç¹ûÊý¾ÝÁ´½ÓûÓÐÎÊÌ⣬ÔÚÊôÐԵē´øÇø”±êÇ©ÖпÉÒÔ¿´µ½ÁбêÌâºÍÁÐÃû³ÆÒѾÉèÖÃÁË£¬ÆäËûÊôÐÔÒ³µÄÊôÐÔ¿ÉÒÔÈÝÐíĬÈÏÖµ£¬Öеã»÷¡¾È·¶¨¡¿¼´¿É¡£
ÁíÍâÔÚÊôÐÔ´°¿ÚÉèÖÃMSHFlexGrid¿Ø¼þµÄBackColorBkgÊôÐÔΪ&H
Ïà¹ØÎĵµ£º
ÒªÏëÔÚVB6.0ÖÐʹÓÃOpenGL»æͼ£¬±ØÐëÏÈÏÂÔØÒ»¸öSDK,Ãû×Ö½Ðvbogl.tlb¡£ÎÒÓõİ汾ÊÇ2.1£¬Õâ¸öÔÂÒª³ö3.0°æ±¾µÄÁË¡£
ÏÂÔظÃÎļþºó£¬Ö±½ÓÔÚVB6.0“¹¤³Ì”-“ÒýÓÔÀïÃæÒýÓÃ
1¡¢ÔÚformÖмÓÈëÒ»¸öPictureBox¿Ø¼þ
2¡¢ÒªÔÚWindowsÀïÃæʹÓÃOpenGL£¬±ØÐëÏȽøÐÐÏñËظñʽÉèÖ㬺¯Êý´úÂëÈçÏÂ
Dim hRC ......
Public Class Form1
Private Sub CmdTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTrans.Click
Dim psi As New System.Diagnostics.ProcessStartInfo
Dim ftpFileName As String
psi.FileName = "ftp.exe"
psi.RedirectStandardInput = ......
·ÖÀࣺVBѧϰ ×ֺţº ´ó´ó ÖÐÖРСС mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È) ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®]
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ"
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2) ´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1Öе ......
VB³ÌÐòÆƽâ
VB ³ÌÐò¼ò½é
¡¡¡¡ÏÖÔÚ²»ÉÙ³ÌÐòÊÇÓà VB дµÄ£¬Äãͨ¹ý·´»ã±à»ò¸ú×Ùµ÷ÊÔʱºÜÈÝÒ×¼ø±ðij¸ö³ÌÐòÊÇ·ñΪ VB ³ÌÐò£¬VB µÄ EXE Îļþ²¢²»ÊÇÕæÕýµÄ±àÒë¿ÉÖ´ÐÐÎļþ£¬ËüÃÇÐèÆ䶯̬Á´½Ó¿â²ÅÄÜÕý³£ÔËÐУ¬¸÷°æ±¾µÄÁ´½Ó¿âÈçÏ£º
VB3 Á´½Ó¿âΪ vbrun300.dll £»
VB4 Á´½Ó¿âΪ vb40016.dll £» - 16 룬½ÏÉÙ¼û£»
VB4 ......
Õä¹óvbº¯ÊýÁбí
Variant ±äÁ¿µÄÄÚ²¿±íʾ:
_______________________________________________________________
·ûºÅ³£Á¿ Öµ ÄÚ²¿±íʾ ×Ö½ÚÊý
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......