News

Minisoft News

Is your company legally licensed?

Press Release:
Minisoft Releases PCI Compliant Versions of ODBC, JDBC, and OLE DB


Demo and Updates

Download an Evaluation today!

ODBC Updates

Documentation

Installing the ODBC Upgrade

Release Notes

ODBC Manual

Get Acrobat

Product Review

ODBC Product Comparison

Case Study -
QSS and Minisoft

Brochure -
"Minisoft PCI Compliant"

Customer Feedback

Latest Reviews

Product FAQ

Support FAQ

Checking Versions


ODBC Application Samples

ODBC Downloadable Utilities


ODBC for UNIX

ODBC for Eloquence

ODBC on OSX

JDBC


MSJOB Information

 
    

VB.NET Sample

   

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = "busy..."
Application.DoEvents()

rs.MoveNext()

If rs.EOF Then
TextBox1.Text = "EOF"
TextBox2.Text = " "
TextBox3.Text = " "
Exit Sub
End If

TextBox1.Text = rs.Fields(0).Value
If (Not IsDBNull(rs.Fields(1).Value)) Then
TextBox2.Text = rs.Fields(1).Value
Else
TextBox2.Text = "null"
End If
If (Not IsDBNull(rs.Fields(1).Value)) Then
TextBox3.Text = rs.Fields(2).Value
Else
TextBox3.Text = "null"
End If

End Sub

 


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

conn.Open("DSN=mscard0000")

rs.Open("select item_no, SALES_HISTORY_1, SALES_HISTORY_2 from history", conn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

rs.MoveFirst()

Label1.Text = rs.Fields(0).Name
Label2.Text = rs.Fields(1).Name
Label3.Text = rs.Fields(2).Name

TextBox1.Text = rs.Fields(0).Value
TextBox2.Text = rs.Fields(1).Value
TextBox3.Text = rs.Fields(2).Value

End Sub

 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

rs.AddNew()

rs.Fields(0).Value = TextBox1.Text
rs.Fields(1).Value = TextBox1.Text
rs.Fields(2).Value = TextBox1.Text

rs.Update()

TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "

End Sub

 


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

rs.Requery()
rs.MoveFirst()

TextBox1.Text = rs.Fields(0).Value
TextBox2.Text = rs.Fields(1).Value
TextBox3.Text = rs.Fields(2).Value

End Sub

 


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim rs2 As New ADODB.Command()
Dim x1 As ADODB.Parameter
Dim x2 As ADODB.Parameter
Dim x3 As ADODB.Parameter

rs2.ActiveConnection = conn

rs2.CommandText = ("INSERT INTO history ( ITEM_NO,SALES_HISTORY_1,SALES_HISTORY_2) VALUES(?,?,?)")

rs2.Parameters(0).Value = TextBox1.Text
rs2.Parameters(1).Value = TextBox1.Text
rs2.Parameters(2).Value = TextBox1.Text

rs2.Execute()

End Sub

   

Minisoft Inc. 1024 First Street Snohomish, WA 98290 (800) 682-0200 Fax: (360) 568-2923
Copyright ©2014 Minisoft, Inc. | License Agreement | 31 Years of Excellence.