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

مساعدة لو سمحتم ارجوووووووووووووكم

بدأه ihbweb في 30 ديسمبر 2008 · 4 رد · 535 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

يا جماعة لو سمحتم ساعدوني انا عندي text file وفي data كتيرة وعايزة اعملها insert في جدول في قاعدة بيانات access

عن طريق broswe text file من file control و click submit

ياريت تساعدوني فيها لو سمحتم بس تكون asp.net مش windows application

وجزاكم الله خيرا

#2

بســم الله الـرحمــن الرحيــم

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

أول شي أخي الحبيب يجب أن ترفع الملف على السيرفر بإستخدام FileUpload

Session("File") = FileUpload1.PostedFile.FileName
		FileUpload1.PostedFile.SaveAs("C:\TEMP\" + FileUpload1.FileName)

ثم قراءة الملف و إدخاله

 Dim sr As New StreamReader(filename, System.Text.Encoding.GetEncoding(1256))

		Dim srline As String = sr.ReadLine()
		While Not srline Is Nothing
			If Not srline Is Nothing Then If srline.Trim <> "" Then InsertRecordToDB(srline)
			srline = sr.ReadLine()
		End While
		sr.Close()

دعائكم

سبحان الله وبحمده سبحان الله العظيم

لا تنسونا من صالح دعائكم ...

وفقكم الله وسدد خطاكم ...

#3

الله الله عليك يا اخ فؤاد انا متشكر جدا علي ردك بس كان ليا استفسار لو سمحت لو عايز اعمل insert في اكتر من field في قاعدة البيانات مش field واحد

يعني بمعني اصح ازاي اقدر اقسم الtext اللي في الtext file بحيث اقدر اعمل insert في اكتر من field

وجزاك الله خيرا ونصركم علي اعدائكم ان شاء الله

#4

بســم الله الـرحمــن الرحيــم

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

جعلكم الله ذخرا لامة الإسلام ورفع بكم راية الحق ....

أخي الحبيب لو إفترضنا أن لدي نص من 60 حرف بسطر واحد وأريد تقسيمهم إلى 6 حقول فإذا سأستخدم

 Private Sub InsertRecordToDB(ByVal textRecord As String)
		Dim Field1 As String = textRecord.Substring(0, 10)
		Dim Field2 As String = textRecord.Substring(10, 10)
		Dim Field3 As String = textRecord.Substring(20, 10)
		Dim Field4 As String = textRecord.Substring(30, 10)
		Dim Field5 As String = textRecord.Substring(40, 10)
		Dim Field6 As String = textRecord.Substring(50, 10)
	End Sub

وهنا تم تقسيم النص وأصبحت الحقول جاهزة لعمل جملة الإدخال على الداتا بيز ..

هل هذا ما تريد أم لديك إستفسار أخر ..

وفقك الله...

سبحان الله وبحمده سبحان الله العظيم

لا تنسونا من صالح دعائكم ...

وفقكم الله وسدد خطاكم ...

#5

لساني يعجز عن الشكر يا اخ فؤاد ربنا يوفقكم وينصركم علي اعدائكم

واتمني من الله انه يوفقك ويساعدك

ولو مش هتقل عليك ممكن تعمل نفس الموضوع ده مع excel file

بحيث كل Feild في ال database يكون في زيه بالظبط coulmn في ال excel file

في رعاية الله

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