27-01-14, 01:10 PM
هذا الكود بعد التعديل الاخير
لكنه في حالة أن التاريخ غير موجود لا يقوم بنقل السجل بمعنى ان السجل الذي ليس به تاريخ لا يتم ارسالة الى الملف النصي
\=
لكنه في حالة أن التاريخ غير موجود لا يقوم بنقل السجل بمعنى ان السجل الذي ليس به تاريخ لا يتم ارسالة الى الملف النصي
كود :
Dim TextFile As New System.IO.StreamWriter("C:\MyTestFile.txt")
Dim sSQL As String = String.Empty
sSQL = "SELECT * FROM tblVIPs"
Dim Command As New oleDbCommand(sSQL, Con)
Con.Open()
Dim Reader As OleDbDataReader = Command.ExecuteReader()
If Reader.HasRows = True Then
While Reader.Read()
If Not Reader.IsDBNull(Reader.GetOrdinal("V_DateBirth")) Then
TextFile.WriteLine(Reader.GetString(1) & "@" & Reader.GetDateTime(Reader.GetOrdinal("V_DateBirth")) & "@" & Reader.GetString(3) & "@")
End If
End While
TextFile.Close()
Con.Close()
End If