Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐµÄ ......

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

¹ØÓÚÓÃvb´¦ÀítxtµÄÎÊÌâ

ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
   
0023939608011»Æ¸ùÑø                                & ......

VBÎļþ²Ù×÷

Private Sub Command1_Click()

    Dim m As Integer    '½ÓÊÜÎı¾¿òÒ»µÄÊýÖµ
    Dim n As Integer  '½ÓÊÜÎı¾¿ò¶þµÄÊýÖµ
    Dim k As Integ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ