ODBC 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