pouran
یک شنبه 18 فروردین 1387, 20:14 عصر
من هر تایپیکی که ایجاد می کنم در مورد این خطا آقای راد 5 دقیقه بعد می آید و این تایپیک را حذف می کنه نمی دونم مگه مشکلی ما مبتدی ها مشکلمون در این انجمن ارائه بدیم.
دوستا من یه page به نام contact ایجاد کردم و از بانک اطلاعاتی sql 2005 استفاده می کنم.
من کد های مربوط به این را نوشته ام، page داخل Visual Web Developer 2005 ساختم و موقعی اجرا می کنم هیچ مشکلی نداره ولی وقتی اطلاعات وارد کردم و روی دکمه ارسال می زنم این error را می ده. لطفاً در این زمینه من راهنمایی کنید.
این کد :
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.HttpApplicationState
PartialClass _Contact
Inherits System.Web.UI.Page
Dim CommentId AsString
Dim Jc AsNew Pcalendar
Dim objConnection AsNew SqlConnection( _
"Server=localhost;Database=Contact;Integrated Security=True")
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
EndSub
ProtectedSub btnSend_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles btnSend.Click
Dim objMaxId AsNew SqlCommand
objMaxId.Connection = objConnection
objMaxId.CommandText = "Select Max(id) From Contacts"
objConnection.Open()
Dim MaxId AsObject = objMaxId.ExecuteScalar()
If MaxId Is DBNull.Value Then
MaxId = 0
EndIf
objConnection.Close()
Dim objCommand AsNew SqlCommand
objCommand.Connection = objConnection
objCommand.CommandText = "Insert Into Contacts(ID" & _
",commentid,Name,Email,Subject,Notes,Datecomment)" & _
"Values(@ID,@commentid,@Name,@Email,@Subject,@Notes ,@Datecomment)"
objConnection.Open()
objCommand.Parameters.AddWithValue("@id", MaxId + 1)
objCommand.Parameters.AddWithValue("@commentid", CommentId)
objCommand.Parameters.AddWithValue("@name", txtName.Text)
objCommand.Parameters.AddWithValue("@Email", txtEmail.Text)
objCommand.Parameters.AddWithValue("@Subject", txtSubject.Text)
objCommand.Parameters.AddWithValue("@Notes", txtNotes.Text)
objCommand.Parameters.AddWithValue("@Datecomment", Jc.WhatDayToString)
objCommand.ExecuteNonQuery()
objConnection.Close()
Response.Write("<script> alert('مطلب شما با موفقیت ثبت گردید'); </script>")
EndSub
ProtectedSub btnremove_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles btnremove.Click
txtName.Text = ""
txtEmail.Text = ""
txtSubject.Text = ""
txtNotes.Text = ""
EndSub
EndClass
این هم error :
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.Data.SqlClient.SqlException: An error has occurred while establishing a connection to the server. When connecting to SQL Server 2005, this failure may be caused by the fact that under the default settings SQL Server does not allow remote connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server)
Line 15: objMaxId.Connection = objConnection
Line 16: objMaxId.CommandText = "Select Max(id) From Contacts"
Line 17: objConnection.Open()
Line 18: Dim MaxId As Object = objMaxId.ExecuteScalar()
Line 19: If MaxId Is DBNull.Value Then
دوستا من یه page به نام contact ایجاد کردم و از بانک اطلاعاتی sql 2005 استفاده می کنم.
من کد های مربوط به این را نوشته ام، page داخل Visual Web Developer 2005 ساختم و موقعی اجرا می کنم هیچ مشکلی نداره ولی وقتی اطلاعات وارد کردم و روی دکمه ارسال می زنم این error را می ده. لطفاً در این زمینه من راهنمایی کنید.
این کد :
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.HttpApplicationState
PartialClass _Contact
Inherits System.Web.UI.Page
Dim CommentId AsString
Dim Jc AsNew Pcalendar
Dim objConnection AsNew SqlConnection( _
"Server=localhost;Database=Contact;Integrated Security=True")
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
EndSub
ProtectedSub btnSend_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles btnSend.Click
Dim objMaxId AsNew SqlCommand
objMaxId.Connection = objConnection
objMaxId.CommandText = "Select Max(id) From Contacts"
objConnection.Open()
Dim MaxId AsObject = objMaxId.ExecuteScalar()
If MaxId Is DBNull.Value Then
MaxId = 0
EndIf
objConnection.Close()
Dim objCommand AsNew SqlCommand
objCommand.Connection = objConnection
objCommand.CommandText = "Insert Into Contacts(ID" & _
",commentid,Name,Email,Subject,Notes,Datecomment)" & _
"Values(@ID,@commentid,@Name,@Email,@Subject,@Notes ,@Datecomment)"
objConnection.Open()
objCommand.Parameters.AddWithValue("@id", MaxId + 1)
objCommand.Parameters.AddWithValue("@commentid", CommentId)
objCommand.Parameters.AddWithValue("@name", txtName.Text)
objCommand.Parameters.AddWithValue("@Email", txtEmail.Text)
objCommand.Parameters.AddWithValue("@Subject", txtSubject.Text)
objCommand.Parameters.AddWithValue("@Notes", txtNotes.Text)
objCommand.Parameters.AddWithValue("@Datecomment", Jc.WhatDayToString)
objCommand.ExecuteNonQuery()
objConnection.Close()
Response.Write("<script> alert('مطلب شما با موفقیت ثبت گردید'); </script>")
EndSub
ProtectedSub btnremove_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles btnremove.Click
txtName.Text = ""
txtEmail.Text = ""
txtSubject.Text = ""
txtNotes.Text = ""
EndSub
EndClass
این هم error :
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.Data.SqlClient.SqlException: An error has occurred while establishing a connection to the server. When connecting to SQL Server 2005, this failure may be caused by the fact that under the default settings SQL Server does not allow remote connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server)
Line 15: objMaxId.Connection = objConnection
Line 16: objMaxId.CommandText = "Select Max(id) From Contacts"
Line 17: objConnection.Open()
Line 18: Dim MaxId As Object = objMaxId.ExecuteScalar()
Line 19: If MaxId Is DBNull.Value Then