کلاس برای sql

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

سلام...
کجاش رو مشکل دارین حالا؟؟؟؟
دستوارت خاص رو که هر بار باید عوض بشن رو به صورت پارامتر برای توابعتون در نظر بگیرید و کد های کامند و سلکت و .... رو داخل توابع کلاس استفاده کنین.....
هرجایی مشکلی بود بگید تا من یا سایر دوستان راهنمایی کنیم....

سلام.
از linq استفاده کن. مشابه چیزی رو که میخوای برات محیا میکنه.

نقل قول:

---

از linq استفاده کن. مشابه چیزی رو که میخوای برات محیا میکنه.

---

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

مثلا من همینطوری یه سری توابع و ساب رو تهیه کردم که خیلی مبتدیانه هست.حالا بیایم این ها رو گسترش بدیم و تکمیل کنیم.

کد:

---

Imports System.Data.SqlClientModule SQLDB    Private con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DBname.mdf;Integrated Security=True;User Instance=True")    Private da As New SqlDataAdapter("", con)    Public Sub LoadID(ByVal TableName As String, ByVal FieldName As String, ByVal ControlText As System.Windows.Forms.Control)        Dim SQL As String = "SELECT max(" & FieldName & ") FROM " & TableName        Dim i As Integer        Try            Dim dbCom = New System.Data.SqlClient.SqlCommand(SQL, con)            Try                con.Open()                i = Val(Convert.ToString(dbCom.ExecuteScalar())) + 1                ControlText.Text = i            Finally                dbCom.Dispose()            End Try        Finally            con.Close()        End Try    End Sub    Public Sub LoadComboB(ByVal TableName As String, FieldName As String, ComboBox As ComboBox)        Dim ds As New DataSet()        ds.Clear()        da.SelectCommand.CommandText = "select * from " & TableName        da.Fill(ds, "a")        ComboBox.DataSource = ds        ComboBox.DisplayMember = "a." & FieldName    End Sub    Public Sub AddRecord(ByVal TableName As String, ByVal FieldName As String, ByVal FieldValue As String)        Dim C As String        C = "insert into " & TableName & "(" & FieldName & ") values ('" & FieldValue & "' )"        Dim cmd As New SqlCommand(C, con)        con.Open()        cmd.ExecuteNonQuery()        con.Close()    End Sub    Public Sub LoadDGV(ByVal TableName As String, ByVal ColumnName As String, ByVal OrderBy As String, DataGridView As DataGridView)        Dim ds As New DataSet()        ds.Clear()        da.SelectCommand.CommandText = "select " & ColumnName & " from " & TableName & " order by " & OrderBy        da.Fill(ds, "t1")        DataGridView.DataSource = ds        DataGridView.DataMember = "t1"    End Sub    Public Sub EditRecord(ByVal TableName As String, ByVal SetFieldName As String, ByVal ControlText1 As System.Windows.Forms.Control, ByVal WhereField As String, ByVal ControlText2 As System.Windows.Forms.Control)        Dim p As String        p = "update " & TableName & " set " & SetFieldName & "='" + ControlText1.Text + "' where " & WhereField & "='" + ControlText2.Text + "'"        Dim cmd As New SqlCommand(p, con)        con.Open()        cmd.ExecuteNonQuery()        con.Close()    End Sub    Public Sub DeleteAll(ByVal TableName As String)        'const string SQL = "DELETE FROM [tablename];"        Dim SQL As String = "TRUNCATE TABLE " & TableName        Try            Dim dbCom = New System.Data.SqlClient.SqlCommand(SQL, con)            Try                con.Open()                dbCom.ExecuteNonQuery()            Finally                dbCom.Dispose()            End Try        Finally            con.Close()        End Try    End Sub    Public Sub DeleteRecord(ByVal TableName As String, ByVal WhereField As String, ByVal ControlText As System.Windows.Forms.Control)        Dim scm As New SqlCommand()        scm.Connection = con        scm.CommandText = "DELETE FROM " & TableName & " WHERE " & WhereField & "=@p1"        scm.Parameters.Clear()        scm.Parameters.AddWithValue("@p1", ControlText.Text)        con.Open()        scm.ExecuteNonQuery()        con.Close()    End Sub    Public Sub SearchInDGV(ByVal TableName As String, ByVal ColumnName As String, ByVal WhereField As String, ByVal ControlTextSearch As System.Windows.Forms.Control, DataGridview As DataGridView)        Dim ds As New DataSet()        Dim l As String        ds.Clear()        l = "select " & ColumnName & " from " & TableName & " where " & WhereField & "='" + ControlTextSearch.Text + "'  "        da.SelectCommand.CommandText = l        da.Fill(ds, "t1")        DataGridview.DataSource = ds        DataGridview.DataMember = "t1"    End Sub    Public Sub SearchLikeInDGV(ByVal TableName As String, ByVal ColumnName As String, ByVal WhereField As String, ByVal ControlTextSearch As System.Windows.Forms.Control, DataGridview As DataGridView)        Dim ds As New DataSet()        Dim l As String        ds.Clear()        l = "select " & ColumnName & " from " & TableName & " where " & WhereField & " like '" + ControlTextSearch.Text + "'  "        da.SelectCommand.CommandText = l        da.Fill(ds, "t1")        DataGridview.DataSource = ds        DataGridview.DataMember = "t1"    End Sub    Public Sub GetValueText(ByVal TableName As String, ByVal GetField As String, ByVal WhereField As String, ByVal ControlSetText As System.Windows.Forms.Control, ByVal ControlGetSearchText As System.Windows.Forms.Control, ByVal IsString As Boolean)        Dim SQL As String = "SELECT " & GetField & " FROM " & TableName & " WHERE " & WhereField & "=@fieldcode"        Try            Dim dbCom = New System.Data.SqlClient.SqlCommand(SQL, con)            Try                dbCom.Parameters.AddWithValue("@fieldcode", ControlGetSearchText.Text)                con.Open()                If IsString = True Then                    ControlSetText.Text = Convert.ToString(dbCom.ExecuteScalar())                ElseIf IsString = False Then                    ControlSetText.Text = Convert.ToInt16(dbCom.ExecuteScalar())                End If            Finally                dbCom.Dispose()            End Try        Finally            con.Close()        End Try    End SubEnd Module

---

از دوستانی هم که linq رو بلد هستند. درخواست میکنم که یه تاپیک راجبش بزنن و آموزش بدن برای اون هایی که مثل من هیچ آشنایی باهاش ندارن. تا ما هم یاد بگیریم.

ویژوال بیسیک کد می‌زنین؟
اتفاقا فکر خوبیه..... ببینم میتونیم با دوستان یه مرجع خوب برای لینک درست کنیم یا نه....
البته شما می‌تونی کتاب علی اقدم در این خصوص رو بخونی....

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