تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ظهرت مشكلة عند تشغيل البرنامج اظن حلها عمل attach للقاعدة لكن لا اعرف كيف
#1
ظهرت مشكلة عند تشغيل البرنامج اظن حلها عمل attach للقاعدة لكن لا اعرف كيف
والصورة التالية تظهر الخطأ
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

اخي العزيز ضع نص الاتصال لكل نحل المشكلة؟

غير نص الاتصال الى :

كود :
Data Source=.\SQLEXPRESS;AttachDbFileName=|DataDirectory|\mydata.ndf;Integrated Security=True;

او

كود :
Data Source=.\SQLEXPRESS;AttachDbFileName=FullPath\mydata.ndf;Integrated Security=True;
الرد }}}}
تم الشكر بواسطة:
#3
sajad كتب :السلام عليكم

اخي العزيز ضع نص الاتصال لكل نحل المشكلة؟

غير نص الاتصال الى :

كود :
Data Source=.\SQLEXPRESS;AttachDbFileName=|DataDirectory|\mydata.ndf;Integrated Security=True;

او

كود :
Data Source=.\SQLEXPRESS;AttachDbFileName=FullPath\mydata.ndf;Integrated Security=True;

ظهر خطأ اخى الكريم عند استخدام اى منهم ارجو الحل
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم اخي العزيز

انا طلبت منك ان تضع نص الاتصال الذي تستعمله

او ارفق المشروع للتعديل عليه
الرد }}}}
تم الشكر بواسطة:
#5
مافيش مشكلة السورس كود بتاعى كالاتى
إقتباس :Imports System.Data
Imports System.Data.SqlClient
Public Class f2
Dim con As String =Data Source=.\SQLEXPRESS;AttachDbFileName=|DataDirectory|\mydata.ndf;Integrated Security=True;

Dim SQLStr As String = "SELECT * FROM Tabel1"
Dim Conn As New SqlConnection(con)
Dim DataSet1 As New DataSet


Private Sub f2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Conn.Open()
Dim DataAdapter1 As New SqlDataAdapter(SQLStr, Conn)
DataAdapter1.Fill(DataSet1, "Tabel")
Conn.Close()
Label1.DataBindings.Add("Text", DataSet1, "tabel1.ID")
TextBox1.DataBindings.Add("Text", DataSet1, "tabel1.Name")
TextBox2.DataBindings.Add("Text", DataSet1, "tabel1.money")
DateTimePicker1.DataBindings.Add("text", DataSet1, "tabel1.date")
Catch ex As Exception
MsgBox(ex.Message)


End Try
End Sub
الرد }}}}
تم الشكر بواسطة:
#6
وملف الداتا بيز بتاعى موجود فى depug باسم mydat.mdf
ولكن كود الاتصال الموجود هو اللى انت قايللى عليه
الرد }}}}
تم الشكر بواسطة:
#7
انا هرفعلك المشروع اهو انتظر ثوانى
الرد }}}}
تم الشكر بواسطة:
#8
يمكنك تحميل الملف من هناhttp://www.gulfup.com/?po4695
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم

يا اخي العزيز كيف تضع نص الاتصال بدون علامتي تنصيص!!!!

عدل الكود الى التالي:

كود :
Imports System.Data
Imports System.Data.SqlClient
Public Class f2
Dim con As String ="Data Source=.\SQLEXPRESS;AttachDbFileName=|DataDirectory|\mydata.ndf;Integrated Security=True;"

Dim SQLStr As String = "SELECT * FROM Tabel1"
Dim Conn As New SqlConnection(con)
Dim DataSet1 As New DataSet


Private Sub f2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Conn.Open()
Dim DataAdapter1 As New SqlDataAdapter(SQLStr, Conn)
DataAdapter1.Fill(DataSet1, "Tabel")
Conn.Close()
Label1.DataBindings.Add("Text", DataSet1, "tabel1.ID")
TextBox1.DataBindings.Add("Text", DataSet1, "tabel1.Name")
TextBox2.DataBindings.Add("Text", DataSet1, "tabel1.money")
DateTimePicker1.DataBindings.Add("text", DataSet1, "tabel1.date")
Catch ex As Exception
MsgBox(ex.Message)


End Try
End Sub
الرد }}}}
تم الشكر بواسطة:
#10
sajad كتب :السلام عليكم

يا اخي العزيز كيف تضع نص الاتصال بدون علامتي تنصيص!!!!

عدل الكود الى التالي:

كود :
Imports System.Data
Imports System.Data.SqlClient
Public Class f2
Dim con As String =Data Source=".\SQLEXPRESS;AttachDbFileName=|DataDirector y|\mydata.ndf;Integrated Security=True;"

Dim SQLStr As String = "SELECT * FROM Tabel1"
Dim Conn As New SqlConnection(con)
Dim DataSet1 As New DataSet


Private Sub f2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Conn.Open()
Dim DataAdapter1 As New SqlDataAdapter(SQLStr, Conn)
DataAdapter1.Fill(DataSet1, "Tabel")
Conn.Close()
Label1.DataBindings.Add("Text", DataSet1, "tabel1.ID")
TextBox1.DataBindings.Add("Text", DataSet1, "tabel1.Name")
TextBox2.DataBindings.Add("Text", DataSet1, "tabel1.money")
DateTimePicker1.DataBindings.Add("text", DataSet1, "tabel1.date")
Catch ex As Exception
MsgBox(ex.Message)


End Try
End Sub

فعلت ماقلت لكن الصورة الاتيه توضح النتيجه
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ربط البرنامج بعدة اجهزة abid 11 5,708 19-08-17, 12:39 PM
آخر رد: osama.okn
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 103 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  مشكلة في كود البحث Search khaled12345 5 213 16-07-17, 08:22 PM
آخر رد: سعود
  مشكلة في الاتصال مع ملفات ال SQL الخارجية .mdf khaled12345 13 420 16-07-17, 06:21 AM
آخر رد: ahmed6610
Question [سؤال] كيف يتم تشغيل قاعدة بيانات SQL SERVER دون تنصيب MS SQL SERVER alimoi79 1 161 16-07-17, 02:56 AM
آخر رد: ابو ليلى
  مشكلة في كود الحذف Delete khaled12345 5 171 15-07-17, 10:58 PM
آخر رد: أبوبكر سويدان
  [سؤال] مشكلة في كود الاضافة والتعديل في المشروع khaled12345 11 356 15-07-17, 02:17 AM
آخر رد: سعود
  مشكلة في عمل ال Navigation khaled12345 8 238 27-06-17, 01:25 PM
آخر رد: سعود
  [VB.NET] مشكلة في كود التعديل والحذف boofa2015 1 327 27-06-17, 12:03 AM
آخر رد: سعود
  [VB.NET] تظهر رسالة توقف البرنامج dr_amr82 3 157 14-06-17, 03:12 AM
آخر رد: boudyonline

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


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