السلام عليكم ورحمة الله بوركاته
اعزائي الأعضاء
حابه انزل لكم مشكلتي وياليت تساعدوني في حلها
آنا أعمل على ربط قاعدة البيانات sql بفجول بيسك 2005 .. وعند كتابة البروسيجر وكتابة الكود
يظهرلي هذا الخطأ مع اني متأكده من صحة الكود وصحة الإتصال
وهذي هي الرسالة : sql connection has been not initialized
هذا تعريف الإتصال على مستوى الفورم :
con.ConnectionString = "Data Source=TOSHIBA-PC\SQLEXPRESS;Initial Catalog=AdventureWorks2008;Integrated Security=True"
Dim con As New SqlClient.SqlConnection
وهذا هو البرسيجر :
@name nvarchar(50),@pnumber nvarchar(25),@safty smallmoney,@recode smallint,@cost money,@price money,@days int,@selldate datetime
AS
insert into prodoction.product
(name,productnumber,SafetyStockLevel,ReorderPoint,StandardCost,ListPrice,DaysToManufacture,SellStartDate
values(@name,@pnumber,@safty,@recode,@cost,@price,@days,@selldate)
return @identity
CREATE PROCEDURE insertproduct
وهذا الكود :
con.Open()
Dim cmd As New SqlClient.SqlCommand
cmd.Connection = con
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "insertproduct"
cmd.Parameters.Add("@name", SqlDbType.NVarChar, 50)
cmd.Parameters.Add("@pnumber", SqlDbType.NVarChar, 25)
cmd.Parameters.Add("@safty", SqlDbType.SmallMoney)
cmd.Parameters.Add("@recode", SqlDbType.SmallInt)
cmd.Parameters.Add("@cost", SqlDbType.Money)
cmd.Parameters.Add("@price", SqlDbType.Money)
cmd.Parameters.Add("@days", SqlDbType.Int)
cmd.Parameters.Add("@selldate", SqlDbType.DateTime)
cmd.Parameters.Add("@return_values", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
TextBox2.Text = cmd.Parameters("@name").Value
TextBox3.Text = cmd.Parameters("@pnumber").Value
TextBox4.Text = cmd.Parameters("@safty").Value
TextBox5.Text = cmd.Parameters("@recode").Value
TextBox6.Text = cmd.Parameters("@cost").Value
TextBox7.Text = cmd.Parameters("@price").Value
TextBox8.Text = cmd.Parameters("@days").Value
TextBox9.Text = cmd.Parameters("@selldate").Value
cmd.ExecuteNonQuery()
TextBox1.Text = cmd.Parameters("@return_values").Value
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Try
مع ان هالمشكله ملاحقتني حتى لو فتحت بروجيكت جديد .. فياليت تبينون لي المشكله
لأنو عندي اختبار اليوم ..
وآسفه عالشرح الطويييييييل جدا جدا جدا
انتظر الحل بفآآآآرغ الصبر
