Passing Of Data From Vb.net To Bartender

Legacy Poster

• September 09, 2013 09:50

Hi,

How can I pass a value from VB.Net to Bartender ver.10?
What data source will I use in Bartender to connect with the queried data in VB.Net? Currently, I am using the database field as my data source type. But when I print it through the use of VB.Net, it prints all the data in selected database field. For example, I have 100 data in the database, but I only need the result of the queried data which resulted in 3 data only.

This is how my code looks like:

Imports System
Imports System.Data
Imports System.IO
Imports System.Text
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Windows.Forms

Public Class Form1
Dim btApp As BarTender.Application
Dim btFormat As BarTender.Format
Dim btMsgs As BarTender.Messages
Dim cnstr As String = "Data Source=192.168.1.228; initial catalog=Aero; user=cats; password=dogs;"
Dim conn As New SqlConnection(cnstr)
Dim reader As SqlDataReader = Nothing

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

btApp = New BarTender.Application()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As String
Dim MyQuery As String = "Select partno from card where serialno='000001' "
Dim myCommand = New SqlCommand(MyQuery, conn)
conn.Open()
reader = myCommand.ExecuteReader

btFormat = btApp.Formats.Open("F:\shine\Projects\Aeroscout\Bartender\aero.btw")
btFormat.SetNamedSubStringValue("partno", "")
btFormat.SetNamedSubStringValue("serialno", "")

If reader.HasRows Then
While reader.Read
i = reader(0)

btFormat.SetNamedSubStringValue("partno", reader("partno"))
btFormat.SetNamedSubStringValue("serialno", "000001")
btFormat.Print("Job1", True, -1, btMsgs)
End While
End If
btFormat.Close(BarTender.BtSaveOptions.btSaveChanges)
conn.Close()

End Sub

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosed
btApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges)
System.Runtime.InteropServices.Marshal.ReleaseComObject(btApp)
End Sub

End Class

 

Thanks in advance.

• Reply
• Report
   
•  

0

• 

  Domingo Rodriguez

  Moderator

  ★ BarTender Hero ★

  • September 09, 2013 15:10

  Firstly, you will need to setup a query prompt for the database connection created inside the BT document (if you haven't done that yet):

  http://www.bartenderbarcodesoftware.com/label-software/training-video-(selecting-records-from-a-database-at-print-time).aspx

   

  Now, after the query prompt has been created, you will need to fill the query prompt value at print time:

   

  In C#:

   

  Engine btEngine = new Engine();

   

  // Start a BarTender Engine process

  btEngine.Start();

  
  

  // Open a label format

  LabelFormatDocument btFormat =
  btEngine.Documents.Open(@"c:\MyLabel.btw");

  
  

  // Set the QueryPrompt

  btFormat.DatabaseConnections.QueryPrompts["Nutrition Calorie Data"].Value = "40
  Calories";

  
  

  // Print the label format

  Result result = btFormat.Print();

   

  In VB:

   

  
  

  Dim btEngine As
  New Engine()

  
  

  ' Start a BarTender Engine process

  btEngine.Start()

  
  

  ' Open a label format

  Dim btFormat As LabelFormatDocument = btEngine.Documents.Open("c:\MyLabel.btw")

  
  

  ' Set the QueryPrompt

  btFormat.DatabaseConnections.QueryPrompts("Nutrition Calorie Data").Value = "40
  Calories"

  
  

  ' Print the label format

  Dim result As Result = btFormat.Print() 

   

   

  Does this help?

  0
• 

  Legacy Poster

  ★ BarTender Hero ★

  • September 10, 2013 02:23
  Can I use 2 query prompts? 1st is for the partno 2nd is for the serialno?

  0
• 

  Legacy Poster

  ★ BarTender Hero ★

  • September 10, 2013 06:53
  Problem solved. I used substring because I don't know if I can use query prompt twice. But thanks anyway. =)

  0

Please sign in to leave a comment.