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

Çó½Ì£º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²éÕÒÖØ¸´ÎÊÌâ - ÆäËûÊý¾Ý¿â¿ª·¢ / Access

ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......

ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......

ACCESSÎı¾¿ò³¤¶ÈÊǶàÉÙ? - ÆäËûÊý¾Ý¿â¿ª·¢ / Access

ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿

²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û

ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......

Vb.net Access CrystalReport - .NET¼¼Êõ / VB.NET

µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......

ÈçºÎ½«accessÀïÃæµÄ¸½¼þ±£´æµ½´ÅÅÌÉÏÄØ

Çë´óÏÀÖ¸µã£¬¹òлÁË£¬×îºÃÓдúÂë
ÒªÓõ½ADOX¶ÔÏ󣬲éϰïÖúÎĵµ£¬
http://hyadliujing.blog.163.com/blog/static/4484507420091020969233/?mode=edit

ûÓÐÕÒµ½°¡ ¿´ÁËÄãµÄ²©¿ÍÁË£¬ÎÒÊÇÏ뽫accessÀïÃæµÄ¸½¼þ±£´æ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ