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

¹ØÓÚVB²åÈëÊý¾Ý¿âÎÊÌâ

¸÷ΪӢÐÛ£¬ÎØÎØ¡£¡£¡£¡£ÒѾ­ÍíÉÏ4£º30À²£¬»¹ÊÇûÓÐüĿ³îËÀÎÒÀ²
Dim objCn As New Connection, objRs As New Recordset


'===============´ò¿ªÊý¾Ý¿âº¯Êý=======================

Private Sub kai()

    '½¨Á¢Êý¾Ý¿âÁ¬½Ó
 

    objCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                      "Data Source=" & App.Path & "\hd.mdb;"
 


    objCn.Execute ("insert into user(xingming,xingbie,nianling,dianhua,qq,youxiang,dizhi,zhaopian) values('" + t1.Text + "','" + Combo1.Text + "','" + t3.Text + "','" + T4.Text + "','" + T5.Text + "','" + T6.Text + "','" + T7.Text + "',pic)")

    lss.Caption = "Êý¾Ý¿â´ò¿ª"
   
    Exit Sub


End Sub

ϵͳ¾¹È»±¨¸æ²åÈëÓï·¢´íÎó£¬ÎÒÔõôû¿´³öÀ´°¡£¬´ó¼Ò¿´¿´ÄÄÀïµÄÎÊÌâ°¡¡£¡£¡£¡£¡£ÎØÎØ
picÊÇÎÒÔÚÄ£¿éÖж¨ÒåµÄÈ«¾Ö±äÁ¿£¬¿ÉÒÔÈ¡³öÖµÀ´userÊDZíÃû
¸øÄã¸ö·½·¨
dim sql as string
sql="insert into user(xingming,xingbie,nianling,dianhua,qq,youxiang,dizhi,zhaopian) values('" + t1.Te


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

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

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

±±¾©¡¡ÕжÔÈÕVB¹¤³Ìʦ

ÕжÔÈÕVB¹¤³Ìʦ
ÒªÇó¶þÄêÒÔÉϵÄVB¾­Ñé
Óйý¶ÔÈÕÏîÄ¿µÄ×îºÃ£¬ÄÜ¿´¶®ÈÕÓïµÄ
ÓкÏÊʵķ¢¼òÀúµ½ÓÊÏäxiaocm2004@163.com

¸çÃÇ
´óÁ¬ÓÐÄãµÄµØÅÌÂð£¿


VBû×ö¹ýÕ¦Õû£¡

VB6µ¹ÊÇûÎÊÌ⣬¿Éϧ²»¶®ÈÕ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ