استفاده از stored procedures در VB.NET

[nima_8m]

سلام به همگی
میخواستم بدونم چطوری میتونم از stored procedures در vb.net استفاده کنم

اگه نمونه ای هرچند کوچک باشه که خیلی هم عالی میشه

متشکر از همه دوستان

[Hybrid]

سلام ،

تاییک های زیادی واسه همین کار هست ، ولی درک میکنم جستجوی سایت زیاد جالب نیست ، CommandType رو از نوع Stored procedure در نظر بگیر و پارامتر ها رو هم ارسال کن .

myCommand.commandType=commandtype.storedprocedure

** در کد بالا myCommand یک شی از کلاس SQLCommand هست

( ویژوال استودیو نصب ندارم وگرنه یک نمونه واستون مینوشتم)

سوالی بود بپرسین.

موفق باشید

[nima_8m]

سلام
جناب ابراهیمی از راهنماییتون متشکرم واسه شروع خوب بود
به هر حال اگه نمونه ای بود ممنون میشم
فرمودید که :
** در کد بالا myCommand یک شی از کلاس SQLCommand هست

یعنی کلاس sql هم از اول تعریفش متفاوته؟
کلاسهای زیادی برای کار با sql دیدم و کار کردن ولی یه جورایی کامل نبودن من دنبال یه کلاس تمام عیار هستم شما نظزتون چیه؟

[Hybrid]

یعنی کلاس sql هم از اول تعریفش متفاوته؟
کلاسهای زیادی برای کار با sql دیدم و کار کردن ولی یه جورایی کامل نبودن من دنبال یه کلاس تمام عیار هستم شما نظزتون چیه؟

این کلاس مخصوصیت اعمال روی بانک sQL هست همانطور که از اسمش پیداست ، 4 عمل اصلی رو میتونین به وسیله ی این کلاس انجام بدین ، ولی بهتره به جای تعریف 4 شی از این کلاس یک شی از کلاس SQLDataAdapter بسازین که خودتون بهتر از من میدونین کارش چیه .

منظورتون از یک کلاس تمام عیار نگرفتم ، آیا منظورتون همین کلاس SQLDataadapter هست که 4 عمل اصلی داخلش قرار داره؟

[nima_8m]

سلام و ممنون از جوابتون
منظوزم کلاس های ارتباط با sql
SqlDataAdaptor
connection
dataSet
تو پروژه های مختلف متفاوت بود این بود که این سوال رو مطرح کردم
مثلاً این کلاس :

Public Class DataBase

Dim connectionString = "provider=microsoft.jet.oledb.4.0;data source=database.mdb;"

'for insert , update , delete
Public Function DoCommand(ByVal ole As String)
Try
Dim cmd As New OleDbCommand
Dim con As New OleDbConnection
con.ConnectionString = connectionString
cmd.Connection = con
con.Open()
cmd.CommandText = ole
cmd.ExecuteNonQuery()
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function

'for select and search in table
Public Function MySelect(ByVal ole As String) As DataTable
Dim dt As New DataTable
Try
Dim cmd As New OleDbCommand
Dim con As New OleDbConnection
Dim da As New OleDbDataAdapter(cmd)
con.ConnectionString = connectionString
cmd.Connection = con
con.Open()
cmd.CommandText = ole
da.Fill(dt)
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return dt
End Function

End Class

[Hybrid]

آره من واسه خودم کلاس درست کردم که 4 عمل اصلی داخلش هست و در پروژه های مختلف دستکاری کوچکی ازشون میکنم و ازشون راحت استفاده میکنم هم وقتم صرفه جویی میشه و هم زمان تحویل پروژه کمتری میشه حتما اینکارو بکن.

[nima_8m]

سلام
وقت بخیر میشه ازتون بخوام بزارید ببینم حرفه ای ها این کد مهم رو چطوری مینویسن البته اگه امکان داشته باشه اگر نه که از توضیحاتتون سپاسگزارم

[Hybrid]

وقت بخیر میشه ازتون بخوام بزارید ببینم حرفه ای ها این کد مهم رو چطوری مینویسن البته اگه امکان داشته باشه اگر نه که از توضیحاتتون سپاسگزارم

شما لطف دارین ، باور کنید هارد کامپیوترم رو عوض کردم ! :( و همه ی اطلاعتی که داشتم پریده و در فکر Recovery هستم ولی خوشبختانه یک نمونه نوشتم واسه دوستان که نمونه ساده ای هست و از روش ORM استفاده کردم ، میتونین داخل نمونه امضام پیداش کنید سورس یک پروژه عکاسی هست به کلاسش نگاه کنید نکات خوبی رو واستون داره ،

بعد از اینکه کلاس رو مطالعه کردید مطمئنا به شکل بهتری خودتون میتونین تغییرش بدین ولی واسه ایده گرفتن خوبه


سوالی داشتین در خدمتم