View Full Version : کلاسی برای انجام insert,updat در sqlserver
ricky22
شنبه 28 آذر 1388, 22:11 عصر
سلام خواهران و برادران برنامه نویس
کسی می تونه کمکی کنه در رابطه با اینکه کلاسی تابعی چیزی معرفی کنه برای انجان عملهی اصلی تو sqlserver
مثل insert update........
که نخوایم هی اینطوری دستور بنویسیم insert into.........................
یا اگه نیست کمک کنید واسه نوشتنش
ممنون از همه:قلب:
hadiit
شنبه 28 آذر 1388, 23:08 عصر
سلام خواهران و برادران برنامه نویس
کسی می تونه کمکی کنه در رابطه با اینکه کلاسی تابعی چیزی معرفی کنه برای انجان عملهی اصلی تو sqlserver
مثل insert update........
که نخوایم هی اینطوری دستور بنویسیم insert into.........................
یا اگه نیست کمک کنید واسه نوشتنش
ممنون از همه:قلب:
راستی امروز یه تاپیک درباره برنامه مدیریت باشگاه ورزشی داده بودم پاکش کردن مدیرای محترم نمیدونم چرا؟!!!!!1:اشتباه:
براي مورد اول بايد از برنامه نويسي چند لايه استفاده كني كه در اين صورت لازم نيست كه همه دستورات اعم از كانكشن و.... رو چندين بار بنويسي فقط يك بار اين دستورات رو مي نويسي و براي اجراي كوئري فقط كوئري رو به كلاس پاس ميدي
در مورد دومي هم اگه سوالي داشتي توي تاپيك جدا وبا رعايت قوانين سايت مطرح كن
ricky22
یک شنبه 29 آذر 1388, 12:52 عصر
براي اجراي كوئري فقط كوئري رو به كلاس پاس ميدي
خب این پاس دادن کوئری چه جوریه؟
نمی خوام تو یه متغیر بنویسم
insert into...... ............................
بعد پاس بدم به کلاس اون واسم اجراش کنه
میخوام یه حالت متد باشه insert مثلا:
sql.insert(value1,value2
اینطوری
مفهوم نوشتم؟
hadiit
یک شنبه 29 آذر 1388, 18:02 عصر
مثال:
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
یک شنبه 29 آذر 1388, 23:26 عصر
این کلاس رو خودم نوشتم. ببخشید که اگر کمی نامرتبه.
البته زیاد از این کلاس استفاده کردم و خوب هم جواب داده.
ricky22
دوشنبه 30 آذر 1388, 10:45 صبح
این کلاس رو خودم نوشتم. ببخشید که اگر کمی نامرتبه.
البته زیاد از این کلاس استفاده کردم و خوب هم جواب داده.
سلام دوست عزیز خیلی ممنون
خیلی استفاده بردم با اجازت یه تغییری تو کدهای میدمو up می کنم
sh2007
دوشنبه 30 آذر 1388, 12:13 عصر
دوستان اگه امكان داره علاوه بر استفاده از كلاس يه مثال عملي هم بزنيد اين تايپيك كامل تر بشه
ممنون
ricky22
دوشنبه 30 آذر 1388, 12:57 عصر
این کلاس رو خودم نوشتم. ببخشید که اگر کمی نامرتبه.
البته زیاد از این کلاس استفاده کردم و خوب هم جواب داده.
دوست عزیز کلاستو نگاه کردم جالب بود مخصوصا با اون تیکه سازندش که server,user,password روو میگیره.
ولی اگه یه مثال بزنی از همه متدا یه ساتفاذه عملی کنی عالیه.
ممنون
ebrahimv
سه شنبه 01 دی 1388, 00:58 صبح
من فكر ميكونم اگه از امكانات خود VB.Net استفاده كنيد بهتره
با استفاده از بايندينگ سورس و تيبل آداپتور
ricky22
یک شنبه 19 دی 1389, 17:33 عصر
سلام.
یادش بخیر بیشتر از یک سال پیش این تاپیک را زدم.
الان نسیت به اون موقع معلوماتم بیشتر شده.
بعد ها فهمیدم منظورم از کلاسی برای اعمال Insert .... یک چیزی مثل ORM یا CodeGenerator هست !
موفق باشید (آدم گهگاهی پست های قدیمیشو بخونه خوبه.)
ali_najari
یک شنبه 19 دی 1389, 22:54 عصر
دوست عزیز به وبلاگ من سر بزنید! توی قسمت تک کدهاش میتونید کلاس مورد نظر رو پیدا کنید
هم برای کار با Access و هم برای کار با SQL
ali_najari
یک شنبه 19 دی 1389, 22:56 عصر
دوستان این کلاسی که براتون واسه دانلود گذاشتم واسه کار با بانک اطلاعاتی 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
یک شنبه 19 دی 1389, 22:56 عصر
دوستان این کلاسی که براتون واسه دانلود گذاشتم واسه کار با بانک اطلاعاتی 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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.