¹ØÓÚ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
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ÕжÔÈÕVB¹¤³Ìʦ
ÒªÇó¶þÄêÒÔÉϵÄVB¾Ñé
Óйý¶ÔÈÕÏîÄ¿µÄ×îºÃ£¬ÄÜ¿´¶®ÈÕÓïµÄ
ÓкÏÊʵķ¢¼òÀúµ½ÓÊÏäxiaocm2004@163.com
¸çÃÇ
´óÁ¬ÓÐÄãµÄµØÅÌÂð£¿
VBû×ö¹ýÕ¦Õû£¡
VB6µ¹ÊÇûÎÊÌ⣬¿Éϧ²»¶®ÈÕ ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......