السلام عليكم
من جديد قمت بتشغيل البرنامج من مجلد Debug لاختباره ولكن تظهر هذه الرسالة عند الاتصال بقاعدى بيانات SQL
مع العلم انه يتم الاتصال بقاعدة البيانات بنجاح ودون مشاكل عند العمل على البرنامج من خلال Visual Studio
وتم فحص الاتصال من خلال SQL Managment Studio والدخول الى قاعدى البيانات بدون مشاكل
وهذا كود الاتصال لدي
Dim Sqlconn As New SqlConnection("Data Source=" & My.Settings.server & ";Initial Catalog=" & My.Settings.database & ";User ID=" & My.Settings.user & ";Password=" & My.Settings.pass)
خطا بالكونكشن استرنج
ده افضل
"Data Source=.\SQLEXPRESS;Initial Catalog=school;User ID=school;password=1234567;"
حاول تستعرض من اللود فروم
messagebox.show(My.Settings.pass)
وشوف هيطلع رسالة فاضية ولا ايه
الكونكشن صحيح ولكن انا قمت بحفظ اسم الخادم داخل اعدادات البرنامج في متغير اسمه server ةخكذا ايضا بالنسلة لاسم قاعدة البيانات والمستخدم وكلمة المرور
Server=اسم الخادم
database=اسم القاعدة
user=اسم المستخدم
pass=كلمة المرور
مع بعض بصيرو كونكشن كامل
انا جربت الاتصال بدون استخدام المتغيرات ونجح
بس انا محتاج اغير اعدادات الاتصال واحفضهم
جرب فى اللود فروم بيجيب من الستنج المتغيرات المحفوظة ولا لأ
messagebox.show(My.Settings.pass)
messagebox.show(My.Settings.server )
وهكذا
وايه فكرة ان يجيب الكونشن من الستنج
لما ممكن تكتبه مرة واحدة
جربته في اللود فورم وبيجيب المتغيرات المحفوظة
موافق =
Data Source=" & My.Settings.server & ";Initial Catalog=" & My.Settings.database & ";User ID=" & My.Settings.user & ";Password=" & My.Settings.pass)
البيانات الى ظاهرة فى التكست دى الى بياخد منها فى الكونكشن ؟
كود :
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
If My.Settings.server = "" Then
MsgBox("الرجاء ادخال البيانات التالية")
My.Settings.server = InputBox("اسم السيرفر").Trim()
My.Settings.database = InputBox("اسم قاعدة البيانات").Trim()
My.Settings.user = InputBox("اسم المستخدم").Trim()
My.Settings.pass = InputBox("كلمة المرور")
Sqlconn = New SqlConnection("Data Source=" & My.Settings.server & ";Initial Catalog=" & My.Settings.database & ";User ID=" & My.Settings.user & ";Password=" & My.Settings.pass)
End If
End Sub
جرب تعطل ال SQL server وتشغله من ثاني
او بالنسبة للجملة اللي وضعتها للاتصال شيك على My.Settings.server
شوف ايش مكتوب في ال settings
اظهرنت ناتج الاتصال في مسج اثناء العمل من vb.net واثناء تشغيل البرنامج من debug نفس النص وهو صحيح
واستبدلت Server ب Data Source
PHP كود :
Public Sqlconn As New SqlConnection("Server=" & My.Settings.server.Trim & ";Initial Catalog=" & My.Settings.database.Trim & ";User ID=" & My.Settings.user.Trim & ";Password=" & My.Settings.pass.Trim & ";")
وهو كود صحيح ويتصل اثناء تشغيله في vb.net ولكن عند تشغيله من debug يعطي خطا في الاتصال الصورة الاولى في الموضوع