[VB.NET] Export information from DBF File

[allenflame]

I'm trying to export information from a DBF file. I can get all the data to export, but I'm trying to filter out some information using if then. When I try this, I either get all the information or non of it, depending on is nothing or is not nothing. I tried using tostring, but thing I get system comobject in my export.

here's the code I'm using.

Imports System.IO
 
Public Class Form1
Dim stufname
Dim stulname
Dim objFSO
Dim strexport
Dim strTest
Dim sturs
Dim cls
Dim strstatus
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
 
'Assign Variables
stuconn = CreateObject("ADODB.Connection")
stuconn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\exports;Extended Properties=DBASE IV;")
objFSO = CreateObject("Scripting.FileSystemObject")
strexport = objFSO.CreateTextFile("c:\Documents and Settings\All Users\desktop\exports\Students.csv")
StuRS = stuconn.Execute("Select * From [students.dbf]")
 
 
stufname = sturs.Fields("FirstName")
stulname = sturs.Fields("LastName")
stuphone = sturs.Fields("Telephone")
strstatus = sturs.Fields("Status")
 
 
strexport.Write("LastName")
strexport.Write(",")
strexport.Write("FirstName")
strexport.Write(",")
strexport.Write("Phone Number")
strexport.Write(",")
strexport.Write("Status")
strexport.Write(vbCrLf)
 
 
 
Do While Not (StuRS.EOF)
'On Error Resume Next
 
If strstatus = "" Then
 
strexport.Write(stulname)
strexport.Write(",")
strexport.Write(stufname)
strexport.Write(",")
'strexport.Write(stuphone)
strexport.Write(",")
'strexport.Write(strstatus)
strexport.Write(vbCrLf)
 
End If
 
 
 
sturs.MoveNext()
 
 
Loop
 
MsgBox("Export Complete")
 
stuconn.close()
strexport.Close()
 
End Sub
 
End Class

Any suggestions. I can email you the dbf if needed.

[Curtis Rutland]

allenflame,
Welcome to Bytes.com!

Please enclose your posted code in [code] tags (See How to Ask a Question).

This makes it easier for our Experts to read and understand it. Failing to do so creates extra work for the moderators, thus wasting resources, otherwise available to answer the members' questions.

Please use [code] tags in future.

Also, please use more descriptive titles. Try to include the language as well as the platform (Web/Desktop/Console). Titles make it easier for experts to find a thread that they can help with.


MODERATOR

[Frinavale]

Are you getting any error messages?

What are the following variable types??

Dim stufname
Dim stulname
Dim objFSO
Dim strexport
Dim strTest
Dim sturs
Dim cls
Dim strstatus
 

[allenflame]

These are fields in the students.dbf file. I tried going in an setting these to strings
Dim stufname - first name
Dim stulname - last name
Dim strstatus - should be blank, a N or an I
dim stuphone - phone number with just numbers

These I used for exporting, found the code online
Dim objFSO
Dim strexport
Dim strTest
Dim sturs

I tried converting strstatus and stuphone to strings, but I get

System.Runtime.InteropServices.COMException was unhandled
ErrorCode=-2147352571
Message="Type mismatch. (Exception from HRESULT: 0x80020005 )

[Frinavale]

You should really consider the Data Types that your variables will use....

Also, consider using a DataAdpater and a DataSet to retrieve the data


EG (this code will most likely Not Work. It's meant to give you and idea of how to use the DataSet and DataAdpater. Give it a try and see what happens)

Imports System.IO
 
Public Class Form1
Dim stufname As String
Dim stulname As String
Dim objFSO
Dim strexport
Dim strTest
Dim sturs
Dim cls
Dim strstatus
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
 
'Assign Variables
Dim stuconn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\exports;Extended Properties=DBASE IV;")
stuconn .Open()
 
Dim daSql As New DataAdapter
Dim dsData As New DataSet 
 
Dim sqlStatement = "select * from material;"
daSQL.SelectCommand = New OleDb.OleDbCommand(sqlStatement , stuconn)
 
daSQL.Fill(dsData, "tblMaterial")
 
Dim tblMaterial As DataTable = daSQL.Tables("tblMaterial")
 
For Each sturs As DataRow in tblMaterial.Rows
 
stufname = sturs.Item("FirstName")
stulname = sturs.Item("LastName")
stuphone = sturs.Item("Telephone")
strstatus = sturs.Item("Status")
 
 
strexport.Write("LastName")
strexport.Write(",")
strexport.Write("FirstName")
strexport.Write(",")
strexport.Write("Phone Number")
strexport.Write(",")
strexport.Write("Status")
strexport.Write(vbCrLf)
 
Next
 
MsgBox("Export Complete")
 
stuconn.close()
strexport.Close()
 
End Sub
 
End Class