[ تمت الإجابة ]كيفية استيراد بيانات من ملف Txt

انا اعلم انه تم الرد على الاخ من خلال موقع اخر ولكن للفائدة

والله المستعان

test1.rar

هذا مثال بسيط يبين طريقة استيراد ملف نصي له فواصل (علامة جدولة أو فاصلة منقوطة) إلى جدول جديد في قاعدة البيانات باستخدام مكتبة Dao3.6، وهذا هو الكود المستخدم في المثال:

	Dim dbsTemp As Database
	Dim tdfLoop As TableDef
	Dim tdfLinked As TableDef
	Set dbsTemp = OpenDatabase(App.Path & "\emp")
	'search for the thabe
	For Each tdfLoop In dbsTemp.TableDefs
		If tdfLoop.Name = "emp" Then
			'delete the table
			dbsTemp.Execute "drop table emp"
		End If
	Next
	Set tdfLinked = dbsTemp.CreateTableDef("emp")
	tdfLinked.Connect = "Text;DATABASE=" & App.Path
	tdfLinked.SourceTableName = "emp.txt"
	dbsTemp.TableDefs.Append tdfLinked

المثال : Transfer_Text.zip

مع تحياتي للجميع.

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

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة