Database Doctor Adding Items to the Database

Adding Items to the database is a pretty straightforward process. The form will be generated based on the available columns and their settings from the Database Setup section.

You will be able to preview or add your item directly to the database. If you have clumns that are required or need to be unique these will be checked during the final save, and an error message will be generated if necessary.

If you have existing data, you want considering uploading via FTP. The most important part is that the field order matches your column setup, and that each record is contained on a single line. Secondly, the data must use the pipe (|) as the delimiter. Microsoft Access will export to a pipe delimited text file. Excel will not by default, but see the macro below that does the trick.

You will find the data stored in the datafiles directory, in data.txt

Database Doctor Manual
The Database Doctor Manual is designed to help you get the most out of the program. If you would like something discussed here, please post it to the Database Doctor Forum

Example Setups
We have several examples of different types of uses of the Database Doctor Pro. These examples will also show you different ways to configure search links to accomplish anything that might be needed.

Baseball Card Example
Comic Book Example
Directory Example
 

 
Macro for Microsoft Excel to Export Pipe Delimited Data

This was originally posted to our forum by one of our users.

here is the macro for Excel that will export to a pipe delimetd file, called data.txt, stored in C:

------------------------ Macro Below this line -----------------------

Sub ExportDB()

' This macro saves the active worksheet to a pipe-delimited flat file at c:data.txt

Dim SrcRg As Range

Dim CurrRow As Range

Dim CurrCell As Range

Dim CurrTextStr As String

Dim ListSep As String

Dim DataTextStr As String

ListSep = "|"

Set SrcRg = ActiveSheet.UsedRange

Open "C:data.txt" For Output As #1

For Each CurrRow In SrcRg.Rows

CurrTextStr = ""

For Each CurrCell In CurrRow.Cells

CurrTextStr = CurrTextStr & CurrCell.Value & ListSep

Next

While Right(CurrTextStr, 1) = ListSep

CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)

Wend

'Added next line to put | at end of each line

CurrTextStr = CurrTextStr & ListSep

Print #1, CurrTextStr

Next

Close #1

End Sub