24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 1059  |  回复: 1

keke226

铁杆木虫 (正式写手)

[求助] 关于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
回复此楼

» 猜你喜欢

读书廿年倦写字,如今翻书不识志,若知眷书悔前程,无如渔樵未识时。三年担柴熟山性,三年苦网谙水汹,前程在心自倦舒,识志何用书中清。
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

阳雪儿

新虫 (小有名气)

2楼2016-12-27 19:11:50
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 keke226 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿华中农业071010,320求调剂 +5 困困困困坤坤 2026-04-14 6/300 2026-04-14 23:54 by Xurambo2014
[考研] 材料工程281还有调剂机会吗 +41 xaw. 2026-04-11 42/2100 2026-04-14 20:05 by honglizhao
[考研] 一志愿中国科学院上海有机所,有机化学356分找调剂 +12 Nadiums 2026-04-09 13/650 2026-04-14 17:54 by lhj2009
[考研] 0854调剂 +11 长弓傲 2026-04-12 14/700 2026-04-14 16:07 by 逆水乘风
[考研] 各位老师好,求调剂,本科211,一志愿天津大学生物与医药学硕,差两名录取。 +11 路六六jjj 2026-04-13 11/550 2026-04-14 16:01 by zs92450
[考研] 调剂 +12 月@163.com 2026-04-11 12/600 2026-04-14 15:37 by zs92450
[考研] 药学求调剂 +6 RussHu 2026-04-12 7/350 2026-04-14 15:16 by sxdj2
[考研] 300分求调剂 (085501机械专硕,本科扬大) +9 xu@841019 2026-04-11 10/500 2026-04-14 08:48 by 木木mumu~
[考研] 332求调剂 +15 蕉蕉123 2026-04-10 15/750 2026-04-13 23:12 by pies112
[考研] 22408 352分求调剂 +5 努力的夏末 2026-04-09 5/250 2026-04-12 19:17 by wj165256
[考研] 291求调剂 +8 关忆北. 2026-04-11 8/400 2026-04-12 09:32 by 逆水乘风
[考研] 299求调剂 +8 ZVVZ13 2026-04-08 8/400 2026-04-12 00:40 by 蓝云思雨
[考研] 药学专硕调剂 +8 ? 一路生?花? 2026-04-10 10/500 2026-04-11 21:21 by zhouxiaoyu
[考研] 调剂求助 +6 果然有我 2026-04-11 7/350 2026-04-11 16:22 by 明月此时有
[考研] 工科273调剂 +6 X1999 2026-04-09 7/350 2026-04-11 10:23 by zhq0425
[考研] 广东省 085601 329分求调剂 +14 Eddieddd 2026-04-10 14/700 2026-04-11 09:58 by bljnqdcc
[考研] 22408 366分,本科211,一志愿西工大 +4 Rubt 2026-04-09 4/200 2026-04-10 19:51 by chemisry
[考研] 机械专368 有去处吗 +4 种大树 2026-04-10 4/200 2026-04-10 15:31 by jiajinhpu
[考研] 070300化学 求调剂 +13 73372112 2026-04-08 13/650 2026-04-09 20:22 by maddjdld
[考研] 求调剂,现在还能填的 +3 上岸小莹加油 2026-04-08 3/150 2026-04-08 14:30 by zhq0425
信息提示
请填处理意见