MartyConnelly
martyconnelly at shaw.ca
Mon Feb 3 12:23:00 CST 2003
SapDB seems to be a work in progress and most people seem to be running
off Apache
Servers. A generalized install for Windows hasn't been written, You have
to use the older ODBC
method. Only article that I have seen, is in the SAP Insider Journal,
free subscription quarterly.
Two things to keep in mind.
When you install write everything down you change. I installed it.
Three weeks later I came
back and forgot how to start the SAP server. I can get it running but
still can't remember the proper way to do it.
Use the 7.3 ODBC on Windows systems, 7.4 the latest one doesn't work on
windows only unix boxes.
Here is some code to list tables and views.
Sub trycat()
' Set a reference for Microsoft ADO Ext. 2.5 for DDL and security to
use ADOX
Dim cboStr As String, cancel As Integer
Dim objT As Table,
Dim objV As View
Dim strConnect As String
Dim adoxCat As ADOX.Catalog
'Preset a DSN
strConnect = "SERVERDB=testdb;DRIVER={SAP DB 7.3};uid=dev;pwd=dev"
Set adoxCat = New ADOX.Catalog
adoxCat.ActiveConnection = strConnect
cboStr = "Table/View Name;Type;"
For Each objT In adoxCat.Tables
' The following code shows all the properties
' for a table in ADOX. Unfortunately DAO has
' more properties that ADOX does not see.
' Uncomment this code and turn on the immediate
' window to see the properties for tables
' Dim i
If objT.Name = "CARRENTALRATE" Then
Debug.Print objT.Properties.Count & _
" Properties in " & objT.Name & "**" & objT.Type & "**" &
objT.Columns.Count
End If
Debug.Print objT.Properties.Count & _
" Properties in " & objT.Name & "**" & objT.Type
For i = 0 To objT.Properties.Count - 1
Debug.Print " " & objT.Properties(i).Name _
& " .. " & objT.Properties(i).Value
Next i
If Left(objT.Name, 4) = "mSys" Or Left(objT.Name, 1) = "~" Then
GoTo NotATable
End If
' Before adding the table to combo box string make sure that the
' table isn't a view as we will add these later.
If objT.Type <> "VIEW" Then
cboStr = cboStr & objT.Name & ";table;"
End If
Set asoxcat = Nothing
NotATable:
Next objT
' Now loop through the views to add the queries.
For Each objV In adoxCat.Views
cboStr = cboStr & objV.Name & ";View;"
Next objV
cboT_V.RowSource = cboStr
MsgBox cboStr
Set adoxCat = Nothing
End Sub
Gustav Brock wrote:
>Hi Marty
>
>So you have this animal running?
>What are your comments?
>
>I have tried to locate some benchmarks or reviews but have failed.
>
>/gustav
>
>
>
>
>>Subscribe to the sapdb-general mailing list and you get to talk to the
>>actual people at SAP Labs
>>http://listserv.sap.com/mailman/listinfo/sapdb.general
>>
>>
>
>
>
>>The install isn't perfect for Windows. I tried to create a new database
>>from within DB Manager, and kept getting the error with "util_execute
>>init config" - I believe it was because I was trying to create too small
>>a datafile and logfile (1mb default each) - upon reading some posts from
>>the sapdb-general mailing list, it appears that it needs a "reserved"
>>space of about 4 to 20mb for the
>>system tables log files etc
>>The DB manager is written in VB and source code is included for hints
>>The SQL dialect is perhaps closest to Oracle
>>
>>
>
>
>
>>>Did you know that the SAP DB enterprise database engine is open
>>>source? And free to use for anything else than a SAP solution:
>>>
>>>SAP DB can be used free of charge in non-SAP environments. There are
>>>various Support Models offered for SAP DB. If you use SAP DB as a
>>>database system for SAP solutions, a maintenance contract is required.
>>>
>>>Thus, if are looking for a heavy duty ERP engine but don't have the
>>>budget for Oracle/MSSQL/DB2 pay this very neat site (including full
>>>on-line documentation) a visit:
>>>
>>> http://www.sapdb.org/
>>>
>>>You can even order a cd-rom with the complete site and all downloads
>>>free of charge (pick the link CD-ROM).
>>>
>>>
>
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>
>
>