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

vbÓëaccessÊý¾Ý¸üеÄÎÊÌâ

Ò»¸ö³ÌÐò£¬Á½¸ö´°¿Ú£¬Ò»¸öÓÃÀ´¸ü¸Äaccess±íÊý¾Ý£¨Form1£©,ÁíÒ»¸ö´°¿ÚÓиöcombo1ÓÃÀ´ÏÔʾÊý¾Ý(Form2)¡£form2ÓÐÒ»¸ö°´Å¥(command1)ÓÃÀ´´ò¿ªform1¡£ÏÖÔÚÎÒÏÈ´ò¿ªform2£¬combo1¶ÁÈ¡³öÊý¾Ý£¬µã»÷command1´ò¿ªform1,¸ü¸ÄÊý¾Ý£¨Ìí¼Ó»òÐ޸Ļòɾ³ý£©²¢¹Ø±Õform1ºó£¬ÈÃcombo1ÖØÐ¶ÁÈ¡±íÖÐÊý¾Ý£¬·¢ÏÖ»¹ÊǸüÐÂǰµÄÊý¾Ý£¬ÕâÔõô»ØÊ°¡£¿µ±ÎÒÔٴθü¸ÄÊý¾Ýºó£¬·¢ÏÖÕâʱ¶ÁÈ¡µÄÊý¾ÝÊǵÚÒ»´Î¸ü¸ÄºóµÄÊý¾Ý¡£
form2ÖÐcommand1´úÂëÈçÏ£º
Private Sub Command1_Click()
    form1.Show
    combo1.Clear
    '****************ÐÅÏ¢Ìî³ä***************
    print1.ConnectionString = GetDatabaseConnectionString()
    print1.RecordSource = "select * from kind "
    print1.Refresh

    If print1.RecordSet.EOF = False Then
        print1.RecordSet.MoveFirst
    End If
    Do While print1.RecordSet.EOF = False
        combo1.AddItem print1.RecordSet.Fields(2).Value
          print1.RecordSet.MoveNext
    Loop 
End Sub
ÕÕÀí˵£¬Îҳɹ¦¸ü¸ÄÁ˱íÖеÄÊý¾Ýºó£¬ÔٴζÁȡӦ¸ÃÊǸüкóµÄÊý¾Ý£¬ÎªÊ²Ã´²»ÐÐÄØ£¿

print1.close
¹Ø±ÕÒ»´ÎÖØÐ´ò¿ª¿ÉÄܾͺÃÁË

print1.closeÓÐÕâ¸ö·½·¨Â𣿣¿£¿£¿

ÎÒ·¢ÏÖÎÒ·¸ÁËÒ»¸ö´íÎó:
ÎÒÒÔΪform1.show³öÀ´ÒԺ󣬳ÌÐò»áÍ£ÔÚÄÇÀÏÖÔÚ·¢ÏÖ²»ÊÇÕâÑù

Ó¦¸ÃÓУ¬×Ô¼ºÕÒÕÒ°¡


Ïà¹ØÎÊ´ð£º

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

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

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

access ÖÐÖ´ÐÐsqlÓï¾äupdate²»³É¹¦£¬ÇóÖú£¡£¡£¡

access ÖÐÖ´ÐÐsql updateÓï¾äʱÓÐʱºò³É¹¦ÓÐʱºò²»³É¹¦£¬µ«ÊÇaccessÖв»³ö´íÎóÐÅÏ¢£¬²»ÖªµÀÊÇʲôԭÒò£¬ÓÐÄÄλ´óÏÀÖªµÀ£¬Çë°ïæ°¡
ÌùSQLÓï¾ä£¬¼ì²é±í¡¢×ֶεÄÓÐЧÐÔÉèÖÃ

sql ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£

ÊÇ ......

¹ØÓÚVBÖеÄÁбí¿òµÄÎÊÌâ

Ò»µÀVBС³ÌÐò
ÓÐÁ½¸öÁбí¿òlist1¡¢ list2 ¡£list1Öгõʼ»¯ÓÐ15¸ö²»Í¬µÄ×Öĸ£¬¶ølist2ÖÐÊÇ¿Õ°×µÄ »¹ÓÐÒ»¸ö°´Å¥command1,Ñ¡ÖÐlist1ÖеÄÈÎÒâ¶à¸öÏîÄ¿ È»ºóµã»÷°´Å¥command1,ÔòÔÚlist2ÖÐÏÔʾlist1Öб»Ñ¡ÖеÄÏîÄ¿¡£µ±¶ ......

VB¶ÁÈ¡XMLµÄÎÊÌâ

VB code:

Private objXml As New DOMDocument60
Private xmlRoot As IXMLDOMElement
Public Function xmlNode()
Set objXml = New DOMDocument
objXml.async = False
objXml.Load ("E:\Li ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ