[elgokr]

مرحباً اخى viv

تفضل اخى الحبيب هذا كلاس يمكنك استخدامه

اتمنى ان يفيدك وان يسهل عليك الاكو كثيراً

كود :

Imports System.Data.SqlClient
Imports System.IO
Public Class Cls_Con
   Dim sqlcon As New SqlConnection
   Public Sub New()
       sqlcon = New SqlConnection("كود الاتصال")
   End Sub
   Public Sub open_con()
       If sqlcon.State = ConnectionState.Closed Then
           sqlcon.Open()
       End If
   End Sub
   Public Sub close_con()
       If sqlcon.State = ConnectionState.Open Then
           sqlcon.Close()
       End If
   End Sub
   Public Sub execute_txt(ByVal txt_ As String)
       Dim cmd As New SqlCommand
       cmd.CommandType = CommandType.Text
       cmd.Connection = sqlcon
       open_con()
       cmd = New SqlCommand(txt_, sqlcon)
       cmd.ExecuteNonQuery()
       close_con()
   End Sub
   Public Sub execute_store(ByVal name_ As String, ByVal prm() As SqlParameter)
       Dim cmd As New SqlCommand
       cmd.CommandType = CommandType.StoredProcedure
       cmd.Connection = sqlcon
       open_con()
       For i As Integer = 0 To prm.Length - 1
           cmd.Parameters.Add(prm(i))
       Next
       cmd.ExecuteNonQuery()
       close_con()
   End Sub
   Public Function select_txt(txt_ As String) As DataTable
       Dim dt As New DataTable
       dt.Clear()
       Dim adp As New SqlDataAdapter(txt_, sqlcon)
       adp.Fill(dt)
       Return dt
   End Function
   Public Function select_stoe(name_ As String, prm() As SqlParameter) As DataTable
       Dim cmd As New SqlCommand
       cmd.CommandType = CommandType.StoredProcedure
       cmd.Connection = sqlcon
       open_con()
       For i As Integer = 0 To prm.Length - 1
           cmd.Parameters.Add(prm(i))
       Next
       Dim adp As New SqlDataAdapter(cmd)
       Dim dt As New DataTable
       dt.Clear()
       adp.Fill(dt)
       Return dt
       close_con()
   End Function
End Class

لاستخدام الاضافة والتعديل والحذف يمكنك استخدام الكود بهذا الشكل

كود :

con.execute_txt("الكود الاضافة / التعديل / الحذف")

يمكنك استخدام ايضاً Function الخاص بـ execute_store

ولكود الـ Select

كود :

       Dim dt As New DataTable
       dt = con.select_txt("كود الـ Select")

يمكنك استخدام ايضاً Function الخاص بـ select_stoe

اعتقد الامر اصبح ابسط واسهل بكثير مما تتخير عند الاستخدام

ولا يوجد به اى تعقيدات او كتابة اسطر وتحقق وما شبه عند الاستخدام

الكود المطرح لـ Sql

بتعديلات بسيطة يمكنك ان تجعله لـ Access

تحياتى لك

وتمنياتى لك التوفيق