تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
module in vb6 and vb.net 2012
#1
عندي مشكله في vb.net 2012 تتمثل في الاعلان عن puplic sub  في موديول حيث اني اريد ان اقوم بعمل pulic sub connection  يقوم بفتح الاتصال بقاعدة البيانات سيكول او اكسيس وانادي عليه من اي مكان في اي فورم  فافتح الاتصال وافعل ما اريد بقاعده البيانات ثم اغلق الاتصال

في vb6  كان الموضوع سهل
اما في .net  الموضوع صعب علي لاني ما اعرف اضع الكود sub connection  في الكلاس العام ولا خارج الكلاس العام  ، وكمان انا مش عارف اين اضع imports system.data.csqlclient  بره الكلاس ولا داخل الكلاس؟


افيدونا افادكم الله بالنسبه لموضوع الاماكن الخاصه بالاعلان
الرد }}}
تم الشكر بواسطة:
#2
شكل الموديول يكون غالبا بهذا الشكل و اضافة مرجع لاي كلاس يكون فوق اسم الكلاس أو الموديول

PHP كود :
Imports System.Data.SqlClient

Module ConnectionModule
    Friend 
Function GetData(connectionString As String) As SqlConnection
        Return 
New SqlConnection(connectionString)
 
   End Function

End Module 

ولاستدعاء الدالة من الموديول
PHP كود :
       ' الحصول علي البيانات من الموديول
        Using conn As SqlConnection = ConnectionModule.GetData("Your Connection String")

        End Using 


هناك طريقة اخري و يمكنك بها الاستغناء عن الموديول وهي انك تبني كلاس بهذا الشكل و تجعل كل الدوال Functions او الروتينات Sub الموجودة به من النوع Shared


PHP كود :
Imports System.Data.SqlClient

Friend NotInheritable 
Class ConnectionManager
    Friend Shared 
Function GetData(connectionString As String) As SqlConnection
        Return 
New SqlConnection(connectionString)
 
   End Function

End Class 
ولإستدعاء الدالة من الكلاس

PHP كود :
       ' الحصول علي البيانات من الكلاس
        Using conn As SqlConnection = ConnectionManager.GetData("Your Connection String")

        End Using 

وفي كلتا الحالات ستجد انه و لإضافة مرجع لأي كلاس أخر يجب ان تتم اضافته في اعلي الكلاس أو قبل بداية الكلاس او الموديول
الرد }}}
تم الشكر بواسطة:
#3
شكرا silverlight على سرعة الرد
ولكن في استفسار تاني بعد اذنك
بالنسبه لموضوع friend ممكن نبذه سريعه مختصره ايه الموضوع ده؟
شكرا تاني

هذا الكود بعد التعديل واضافة موديول يجمع كل المتغيرات ... هل هذه الطريقه صحيحه ام تنصحني باضافة شئ او تعديل شئ او تغيير الطريقه بالكامل
المشروع مجرد تجربه للفرق بين
OLEDB & SQLClient
للاتصال بسيرفبر SQL
كود :
'general declare in module1.vb
Imports System.Data.OleDb
Imports System.Data.SqlClient

Module Module1
   'declare all variables in form1
   Public DAT As New DataTable
   Public CoNn As New OleDbConnection("connection string;")
   Public CMd As New OleDbCommand
   Public SQLStr As String = "select * from table"
   Public DA As New OleDbDataAdapter(SQLStr, CoNn)


   'declare all cariables in form2
      Public SQlselecT As String = "select * from table"
public SQLCON As New SqlConnection("connection string;")
   Public SQLDA As New SqlDataAdapter(SQlselecT, SQLCON)
   Public SQLDS As New DataSet
   Public dt As New DataTable

End Module
وفي الفورم 1 في الحدث load ندخل الاتي:-
كود :
CoNn.Open()
       DA.Fill(DAT)
       DataGridView1.DataSource = DAT
       DA.Dispose()
       CoNn.Close()
وفي الفورم 2 في الحدث Load نخل النص البرمجي الاتي:-
كود :
SQLCON.Open()
       SQLDA.Fill(dt)
       DataGridView1.DataSource = dt
       SQLDA.Dispose()
       SQLCON.Close()
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عمليات الاضافة والتعديل على قاعدة بيانات sql server 2012 kewely 4 2,007 08-11-23, 01:07 AM
آخر رد: الحزين اليماني
  فيجوال بيسك 2012 manhoud 0 263 25-10-23, 11:00 PM
آخر رد: manhoud
  [سؤال] حول ظهور النافذة الاولى عند الضغط على Menustrip2 في النافذة الثانية vb.net 2012 mh66 0 242 19-10-23, 09:05 AM
آخر رد: mh66
  Crystal Reports for Visual Studio 2012 عبدالكريم برشدان 14 1,763 25-12-22, 04:42 PM
آخر رد: عبدالكريم برشدان
  [سؤال] مشكلة مع Module alims 3 812 28-06-22, 04:52 PM
آخر رد: معاند الحظ
  [VB.NET] مشكلة توقف التقارير بعد النتقال لفجول 2012 ahmedramzyaish 0 764 17-04-22, 08:12 AM
آخر رد: ahmedramzyaish
  [سؤال] سبب عدم تثبيت إضافات nuget على Visual Studio express 2012 Necro PC 2 1,199 05-02-22, 04:46 PM
آخر رد: Necro PC
  [VB.NET] تعريب فيجول بيسك 2012 EMADSS 2 1,400 26-01-22, 09:53 PM
آخر رد: ابو روضة
  ?how to add ColumnClickEventArgs in module for list view الماجيك مسعد 2 1,752 27-02-21, 03:22 AM
آخر رد: الماجيك مسعد
  اضافة ملف pdf الى قاعدة بيانات sql server 2012 moh developer 5 1,903 25-09-20, 03:01 PM
آخر رد: moh developer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم