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("========"

回复此楼

» 猜你喜欢

读书廿年倦写字，如今翻书不识志，若知眷书悔前程，无如渔樵未识时。三年担柴熟山性，三年苦网谙水汹，前程在心自倦舒，识志何用书中清。

1楼 2016-12-27 18:45:42

已阅关注TA 给TA发消息送TA红花 TA的回帖

阳雪儿

新虫 (小有名气)

应助: 0 (幼儿园)
金币: 140.1
帖子: 86
在线: 5.9小时
虫号: 4457969
注册: 2016-03-02
专业: 金属材料的力学行为

不懂

发自小木虫Android客户端

回复此楼

2楼2016-12-27 19:11:50

已阅关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 keke226 的主题更新

返回列表