كيف أنقل البيانات من ملف نصي إلى قاعدة بيانات ؟

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

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

أخي العزيز :: dodiii78 ::

الطريقة هي أن تقوم بفتح الملف في وضع Input ثم تقوم بقرائته سطرًا بعد سطر ثم تخزن السطر في متغير نصي وبعد ذلك تقوم بفصل المعلومات عن طريق الدالة Split ثم تخزين المعلومات الناتجة في مصفوفة ، ومن ثم تقوم بإدراج المعلومات الموجودة في المصفوفة إلى الجدول على قاعدة البيانات حسب نوع الاتصال الذي لديك ADO أو DAO ...

مثال :

    Dim fn As Long
    fn = FreeFile
    Dim Data() As String
    Dim s As String
    Open "C:\1.txt" For Input As fn

    Do Until EOF(fn)
        Line Input #fn, s
        Data() = Split(s, "|")

        'هنا قم بإدراج المعلومات في قاعدة البيانات

    Loop
    Close fn

وتقبل تحياتي

أخوك / المبرمج أحمد