Çó½Ì£ºVBÐÞ¸ÄAccess±í
Hi£¬¸÷λ´ó¸ç£¬Ð¡µÜ·Ç¼ÆËã»úרҵµÄÎÞÁÄѧVBÍæ£¬ÏëÕÕ×ÅÍøÉÏ×öÒ»¸öÐÅÏ¢¹ÜÀíϵͳ£¬ÓõÄÊÇADO£¬Á¬½ÓAccess£¬¹¦ÄÜÊÇʵÏÖÄܹ»Ìí¼Ó¡¢Ð޸ġ¢É¾³ý£¬±íÀïÓвúÆ·Ãû³Æ¡¢Ê¹ÓÃλÖᢹ¤¾ß±àºÅ¡¢ÐÔÄÜÕý³££¨ÊÇ/·ñ£©£¬Ä£ÄâµÄÄǸöºù«ÊÇÓÃÁ˸ö×Ô¶¯±àºÅ²¢ÉèÖÃΪKEY¼ü£¬ºÃÏñÎÒÊÔÑéÊdzɹ¦µÄ£¬µ«ÊÇÎÒÕâËÄÏî¶¼ÓÐÐèÒªÖØ¸´£¬ËùÒÔûÉèKEY¼ü£¬ËùÒÔÏÖÔÚÔÚÐÞ¸Äû°ì·¨ÊµÏÖ¡£
Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Or Text4.Text = "" Then
'²úÆ·Ãû³ÆºÍ±àºÅ£¬²»½ÓÊÕ¿ÕÖµ
MsgBox "ÇëÊäÈëÍêÕûµÄÐÅÏ¢£¡"
Exit Sub
End If
Dim sc As Integer
sc = MsgBox("ȷʵÐÞ¸ÄÕâÌõ¼Ç¼Âð£¿", vbOKCancel, "ÌáʾÐÅÏ¢")
If sc = 1 Then
'ÔËÐÐʱÈç¹ûÓû§µã»÷µÄÊÇMsgBoxÌáʾ¿òµÄ¡°È·¶¨¡±°´Å¥£¬·µ»ØÖµÊÇ1
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Str1 As String
Dim Str2 As String
Dim Str3 As String
Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"
Str2 = "Data Source=E:\Access_db.mdb;"
Str3 = "Jet OLEDB:Database Password="
conn.Open Str1 &
Ïà¹ØÎÊ´ð£º
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿
²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û
ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
Çë´óÏÀÖ¸µã£¬¹òлÁË£¬×îºÃÓдúÂë
ÒªÓõ½ADOX¶ÔÏ󣬲éϰïÖúÎĵµ£¬
http://hyadliujing.blog.163.com/blog/static/4484507420091020969233/?mode=edit
ûÓÐÕÒµ½°¡ ¿´ÁËÄãµÄ²©¿ÍÁË£¬ÎÒÊÇÏ뽫accessÀïÃæµÄ¸½¼þ±£´æ ......