强烈要求同志们帮帮忙~~~

wy00725006 2003-09-13 01:32:53
Server Error in '/WebApplication7' Application.
--------------------------------------------------------------------------------

The ConnectionString property has not been initialized.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.InvalidOperationException: The ConnectionString property has not been initialized.

Source Error:


Line 208: Dim MyCommand As New System.Data.SqlClient.SqlCommand(DeleteCmd, MyConnection)
Line 209: MyCommand.Parameters.Add("@id", SqlDbType.NVarChar, 50).Value = DataGrid1.DataKeys(e.Item.ItemIndex)
Line 210: MyCommand.Connection.Open()
Line 211: Try
Line 212: MyCommand.ExecuteNonQuery()


Source File: c:\inetpub\wwwroot\WebApplication7\WebForm1.aspx.vb Line: 210

Stack Trace:


[InvalidOperationException: The ConnectionString property has not been initialized.]
System.Data.SqlClient.SqlConnection.Open() +433
WebApplication7.WebForm1.DataGrid1_DeleteCommand(Object source, DataGridCommandEventArgs e) in c:\inetpub\wwwroot\WebApplication7\WebForm1.aspx.vb:210
System.Web.UI.WebControls.DataGrid.OnDeleteCommand(DataGridCommandEventArgs e) +110
System.Web.UI.WebControls.DataGrid.OnBubbleEvent(Object source, EventArgs e) +589
System.Web.UI.Control.RaiseBubbleEvent(Object source, EventArgs args) +26
System.Web.UI.WebControls.DataGridItem.OnBubbleEvent(Object source, EventArgs e) +101
System.Web.UI.Control.RaiseBubbleEvent(Object source, EventArgs args) +26
System.Web.UI.WebControls.Button.OnCommand(CommandEventArgs e) +121
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +116
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +18
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33
System.Web.UI.Page.ProcessRequestMain() +1277




--------------------------------------------------------------------------------
Version Information: Microsoft .NET Framework Version:1.1.4322.573; ASP.NET Version:1.1.4322.573
...全文
35 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
wy00725008 2003-09-14
  • 打赏
  • 举报
回复
同志们我强烈要求红1,2,3,4,5,6方面军帮忙!!
wy00725008 2003-09-14
  • 打赏
  • 举报
回复
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.SqlDataAdapter1.Fill(DS显示权限1)

If Not IsPostBack Then
DataGrid1.DataBind()
End If
End Sub

Private Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
DataGrid1.EditItemIndex = e.Item.ItemIndex
DataGrid1.DataBind()


End Sub

Private Sub DataGrid1_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.CancelCommand
DataGrid1.EditItemIndex = -1
DataGrid1.DataBind()

End Sub

Private Sub DataGrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
Dim key As String = DataGrid1.DataKeys(e.Item.ItemIndex).ToString
Dim id, name, level, dt, pic, address As String
Dim tb As TextBox
'取得第2个字段中的TextBox控件的数据
tb = CType(e.Item.Cells(2).Controls(0), TextBox)
name = tb.Text
'取得第3个字段中的TextBox控件的数据
tb = CType(e.Item.Cells(3).Controls(0), TextBox)
level = tb.Text
'取得第4个字段中的TextBox控件的数据
tb = CType(e.Item.Cells(4).Controls(0), TextBox)
dt = tb.Text
'取得第5个字段中的TextBox控件的数据
tb = CType(e.Item.Cells(5).Controls(0), TextBox)
pic = tb.Text
'取得第6个字段中的TextBox控件的数据
tb = CType(e.Item.Cells(6).Controls(0), TextBox)
address = tb.Text
Dim r As DS显示权限.显示权限Row
r = Me.DS显示权限1.显示权限.FindByid(key)
r.项目名 = name
r.权限 = level
r.描述 = dt
r.图片 = pic
r.网址地址 = address
Me.SqlDataAdapter1.Update(DS显示权限1)
DataGrid1.EditItemIndex = -1
DataGrid1.DataBind()



End Sub

Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand
Dim MyConnection As New SqlConnection("server=wy; database=分级显示;Trusted_Connction=yes;")
Dim DeleteCmd As String = "DELETE FROM 显示权限 WHERE id=@id"
Dim MyCommand As New System.Data.SqlClient.SqlCommand(DeleteCmd, MyConnection)
MyCommand.Parameters.Add("@id", SqlDbType.NVarChar, 50).Value = DataGrid1.DataKeys(e.Item.ItemIndex)
MyCommand.Connection.Open()
Try
MyCommand.ExecuteNonQuery()
Message.Text = "数据记录已经删除"


Catch ex As Exception
Message.Text = "错误:无法删除"


End Try
MyCommand.Connection.Close()
DataGrid1.DataBind()
End Sub
End Class
wy00725006 2003-09-14
  • 打赏
  • 举报
回复
Me.SqlInsertCommand1.CommandText = "INSERT INTO 显示权限(id, 权限, 项目名, 网址地址, 描述, 图片) VALUES (@id, @权限, @项目名, @网址地址, @描述, @" & _
"图片); SELECT id, 权限, 项目名, 网址地址, 描述, 图片 FROM 显示权限 WHERE (id = @id)"
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@权限", System.Data.SqlDbType.Int, 4, "权限"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@项目名", System.Data.SqlDbType.NVarChar, 50, "项目名"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@网址地址", System.Data.SqlDbType.NVarChar, 50, "网址地址"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@描述", System.Data.SqlDbType.NVarChar, 50, "描述"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@图片", System.Data.SqlDbType.NVarChar, 50, "图片"))
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "SELECT id, 权限, 项目名, 网址地址, 描述, 图片 FROM 显示权限"
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
'
'SqlUpdateCommand1
'
Me.SqlUpdateCommand1.CommandText = "UPDATE 显示权限 SET id = @id, 权限 = @权限, 项目名 = @项目名, 网址地址 = @网址地址, 描述 = @描述, 图片 = @图片 " & _
"WHERE (id = @Original_id) AND (图片 = @Original_图片 OR @Original_图片 IS NULL AND 图片 " & _
"IS NULL) AND (描述 = @Original_描述 OR @Original_描述 IS NULL AND 描述 IS NULL) AND (权限 " & _
"= @Original_权限 OR @Original_权限 IS NULL AND 权限 IS NULL) AND (网址地址 = @Original_网址地" & _
"址 OR @Original_网址地址 IS NULL AND 网址地址 IS NULL) AND (项目名 = @Original_项目名 OR @Origi" & _
"nal_项目名 IS NULL AND 项目名 IS NULL); SELECT id, 权限, 项目名, 网址地址, 描述, 图片 FROM 显示权限 WHE" & _
"RE (id = @id)"
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@权限", System.Data.SqlDbType.Int, 4, "权限"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@项目名", System.Data.SqlDbType.NVarChar, 50, "项目名"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@网址地址", System.Data.SqlDbType.NVarChar, 50, "网址地址"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@描述", System.Data.SqlDbType.NVarChar, 50, "描述"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@图片", System.Data.SqlDbType.NVarChar, 50, "图片"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_id", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "id", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_图片", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "图片", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_描述", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "描述", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_权限", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "权限", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_网址地址", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "网址地址", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_项目名", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "项目名", System.Data.DataRowVersion.Original, Nothing))
'
'DS显示权限1
'
Me.DS显示权限1.DataSetName = "DS显示权限"
Me.DS显示权限1.Locale = New System.Globalization.CultureInfo("zh-CN")
CType(Me.DS显示权限1, System.ComponentModel.ISupportInitialize).EndInit()

End Sub
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Protected WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
Protected WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
Protected WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
Protected WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
Protected WithEvents DS显示权限1 As WebApplication7.DS显示权限

'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region
wy00725006 2003-09-14
  • 打赏
  • 举报
回复
#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand
Me.DS显示权限1 = New WebApplication7.DS显示权限
Me.SqlConnection2 = New System.Data.SqlClient.SqlConnection
CType(Me.DS显示权限1, System.ComponentModel.ISupportInitialize).BeginInit()
'
'SqlDataAdapter1
'
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "显示权限", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("id", "id"), New System.Data.Common.DataColumnMapping("权限", "权限"), New System.Data.Common.DataColumnMapping("项目名", "项目名"), New System.Data.Common.DataColumnMapping("网址地址", "网址地址"), New System.Data.Common.DataColumnMapping("描述", "描述"), New System.Data.Common.DataColumnMapping("图片", "图片")})})
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
'
'SqlDeleteCommand1
'
Me.SqlDeleteCommand1.CommandText = "DELETE FROM 显示权限 WHERE (id = @Original_id) AND (图片 = @Original_图片 OR @Original_图片" & _
" IS NULL AND 图片 IS NULL) AND (描述 = @Original_描述 OR @Original_描述 IS NULL AND 描述 I" & _
"S NULL) AND (权限 = @Original_权限 OR @Original_权限 IS NULL AND 权限 IS NULL) AND (网址地址" & _
" = @Original_网址地址 OR @Original_网址地址 IS NULL AND 网址地址 IS NULL) AND (项目名 = @Origin" & _
"al_项目名 OR @Original_项目名 IS NULL AND 项目名 IS NULL)"
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_id", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "id", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_图片", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "图片", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_描述", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "描述", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_权限", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "权限", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_网址地址", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "网址地址", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_项目名", System.Data.SqlDbType.NVarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "项目名", System.Data.DataRowVersion.Original, Nothing))
'
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "workstation id=WY;packet size=4096;integrated security=SSPI;data source=WY;persis" & _
"t security info=False;initial catalog=分级显示"
'
'SqlInsertCommand1
wy00725006 2003-09-14
  • 打赏
  • 举报
回复
我已开始写了一个编辑,更新,删除的按钮列,连接数据库以后好用,我又想写一个删除按钮就不要用了。不知道为什么,我的源代码如下
Imports System
Imports System.Drawing
Imports System.Web.Security
Imports System.Data

Imports System.Data.SqlClient



Public Class WebForm1



Inherits System.Web.UI.Page


Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents UserEmail As System.Web.UI.WebControls.TextBox
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents UserPass As System.Web.UI.WebControls.TextBox
Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
Protected WithEvents PersistentCookie As System.Web.UI.WebControls.CheckBox
Protected WithEvents Message As System.Web.UI.WebControls.Label
Protected WithEvents BindListToSource As System.Web.UI.WebControls.Label
Protected WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection

Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator
pengcheng 2003-09-13
  • 打赏
  • 举报
回复
Study.ing
saucer 2003-09-13
  • 打赏
  • 举报
回复
Try
MyCommand.ExecuteNonQuery()
Message.Text = "数据记录已经删除"
Catch ex As Exception
Message.Text = "错误:" & ex.Message


what error did you get? same error? can you make sure you are using SQL authentication? (run Enterprise Manager, right click on your server to open its Properties page and go to Security tab...), can you try to log into your SQL Server using SQL Query Analyzer with administrator/820314 in SQL authentication mode?

wy00725006 2003-09-13
  • 打赏
  • 举报
回复
红军大哥,帮、帮、忙、吧
wy00725006 2003-09-13
  • 打赏
  • 举报
回复
Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand


Dim MyConnection As New SqlConnection("server=wy;" & "database=分级显示;UID=administrator;PWD=820314")
Dim DeleteCmd As String = "DELETE FROM 显示权限 WHERE id=@id"
Dim MyCommand As New System.Data.SqlClient.SqlCommand(DeleteCmd, MyConnection)
MyCommand.Parameters.Add("@id", SqlDbType.NVarChar, 50).Value = DataGrid1.DataKeys(e.Item.ItemIndex)
MyCommand.Connection.Open()
Try
MyCommand.ExecuteNonQuery()
Message.Text = "数据记录已经删除"


Catch ex As Exception
Message.Text = "错误:无法删除"


End Try
MyCommand.Connection.Close()
DataGrid1.DataBind()
End Sub
wy00725006 2003-09-13
  • 打赏
  • 举报
回复
我在数据库中间了asp.net的用户登陆,我试了,"server=wy; database=分级显示;UID=sa;PWD=;"也是不好用
qimini 2003-09-13
  • 打赏
  • 举报
回复
把Trusted_Connction=yes这句去掉,改用用户名+密码
qimini 2003-09-13
  • 打赏
  • 举报
回复
很少见到楼上的回答两次 地
saucer 2003-09-13
  • 打赏
  • 举报
回复
Dim MyConnection As New System.Data.SqlClient.SqlConnection("server=wy;" & "database=分级显示;Trusted_Connction=yes")

"Trusted_Connction"? "Trusted_Connection"? unless you added ASPNET account to the database or you are using windows authentication/impersonation, don't use Trusted_Connection, turn on the SQL authentication in your database and use a connection string like

"server=wy; database=分级显示;UID=YourSQLLogin;PWD=YourSQLPassword;"

or

"server=wy; database=分级显示;UID=sa;PWD=;"
qimini 2003-09-13
  • 打赏
  • 举报
回复
MyConnecton.ConnectionString=your Connection String
wy00725006 2003-09-13
  • 打赏
  • 举报
回复
Dim MyConnection As New System.Data.SqlClient.SqlConnection("server=wy;" & "database=分级显示;Trusted_Connction=yes")
行不行?
saucer 2003-09-13
  • 打赏
  • 举报
回复
did you have

MyConnection = new SqlConnection("Your Database ConnectionString???");

or the connection string valid? not null?

62,039

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧