TaminoX

, ,
1

My problem is the setting the Tamino DB url.
" TaminoX1.csDatabaseURL = “http://localhost/tamino/InsiteADABAS/Books” "
This line of code works well when posting to my local Tamino DB. When I use the ping fuction it responses with is alive
The problem arises when posting to a remote Tamino DB. " TaminoX1.csDatabaseURL = “http://server_name/tamino/InsiteADABAS/Books” "

Ping function response with nothing.
There’s no connection to the remote server.

2

Hate to say this but it works for me in my environment. Which version of TaminoX is it? Select the file in Explorer and right click for Properties->Version.

3

The version of Tamino that I’m using is Tamino 2.3.1.1, VB 6 and apache 1.3
what are the configurations for the apache
Please mail ur email address to me @
Jeryalene.govender1@za.didata.com
Thank u kindly


I’ve pasted my prg below

Option Explicit

'Dim doc As DOMDocument
Dim doc As IXMLDOMDocument

Dim inoResponse As Object ‘used in 2 procedures
Dim flag As Boolean
Dim checkFlag As Boolean
Dim xmlString As String

Private Sub Command1_Click()
flag = True
TaminoConnection ’ method
xmlString = Text1.Text
InsertDoc (xmlString) ’ function
End Sub

Private Sub TaminoConnection()
Dim initialiseResult As Long
Dim initPing As IXMLDOMElement
initialiseResult = TaminoX1.Initialize
’ http://jgovender/tamino/InsiteMessages
If initialiseResult = 1 Then
TaminoX1.csDatabaseURL = “http://localhost/tamino/InsiteMessages/Books”
'TaminoX1.csDatabaseURL = “http://jgovender/tamino/InsiteMessages/Books”
'TaminoX1.csDatabaseURL = “http://10.31.14.74/tamino/insiteADABAS/Books”
'TaminoX1.csDatabaseURL = “http://asam/tamino/insiteADABAS/Books”
'TaminoX1.csDatabaseURL = “http://sagserv/tamino/insiteADABAS/Books”

Set initPing = TaminoX1.Ping
'<> 1 Then
MsgBox initPing.xml

‘End If


Set doc = TaminoX1.StartSession(IsolationTypes.InoIsolationDefault, LockWaitTypes.InoLockWaitNo)

‘starts the session - locks the document
Else
MsgBox “Tamino Initialisation failed”
’??? instead of exiting can I call this function again
’???
'TaminoConnection
Exit Sub
End If
End Sub

Private Sub CleanUp(flagUpdate As Boolean) 'clean up
If flagUpdate Then
Set doc = Nothing
Set inoResponse = Nothing
MsgBox “All complete”
End If
End Sub

Private Function InsertDoc(xmlString As String) As Boolean ’ the actual insertion and checks
If flag = True Then
Set doc = New DOMDocument
doc.loadXML (xmlString)
If doc.parseError.errorCode <> 0 Then
MsgBox "A parse error " & doc.parseError.reason & " " & doc.parseError.srcText
InsertDoc = False
Else
CheckString
If checkFlag Then
Set inoResponse = TaminoX1.Insert(doc) ’ sends doc to Tamino
MsgBox “insert complete”
Set doc = TaminoX1.Commit ’ End the transaction
InsertDoc = True
CleanUp (InsertDoc)
'calls sub cleanup
Else
Set doc = TaminoX1.Rollback 'stops the transaction with all changes backed out
End If

End If


End If
End Function

Private Sub CheckString() 'checking the xml string
If ((doc.firstChild.baseName) <> “Books”) Then ’ checks for the first element
MsgBox “Error - First Tag is not the same as the collection name ‘DOC’. Please correct the Text in the Text box and click the button Process”
flag = False
Text1.SetFocus
checkFlag = False
Else
checkFlag = True
End If
End Sub

Private Sub Command2_Click()
Set doc = TaminoX1.EndSession 'Ends the session
End
End Sub

Private Sub Text1_Change() ’ changing the string
flag = False
checkFlag = False
InsertDoc (xmlString)
End Sub