A Dbase IV Module with an Export Function

Category:

Files and Directories

Type:

Snippets

Difficulty:

Beginning

Author:

Ruvenss Garcia Wilches

Version Compatibility: Visual Basic 6

More information:

This module will help you manage Dbase IV Files and connect to the tables using ADO. It also Includes the Export function, so you can export the results into a CSV plain text file.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Public Cn As ADODB.Connection Public rs As ADODB.Recordset Public Chemin As String, Cible As String, laBase As String

Code:

Public Function OpenDBase(Optional ByVal Chemin As String)

Set Cn = New ADODB.Connection

Set rs = New Recordset

Cn.Open _

"Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & _

Chemin & ";"

End Function

Public Function SQLDBFSELECT(ByVal SQLChain As String) As String

ssql = SQLChain

Debug.Print "SQLSELECT:" & ssql

rs.Open ssql, Cn

SQLSELECT = rs.GetString(adClipString, , "|", "", "")

rs.Close

End Function

Public Function SQLDBFGridSelect(ByVal SQLSELECT As String, ByVal MSGRID As MSHFlexGrid)

On Error GoTo SQLGridSelect_Error

ssql = SQLSELECT

Debug.Print "SQLSELECT:" & ssql

rs.Open ssql, Cn

Set MSGRID.DataSource = rs

rs.Close

On Error GoTo 0

Exit Function

SQLGridSelect_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure SQLGridSelect of Module assembler"

End Function

'---------------------------------------------------------------------------------------

' Procedure : SQLGridSelect

' DateTime  : 5/7/2007 10:18

' Author    : Administrator

' Purpose   :

'---------------------------------------------------------------------------------------

Public Function SQLDBFExport(ByVal SQLSELECT As String, ByVal CSVFile As String, Optional ByVal Separetor As String) As Boolean

Dim FSO As New Scripting.FileSystemObject

Dim txtFile As Scripting.TextStream

On Error GoTo SQLGridSelect_Error

ssql = SQLSELECT

Debug.Print "SQL SELECT:" & ssql

rs.Open ssql, Cn

Set txtFile = FSO.CreateTextFile(CSVFile & ".csv", True)

txtFile.Write (rs.GetString(adClipString, , Separetor, vbCrLf, ""))

rs.Close

SQLDBFExport = True

On Error GoTo 0

Exit Function

SQLGridSelect_Error:

SQLExport = False

MsgBox "Error SQL EXPORT " & Err.Number & " (" & Err.Description & ")SQLGridExport:" & ssql

End

End Function