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
Ïà¹ØÎÊ´ð£º
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......
ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......