[kslawy]

أغلق الملف بعد الكتابة فيه

لاحظ الكود قبل إغلاق الاتصال بقاعدة البيانات

كود :

Dim TextFile as new System.Io.StreamWriter("C:\MyTestFile.txt")
Dim sSQL as String= String.Empty
sSQL = "SELECT * FROM MYTABLE"
Dim Command as new oleDbCommand (sSQL, Con)
Con.Open()
Din Reader as OleDbDataReader = Command.ExecuteReader()
if Reader.HasRows = True Then
While Reader.Read()
TextFile.WriteLine(Reader.GetString(0))
End While

TextFile.Close()

Con.close
End If