24小时热门版块排行榜

返回列表

keke226

铁杆木虫 (正式写手)

应助: 36 (小学生)
金币: 5322.2
散金: 95
红花: 9
帖子: 778
在线: 736.8小时
虫号: 2363805
注册: 2013-03-20
性别: GG
专业: 细胞生物学研究中的新方法

[求助] 关于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("========"

回复此楼