Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

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

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

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


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

VB6µ¹ÊÇûÎÊÌ⣬¿Éϧ²»¶®ÈÕ ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ