[ÇóÖú] ¹ØÓÚVisual studioÔËÐÐVB½Å±¾ÖУ¬²éѯACCESSÊý¾Ý¿âËùÓõÄSQLÓïÑÔÖÐÒýÈë±äÁ¿µÄÎÊÌâ

×î½üдһ¸ö³ÌÐò£¬ÔËÐл·¾³VS2010£¬ÓÃVB±à³Ì£¬Á¬½ÓACCESS2010Êý¾Ý¿âÏëʵÏÖÈçϹ¦ÄÜ£º ÔÚWebÍøÒ³ÖÐÉú³ÉÒ»¸öDownDropList£¬Ò»¸öButtonºÍÒ»¸öListBox£¬Ïëͨ¹ýDownDropListÀïÃæÑ¡Ôñ²»Í¬µÄItem£¬È»ºóµã»÷ButtonÀ´ÊµÏÖ¶ÔACCESSÊý¾Ý¿âµÄ²éѯ¹¦ÄÜ£¬µ«ÊÇ·¢ÏÖÔÚÔËÐгÌÐòʱ£¬×ÜÊÇÌáʾmycmd.ExecuteReader()ȱÉÙÖµ£¬Ó¦¸ÃÊÇSELECTÓï¾äÀïµÄ±äÁ¿³öÁËÎÊÌ⣨ÏÂÃæ´úÂëÖеĴÖÌå¾ä£©£¬ÇëÎÊÈçºÎÕâ¸öSOLÓï¾äÖÐÒýÈë±äÁ¿£¿£¿£¿     Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click         If DropDownList1.SelectedItem.Text = "ËùÓбÈÈü" Then             Dim mystr As String, mysql As String             Dim myconn As New OleDbConnection()             Dim mycmd As New OleDbCommand()             mystr = "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data source = " & Server.MapPath("~\\App_data\\game.accdb"             myconn.ConnectionString = mystr             myconn.Open()             mysql = "SELECT ±ÈÈüÈÕÆÚ,Ö÷¶Ó,¿Í¶Ó,С×é FROM Game"             mycmd.CommandText = mysql             mycmd.Connection = myconn             Dim myreader As OleDbDataReader = mycmd.ExecuteReader()             ListBox1.Items.Add("±ÈÈüÈÕÆÚ Ö÷¶Ó ¿Í¶Ó С×é"             ListBox1.Items.Add("========"             While myreader.Read()                 ListBox1.Items.Add(String.Format("{0} {1} {2} {3}", myreader(0).ToString(), myreader(1).ToString, myreader(2).ToString, myreader(3).ToString))             End While             myconn.Close()             myreader.Close()         Else             Dim mystr As String, mysql As String, str As String             Dim myconn As New OleDbConnection()             Dim mycmd As New OleDbCommand()             mystr = "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data source = " & Server.MapPath("~\\App_data\\game.accdb"             myconn.ConnectionString = mystr             str = DropDownList1.SelectedItem.Text             myconn.Open()             mysql = "SELECT ±ÈÈüÈÕÆÚ,Ö÷¶Ó,¿Í¶Ó,С×é FROM Game where Ö÷¶Ó or ¿Í¶Ó=" + DropDownList1.SelectedItem.Text.ToString             mycmd.CommandText = mysql             mycmd.Connection = myconn             Dim myreader As OleDbDataReader = mycmd.ExecuteReader()             ListBox1.Items.Add("±ÈÈüÈÕÆÚ Ö÷¶Ó ¿Í¶Ó С×é"             ListBox1.Items.Add("========"             While myreader.Read()                 ListBox1.Items.Add(String.Format("{0} {1} {2} {3}", myreader(0).ToString(), myreader(1).ToString, myreader(2).ToString, myreader(3).ToString))             End While             myconn.Close()             myreader.Close()         End If     End Sub

»Ø¸´´ËÂ¥