الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تخزين معلومات dataset في ملف txt

بدأه paranoia في 17 يونيو 2011 · 5 رد · 520 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخواني جمعة مباركة ان شاء الله

اريد كود لو أمكن أحتاجه جدا وهو كيفية تخزين المعلومات الموجودة في dataset في ملف txt

مع الاشارة ان الاداة المستعملة هي savefiledialogue لاعطاء الحق للمستعمل لاختبار المسار واسم الملف وكذلك الملف يتم انشاءه في الكود .

اريد الكود سواء في dataset او ب mode connecter مثل هذا الكود مثلا كيف لي ان اسجل المعلومات المستوردة من قاعدة البيانات في ملف txt

con.Open()

cmd1.CommandText = "select * from contacts"

cmd1.Connection = con

dr = cmd1.ExecuteReader()

tabl.Load(dr)

DataGridView1.DataSource = tabl

con.Close()

وشكرا لكم جزيييييييييييلا اخواني

#2

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي


Dim conn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Hisham\Desktop\ConsoleApplication1\MyDB.mdf;Integrated Security=True;User Instance=True")
Dim adpt As New SqlDataAdapter("Select * From Contacts", conn)
Dim ds As New DataSet()
adpt.Fill(ds)
Dim sw As New StreamWriter("Contacts.txt")
Dim line As New StringBuilder()
For Each row As DataRow In ds.Tables(0).Rows
For Each col As DataColumn In ds.Tables(0).Columns
line.AppendFormat("{0}{1}", row(col), vbTab)
Next
sw.WriteLine(line.ToString())
line.Clear()
Next
sw.Close()
 
ConsoleApplication1.zip

      
      
1

      
.:: Wish to become better and better ::.

    

  

    
    

      
#3
        
        

      
أخي شكرا جزيلا لك
جعلها الله في ميزان حسناتك ان شاء الرحمن
تحياتي

      
      

      
    

  

    
    

      
#4
        
        

      
السلام عليكم ورحمه الله وبركاته
لاشكر على واجب اخي .. بالتوفيق ..

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#5
        
        

      
السلام عليكم ورحمة اللـــه 
أعذرني على المداخلة ولكن لدي استفسار حول التشغل على اكثر من جهاز .
Dim conn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Hisham\Desktop\ConsoleApplication1\MyDB.mdf;Integrated Security=True;User Instance=True"
في هذا الكود قمت بعمل الكونكشن , لكن لدي استفسار , في هذا قمت بإستدعاء الداتا بيز من نفس جهازك , كيف يمكن ان اشغل على جميع الاجهزة ..
هل يوجد كود محدد لجعلة يعمل على اكثر من جهاز .

      
      

      
    

  

    
    

      
#6
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي الموضوع ليس له علاقه بالموضوع الاصلي لذا ارجى بوضعه في موضوع مستقل ..

      
      

      
.:: Wish to become better and better ::.

    

  

    
    
    
 مواضيع مشابهة