Last updated
Sub BuildDataset()
On Error GoTo ErrorHandler
Dim vBaseBuilder As New vBase.vBaseBuilder
Dim vBaseClient As vBase.vBaseClient
Dim vBaseDataset As vBase.vBaseDataset
Dim verificationResult As vBase.VerificationResult
Dim transactionReceipt As vBase.Web3Receipt
Dim datasetName As String
Dim forwarderUrl As String
Dim apiKey As String
Dim privateKey As String
datasetName = "<DATASET NAME>"
forwarderUrl = "<FORWARDER URL>"
apiKey = "<API KEY>"
privateKey = "<PRIVATE KEY>"
' Create a client and dataset
Set vBaseClient = vBaseBuilder.CreateForwarderClient(forwarderUrl, apiKey, privateKey)
Set vBaseDataset = vBaseBuilder.CreateDataset(vBaseClient, datasetName, vBase.ObjectTypes_String)
' Add records to the dataset
Set transactionReceipt = vBaseDataset.AddRecord("Test Data 1")
' Add more records as needed
Set transactionReceipt = vBaseDataset.AddRecord("Test Data 2")
' Display the last transaction details
MsgBox "Last transaction hash: " & transactionReceipt.transactionHash & vbNewLine & _
"Last transaction timestamp: " & transactionReceipt.timestamp
' Verify the dataset commitments
Set verificationResult = vBaseDataset.VerifyCommitments()
MsgBox "Verification passed: " & verificationResult.VerificationPassed
Exit Sub
ErrorHandler:
MsgBox "Use [Ctrl+Insert] to copy this message to the clipboard." & vbNewLine & _
"Error: " & Err.Description, vbCritical
End Sub