[صدق]

الاخوة الكرام السلام عليكم ورحمة الله انا مبتدي في ال vb.net احاول ربطه مع قاعدة بيانات SQL server 2005 حسب برنامج تعليمي ولكن واجهتني هذه المشكله

نامل المساعدة في معرفة السبب وتصحيحه او الافادة في عدم الاتصال بقاعدة البيانات

Imports System.Data.SqlClient
Public Class Class1
    Public Shared sqlcon As SqlConnection
End Class
----------------------------------------------------------------
Module Module1
    Public sqfind As New Class1
End Module
---------------------------------------------------------------
Imports System.Data.SqlClient
Public Class Form1 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        Try
            Class1.sqlcon.ConnectionString = "data source=HP\SQLEXPRESS;Initial catalog=POSDB;Integrated security=True"
            MsgBox("تم الاتصال بنجاح", MsgBoxStyle.Exclamation)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

إقتباس :هذه الرسالة التى تظهر في التنبيه : object  reference reference not set to an instance of an object

جزاكم الله كل خر

[hminfo]

Try
            sqfind.sqlcon.ConnectionString = "data source=HP\SQLEXPRESS;Initial catalog=POSDB;Integrated security=True"
            sqfind.sqlcon.open()
            MsgBox("تم الاتصال بنجاح", MsgBoxStyle.Exclamation)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

[صدق]

(12-07-15, 02:57 PM)hminfo كتب : Try
            sqfind.sqlcon.ConnectionString = "data source=HP\SQLEXPRESS;Initial catalog=POSDB;Integrated security=True"
            sqfind.sqlcon.open()
            MsgBox("تم الاتصال بنجاح", MsgBoxStyle.Exclamation)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

بارك الله فيك ولكن المشكل كما هي لم يتغير شي

[hminfo]

Try
sqfind.sqlcon.ConnectionString = "server=.\SQLEXPRESS;Initial catalog=POSDB;Integrated security=True"
sqfind.sqlcon.open()
MsgBox("تم الاتصال بنجاح", MsgBoxStyle.Exclamation)
Catch ex As Exception
MsgBox(ex.Message)
End Try

[صدق]

(12-07-15, 05:58 PM)hminfo كتب : Try
           sqfind.sqlcon.ConnectionString = "server=.\SQLEXPRESS;Initial catalog=POSDB;Integrated security=True"
           sqfind.sqlcon.open()
           MsgBox("تم الاتصال بنجاح", MsgBoxStyle.Exclamation)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

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

https://www.youtube.com/watch?v=l3-iVQYRMrE

[hminfo]

استبدل السطر التالي

كود :

Public Shared sqlcon As SqlConnection

بالسطز

كود :

Public Shared sqlcon As new SqlConnection

اضف كلمة new

[صدق]

اخي الكريم بارك الله فيك ورحم ولديك لقد كان الخطاء مني لاني لم اتتبع بدقه وكان الخطاء كالتالي . كان يجب ان اختار
 Private Sub formLogin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
بدل
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

وجزاك الله كل خير