[الباشا شكر]

ظهرت مشكلة عند تشغيل البرنامج اظن حلها عمل attach للقاعدة لكن لا اعرف كيف
والصورة التالية تظهر الخطأ

[Sajad]

السلام عليكم

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

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

كود :

Data Source=.\SQLEXPRESS;AttachDbFileName=|DataDirectory|\mydata.ndf;Integrated Security=True;

او

كود :

Data Source=.\SQLEXPRESS;AttachDbFileName=FullPath\mydata.ndf;Integrated Security=True;

[الباشا شكر]

sajad كتب :السلام عليكم

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

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

كود :

Data Source=.\SQLEXPRESS;AttachDbFileName=|DataDirectory|\mydata.ndf;Integrated Security=True;

او

كود :

Data Source=.\SQLEXPRESS;AttachDbFileName=FullPath\mydata.ndf;Integrated Security=True;

ظهر خطأ اخى الكريم عند استخدام اى منهم ارجو الحل

[Sajad]

السلام عليكم اخي العزيز

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

او ارفق المشروع للتعديل عليه

[الباشا شكر]

مافيش مشكلة السورس كود بتاعى كالاتى

إقتباس :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

[الباشا شكر]

وملف الداتا بيز بتاعى موجود فى depug باسم mydat.mdf
ولكن كود الاتصال الموجود هو اللى انت قايللى عليه

[الباشا شكر]

انا هرفعلك المشروع اهو انتظر ثوانى

[الباشا شكر]

يمكنك تحميل الملف من هناhttp://www.gulfup.com/?po4695

[Sajad]

السلام عليكم

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

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

كود :

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

[الباشا شكر]

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

فعلت ماقلت لكن الصورة الاتيه توضح النتيجه