改成这样 : 但是不行
'连接到数据库jsdb
Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Dim Dr As OleDbDataReader
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\jsdb2.mdb")
con.Open()
'创建查询班级课表的SQL命令
Dim sql As String
sql = "select course_name,teacher,class,room,JC,week from JSGL "
Dr = cmd.ExecuteReader(sql)
Do While Dr.Read()
出错 :
输入字符串的格式不正确。
说明: 执行当前 Web 请求期间,出现未经处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。
异常详细信息: System.FormatException: 输入字符串的格式不正确。
源错误:
行 34: Dim sql As String
行 35: sql = "select course_name,teacher,class,room,JC,week from JSGL "
行 36: Dr = cmd.ExecuteReader(sql)
行 37: Do While Dr.Read()
行 38: If Dr.Item("week") = "星期一" Then
各位,参考了别人的程序,它访问数据库用的是SQL ,要改成访问Access数据库的话,该怎么改??
Dim sql As String
Dim SqlDB As New SqlConn
Dim Dr As SqlDataReader
sql ="select Kb.id,classname as classid,coursename as courseid,teachername as teacherid,roomname as roomid,weekday,classtime,Kb.memo from Kb,Teacher,Course,Room,Class where roomid=Room.id and Kb.teacherid=Teacher.id and courseid=Course.id and classid=Class.id and classid like '%" & Trim(bjtj.SelectedItem.Value) & "%'"
Dr = SqlDB.ExecuteReader(sql) '课程表的实现
Do While Dr.Read()
改成这样吗? 貌似不对
'连接到数据库jsdb
Dim SqlDB As New OleDbConnection
SqlDB = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\jsdb2.mdb")
SqlDB.Open()
Dim Dr As OleDbDataReader
'创建查询班级课表的SQL命令
Dim sql As String = "select Kb.id,classname as classid,coursename as courseid,teachername as teacherid,roomname as roomid,weekday,classtime,Kb.memo from Kb,Teacher,Course,Room,Class where roomid=Room.id and Kb.teacherid=Teacher.id and courseid=Course.id and classid=Class.id and classid like '%" & Trim(bjtj.SelectedItem.Value) & "%'"
Dr = SqlDB.ExecuteReader(sql) '这里不对吗?
Do While Dr.Read()