منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - حول الاتصال بقاغدة البيانات SQL + VBNET 2008

الاخوة الكرام السلام عليكم ورحمة الله انا مبتدي في ال 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

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

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

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

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

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

كود :

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)

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

صدق

hminfo

صدق

hminfo

صدق

hminfo

صدق