vb.netÁ¬AccessÊý¾Ý¿â²¢ÏÔʾÆäÖÐÐÅÏ¢
¾ßÌå¾ÍÊÇ£ºfrom1ÉÏÓиötextbox1ºÍtextbox2£¬Êý¾Ý¿âÊÇXSCJ.mdbÆäÖÐÓõ½µÄ±íµÄÃû³ÆÊÇXSÏÖÔÚÎÒÏëʵÏÖÔÚtextbox1ÖÐÊäÈëѧºÅ£¨±íÖеÄÃû×ÖÊÇXH£©È»ºó°´ÏÂButtonÓÚÊÇtextbox2¾ÍÏÔʾ¸ÃѧºÅѧÉúµÄÐÕÃû£¨XM£©¡£
³õ´Î½Ó´¥Êý¾Ý¿âÇë¸÷λÀÏʦ˵µÄ¾¡Á¿Ïêϸµã£¡
²Ù×÷accessÊý¾Ý¿â
dim cn As String = ""
dim str As String= "select [×Ö¶Î] from XS where ×Ö¶Î=" & TextBox1.Text
Dim i As Integer
Dim conn As New OleDb.OleDbConnection(cn)
Dim comm As New OleDb.OleDbCommand(str, conn)
conn.Open()
Dim rd As OleDb.OleDbDataReader = comm.ExecuteReader
Do While rd.Read()
Loop
rd.Close()
conn.Close()
¿´¿´accessÊý¾Ý¿â²Ù×÷Àà
ÔõôºÃÏñûÓÐÁ´½ÓµÄÓï¾ä°¡
»¹ÊÇÌ«Éî°ÂÁË£¬²»Ã÷°×°¡
Äã¿´ÏÂÊéÉϾÍÐÐÁ˰¡£¬ÊéÉ϶¼ÓÐÕâЩÓï¾äµÄ£¡
dim cn As String = ""
dim str As String= "select [×Ö¶Î] from XS where ×Ö¶Î=" & TextBox1.Text '¶¨Òå²éѯÓï¾ä
Dim i As Integer
Dim co
Ïà¹ØÎÊ´ð£º
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
Éæ¼°µ½Ëã·¨£¬goog ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......
ÔÚMSSQLÖУ¬ÎÒÃÇ¿ÉÒÔÒ»´Î²éѯ¶à¸öÊý¾Ý±í²¢¼ÓÈëµ½Êý¾Ý¼¯ÖУ¬ÖмäÖ»ÐèÓ÷ֺŸô¿ª£®È磺
£¢select * from A;select * from B;select * from C£¢,Ìî³äÊý¾Ý¼¯ºóÔÚDSÖоÍÓÐÁËÈýÕÅ±í£®
µ«ÔÚÓÃͬÑùµÄÓï¾ä·ÃÎÊACCESSÊý¾ ......