This will get you started, but is not the only way to work with the Neo4j api:



'// Download the Neo4j jars, from
'// http://neo4j.com/download/other-releases/

'// and
'// http://download.java.net/maven/2/javax/t…/jta-1.0.1B.jar


'// Include these in the Jabaco References/Classpath
'// jta-1.0.1B.jar
'// lucene-core-3.6.2.jar
'// neo4j-kernel-2.1.5.jar
'// neo4j-lucene-index-2.1.5.jar
'// neo4j-primitive-collections-2.1.5.jar

Import java#io#File
Import java#io#IOException
Import java#util.*

Import org#neo4j#graphdb#Direction
Import org#neo4j#graphdb#GraphDatabaseService
Import org#neo4j#graphdb#Node
Import org#neo4j#graphdb#Relationship
Import org#neo4j#graphdb#RelationshipType
Import org#neo4j#graphdb#Transaction
Import org#neo4j#graphdb#factory#GraphDatabaseFactory
Import org#neo4j#kernel#impl#util#FileUtils



Public Sub main(ByJava args() As String)

Dim myArgs() As String

Dim s_dbPath As String = ""

Dim rel As Relationship

Dim KNOWS As DynamicRelationshipType

Dim gdf_GraphDatabase As GraphDatabaseService
Dim nd_First As org#neo4j#graphdb#Node
Dim nd_Second As org#neo4j#graphdb#Node

Dim tx As org#neo4j#graphdb#Transaction

myArgs = args


On Error Goto ErrHandler


KNOWS = DynamicRelationshipType.withName( "KNOWS" )

s_dbPath = "c:\Personal_Programming\Jabaco\Neo4J\db\FirstNeo4j.db"
gdf_GraphDatabase = New GraphDatabaseFactory().newEmbeddedDatabase( s_dbPath )
tx = gdf_GraphDatabase.beginTx

nd_First = gdf_GraphDatabase.createNode()
nd_First.setProperty( "message", "What the..., " )

nd_Second = gdf_GraphDatabase.createNode()
nd_Second.setProperty( "message", "World..." )


rel = nd_First.createRelationshipTo( nd_Second, KNOWS )

rel.setProperty( "message", "Important link between What The, and World" )

Debug().Print( nd_First.getProperty( "message" ) )
Debug().Print( nd_Second.getProperty( "message" ) )
Debug().Print( rel.getProperty( "message" ) )



gdf_GraphDatabase.shutdown

tx.success


'// Not sure why this generates an error.
'// tx.close



Exit Sub

ErrHandler:
JabacoErrorManager( "Main() : " & Err.getClass.getName, "what the...?", Err.getMessage )


End Sub