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

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

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

أول شي أخي الحبيب يجب أن ترفع الملف على السيرفر بإستخدام 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()

دعائكم

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

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

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

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

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

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

أخي الحبيب لو إفترضنا أن لدي نص من 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

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

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

وفقك الله...

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

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

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

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

في رعاية الله