\n
<\/p>\n
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<\/p>\n
TextBox1.Text = “busy…”
\nApplication.DoEvents()<\/p>\n
rs.MoveNext()<\/p>\n
If rs.EOF Then
\nTextBox1.Text = “EOF”
\nTextBox2.Text = ” ”
\nTextBox3.Text = ” ”
\nExit Sub
\nEnd If<\/p>\n
TextBox1.Text = rs.Fields(0).Value
\nIf (Not IsDBNull(rs.Fields(1).Value)) Then
\nTextBox2.Text = rs.Fields(1).Value
\nElse
\nTextBox2.Text = “null”
\nEnd If
\nIf (Not IsDBNull(rs.Fields(1).Value)) Then
\nTextBox3.Text = rs.Fields(2).Value
\nElse
\nTextBox3.Text = “null”
\nEnd If<\/p>\n
End Sub<\/p>\n
<\/p>\n
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<\/p>\n
conn.Open(“DSN=mscard0000”)<\/p>\n
rs.Open(“select item_no, SALES_HISTORY_1, SALES_HISTORY_2 from history”, conn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)<\/p>\n
rs.MoveFirst()<\/p>\n
Label1.Text = rs.Fields(0).Name
\nLabel2.Text = rs.Fields(1).Name
\nLabel3.Text = rs.Fields(2).Name<\/p>\n
TextBox1.Text = rs.Fields(0).Value
\nTextBox2.Text = rs.Fields(1).Value
\nTextBox3.Text = rs.Fields(2).Value<\/p>\n
End Sub<\/p>\n
<\/p>\n
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<\/p>\n
rs.AddNew()<\/p>\n
rs.Fields(0).Value = TextBox1.Text
\nrs.Fields(1).Value = TextBox1.Text
\nrs.Fields(2).Value = TextBox1.Text<\/p>\n
rs.Update()<\/p>\n
TextBox1.Text = ” ”
\nTextBox2.Text = ” ”
\nTextBox3.Text = ” ”<\/p>\n
End Sub<\/p>\n
<\/p>\n
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<\/p>\n
rs.Requery()
\nrs.MoveFirst()<\/p>\n
TextBox1.Text = rs.Fields(0).Value
\nTextBox2.Text = rs.Fields(1).Value
\nTextBox3.Text = rs.Fields(2).Value<\/p>\n
End Sub<\/p>\n
<\/p>\n
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click<\/p>\n
Dim rs2 As New ADODB.Command()
\nDim x1 As ADODB.Parameter
\nDim x2 As ADODB.Parameter
\nDim x3 As ADODB.Parameter<\/p>\n
rs2.ActiveConnection = conn<\/p>\n
rs2.CommandText = (“INSERT INTO history ( ITEM_NO,SALES_HISTORY_1,SALES_HISTORY_2) VALUES(?,?,?)”)<\/p>\n
rs2.Parameters(0).Value = TextBox1.Text
\nrs2.Parameters(1).Value = TextBox1.Text
\nrs2.Parameters(2).Value = TextBox1.Text<\/p>\n
rs2.Execute()<\/p>\n
End Sub<\/p>\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
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)) […]<\/p>\n","protected":false},"author":75,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[54,63],"tags":[],"_links":{"self":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2325"}],"collection":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/users\/75"}],"replies":[{"embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/comments?post=2325"}],"version-history":[{"count":1,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2325\/revisions"}],"predecessor-version":[{"id":2326,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2325\/revisions\/2326"}],"wp:attachment":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/media?parent=2325"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/categories?post=2325"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/tags?post=2325"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}