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
Ïà¹ØÎÊ´ð£º
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......
ÔÚMSSQLÖУ¬ÎÒÃÇ¿ÉÒÔÒ»´Î²éѯ¶à¸öÊý¾Ý±í²¢¼ÓÈëµ½Êý¾Ý¼¯ÖУ¬ÖмäÖ»ÐèÓ÷ֺŸô¿ª£®È磺
£¢select * from A;select * from B;select * from C£¢,Ìî³äÊý¾Ý¼¯ºóÔÚDSÖоÍÓÐÁËÈýÕÅ±í£®
µ«ÔÚÓÃͬÑùµÄÓï¾ä·ÃÎÊACCESSÊý¾ ......