数据库声明不正确?怎么处理??
我的代码:
private sub page_Load(sender as Object, e as EventArgs)Handles MyBase.Load
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\EmployeesDB."& _
"mdb"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
If me.IsPostBack=False then
Filllst()
end if
End sub
private sub Filllst()
lst.items.clear()
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\EmployeesDB.mdb"
Dim SelectSQL as String
SelectSQL="selcet FirstName,EmpID from EmployeesDB"
Dim Conn as new OleDBConnection (ConnectionString)
Dim cmd as new OleDBCommand(SelectSQL,Conn)
Dim reader as OleDBDataReader
Try
Conn.open()
reader=cmd.ExecuteReader()
Do While reader.Read()
Dim Newitem as new ListItem()
NewItem.text=reader("FirstName")
NewItem.Value=reader("EmpID")
lst.items.Add(NewItem)
Loop
reader.Close()
Catch err as Exception
lab.text="err IS::"
lab.text &=err.message
Finally
If (Not Conn Is Nothing) Then
Conn.Close()
End If
End Try
End sub
private sub page_Load(sender as Object, e as EventArgs)Handles MyBase.Load
'Private ConnectionString as String="Provider=SQLOLEDB.1;" & "Data Source=localhost; Initial Catalog=pubs;Integrated Security=SSPI"
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\EmployeesDB."& _
"mdb"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
If me.IsPostBack=False then
Filllst()
end if
End sub
private sub Filllst()
lst.items.clear()
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\EmployeesDB.mdb"
'Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim SelectSQL as String
SelectSQL="selcet FirstName,EmpID from EmployeesDB"
Dim Conn as new OleDBConnection (ConnectionString)
Dim cmd as new OleDBCommand(SelectSQL,Conn)
Dim reader as OleDBDataReader
Try
Conn.open()
reader=cmd.ExecuteReader()
Do While reader.Read()
Dim Newitem as new ListItem()
NewItem.text=reader("FirstName")
NewItem.Value=reader("EmpID")
lst.items.Add(NewItem)
Loop
reader.Close()
Catch err as Exception
lab.text="err IS::"
lab.text &=err.message
Finally
If (Not Conn Is Nothing) Then
Conn.Close()
End If
End Try
End sub
debug页的err.message是"SQL声明不正确,请使用'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、'UPDATE'"
我前面是不是有什么地方写的不对??
请大家指教!!
谢谢
问题点数：60、回复次数：5Top
1 楼saucer（思归）回复于 2003-08-02 09:52:53 得分 30
SelectSQL="selcet FirstName,EmpID from EmployeesDB"
===>
SelectSQL="SELECT FirstName,EmpID from EmployeesDB"Top
2 楼eattiger（澳洲袋鼠）回复于 2003-08-02 09:54:18 得分 30
对，是有地方不对，请看你的语句吧！
SelectSQL="selcet FirstName,EmpID from EmployeesDB"
select拼写错误！
应为：SelectSQL="select FirstName,EmpID from EmployeesDB"
Top
3 楼eattiger（澳洲袋鼠）回复于 2003-08-02 09:56:34 得分 0
不好意思，我发完之后，刷新页面，才看到saucer(思归, MS .NET MVP) 大侠比我先回了贴！
祝rintak (俺是你汪哥) 能圆满解决问题，如果还有什么疑问，请及时和我联系！
Top
4 楼rintak（FT,又挨骂了）回复于 2003-08-02 10:22:01 得分 0
问题解决,是SELECT,应该大写Top
5 楼wayneliu（暴风骤雨）回复于 2003-08-02 10:28:08 得分 0
大小写都一样，关键是你的拼写有错误！Top
