ظهرت مشكلة عند تشغيل البرنامج اظن حلها عمل attach للقاعدة لكن لا اعرف كيف
والصورة التالية تظهر الخطأ
السلام عليكم
اخي العزيز ضع نص الاتصال لكل نحل المشكلة؟
غير نص الاتصال الى :
كود :
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;
ظهر خطأ اخى الكريم عند استخدام اى منهم ارجو الحل
السلام عليكم اخي العزيز
انا طلبت منك ان تضع نص الاتصال الذي تستعمله
او ارفق المشروع للتعديل عليه
مافيش مشكلة السورس كود بتاعى كالاتى
إقتباس :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
ولكن كود الاتصال الموجود هو اللى انت قايللى عليه
انا هرفعلك المشروع اهو انتظر ثوانى
السلام عليكم
يا اخي العزيز كيف تضع نص الاتصال بدون علامتي تنصيص!!!!
عدل الكود الى التالي:
كود :
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
فعلت ماقلت لكن الصورة الاتيه توضح النتيجه
