+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] حول الاتصال بقاغدة البيانات SQL + VBNET 2008 (/showthread.php?tid=12728)
حول الاتصال بقاغدة البيانات SQL + VBNET 2008 - صدق - 12-07-15
الاخوة الكرام السلام عليكم ورحمة الله انا مبتدي في ال 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
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
جزاكم الله كل خر
RE: حول الاتصال بقاغدة البيانات SQL + VBNET 2008 - hminfo - 12-07-15
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
RE: حول الاتصال بقاغدة البيانات SQL + VBNET 2008 - صدق - 12-07-15
(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
بارك الله فيك ولكن المشكل كما هي لم يتغير شي
RE: حول الاتصال بقاغدة البيانات SQL + VBNET 2008 - hminfo - 12-07-15
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
RE: حول الاتصال بقاغدة البيانات SQL + VBNET 2008 - صدق - 13-07-15
(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
RE: حول الاتصال بقاغدة البيانات SQL + VBNET 2008 - hminfo - 13-07-15
استبدل السطر التالي
كود :
Public Shared sqlcon As SqlConnectionكود :
Public Shared sqlcon As new SqlConnectionRE: حول الاتصال بقاغدة البيانات SQL + VBNET 2008 - صدق - 14-07-15
اخي الكريم بارك الله فيك ورحم ولديك لقد كان الخطاء مني لاني لم اتتبع بدقه وكان الخطاء كالتالي . كان يجب ان اختار
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)
وجزاك الله كل خير