کلاسی برای انجام insert,updat در sqlserver

[ricky22]

سلام خواهران و برادران برنامه نویس
کسی می تونه کمکی کنه در رابطه با اینکه کلاسی تابعی چیزی معرفی کنه برای انجان عملهی اصلی تو sqlserver
مثل insert update........
که نخوایم هی اینطوری دستور بنویسیم insert into.........................
یا اگه نیست کمک کنید واسه نوشتنش
ممنون از همه:قلب:

[hadiit]

سلام خواهران و برادران برنامه نویس
کسی می تونه کمکی کنه در رابطه با اینکه کلاسی تابعی چیزی معرفی کنه برای انجان عملهی اصلی تو sqlserver
مثل insert update........
که نخوایم هی اینطوری دستور بنویسیم insert into.........................
یا اگه نیست کمک کنید واسه نوشتنش
ممنون از همه:قلب:
راستی امروز یه تاپیک درباره برنامه مدیریت باشگاه ورزشی داده بودم پاکش کردن مدیرای محترم نمیدونم چرا؟!!!!!1:اشتباه:

براي مورد اول بايد از برنامه نويسي چند لايه استفاده كني كه در اين صورت لازم نيست كه همه دستورات اعم از كانكشن و.... رو چندين بار بنويسي فقط يك بار اين دستورات رو مي نويسي و براي اجراي كوئري فقط كوئري رو به كلاس پاس ميدي



در مورد دومي هم اگه سوالي داشتي توي تاپيك جدا وبا رعايت قوانين سايت مطرح كن

[ricky22]

براي اجراي كوئري فقط كوئري رو به كلاس پاس ميدي

خب این پاس دادن کوئری چه جوریه؟
نمی خوام تو یه متغیر بنویسم
insert into...... ............................
بعد پاس بدم به کلاس اون واسم اجراش کنه
میخوام یه حالت متد باشه insert مثلا:

sql.insert(value1,value2

اینطوری
مفهوم نوشتم؟

[hadiit]

مثال:


Public Sub sqldata(ByVal sqltext As String)
Dim con As New SqlConnection
Dim cmd As SqlCommand
con.ConnectionString = "ConnectionString"
cmd = New SqlCommand(sqltext, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()

End Sub


sqldata("insert into ")

بااين كد ميتوني insert ,update,delete رو اجرا كني

موفق باشي

[davood-ahmadi]

این کلاس رو خودم نوشتم. ببخشید که اگر کمی نامرتبه.
البته زیاد از این کلاس استفاده کردم و خوب هم جواب داده.

[ricky22]

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

[sh2007]

دوستان اگه امكان داره علاوه بر استفاده از كلاس يه مثال عملي هم بزنيد اين تايپيك كامل تر بشه
ممنون

[ricky22]

این کلاس رو خودم نوشتم. ببخشید که اگر کمی نامرتبه.
البته زیاد از این کلاس استفاده کردم و خوب هم جواب داده.
دوست عزیز کلاستو نگاه کردم جالب بود مخصوصا با اون تیکه سازندش که server,user,password روو میگیره.
ولی اگه یه مثال بزنی از همه متدا یه ساتفاذه عملی کنی عالیه.
ممنون

[ebrahimv]

من فكر ميكونم اگه از امكانات خود VB.Net استفاده كنيد بهتره
با استفاده از بايندينگ سورس و تيبل آداپتور

[ricky22]

سلام.
یادش بخیر بیشتر از یک سال پیش این تاپیک را زدم.
الان نسیت به اون موقع معلوماتم بیشتر شده.
بعد ها فهمیدم منظورم از کلاسی برای اعمال Insert .... یک چیزی مثل ORM یا CodeGenerator هست !
موفق باشید (آدم گهگاهی پست های قدیمیشو بخونه خوبه.)

[ali_najari]

دوست عزیز به وبلاگ من سر بزنید! توی قسمت تک کدهاش میتونید کلاس مورد نظر رو پیدا کنید

هم برای کار با Access و هم برای کار با SQL

[ali_najari]

دوستان این کلاسی که براتون واسه دانلود گذاشتم واسه کار با بانک اطلاعاتی SQL هست که کلیه عملیات Insert - Update - Delete - Select - Read رو انجام میده


Imports System.Data
Imports System.Data.SqlClient

Public Class SQLDatabase

Private ObjCon As New SqlConnection
Private ObjCom As New SqlCommand
Private da As New SqlDataAdapter
Public dt As New DataTable

Public Sub doConnect(ByVal Server As String, ByVal Database As String, ByVal Password As String, ByVal Username As String)

Dim cs As String = "Data Source=" & Server & ";Initial Catalog=" & Database & ";User ID=" & Username & "Sa;Password=" & Password
ObjCon.ConnectionString = cs
ObjCon.Open()
End Sub

Public Function doSelect(ByVal Str As String)
dt.Reset()
ObjCom.Connection = ObjCon
ObjCom.CommandText = Str
da.SelectCommand = ObjCom
dt = New DataTable
da.Fill(dt)
Return dt
End Function

Public Sub doCommand(ByVal str As String)
ObjCom.Connection = ObjCon
ObjCom.CommandText = str
ObjCom.ExecuteNonQuery()
End Sub

Public Function Docheck(ByVal str As String) As Boolean
ObjCom.Connection = ObjCon
ObjCom.CommandText = str
Dim dr As SqlDataReader = ObjCom.ExecuteReader
Docheck = dr.Read
ObjCon.Close()
Return Docheck
End Function

Public Sub Disconnect()
ObjCon.Close()
End Sub

End Class

[ali_najari]

دوستان این کلاسی که براتون واسه دانلود گذاشتم واسه کار با بانک اطلاعاتی Access هست که کلیه عملیات Insert - Update - Delete - Select - Read رو انجام میده


Imports System.Data
Imports System.Data.OleDb

Public Class Mydb

Private ObjCon As New OleDbConnection
Private ObjCom As New OleDbCommand
Private da As New OleDbDataAdapter
Public dt As New DataTable

Public Sub doConnect()
Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory| \Database.mdb;Persist Security Info=True"
ObjCon.ConnectionString = cs
ObjCon.Open()
End Sub

Public Function doSelect(ByVal Str As String)
dt.Reset()
ObjCom.Connection = ObjCon
ObjCom.CommandText = Str
da.SelectCommand = ObjCom
dt = New DataTable
da.Fill(dt)
Return dt
End Function

Public Sub doCommand(ByVal str As String)
ObjCom.Connection = ObjCon
ObjCom.CommandText = str
ObjCom.ExecuteNonQuery()
End Sub

Public Function Docheck(ByVal str As String) As Boolean
ObjCom.Connection = ObjCon
ObjCom.CommandText = str
Dim dr As OleDbDataReader = ObjCom.ExecuteReader
Docheck = dr.Read
ObjCon.Close()
Return Docheck
End Function

Public Sub Disconnect()
ObjCon.Close()
End Sub

End Class