2

私は vb が初めてで、スクリプトに関する限り、実際に matlab しか使用したことがないと言って始めましょう。

とにかく、vb2010 でスクリプトを書いているので、mysql から読み書きできるようになります。すべてがテストモードです。読み取りと書き込みを行うことができましたが、この取り組みの次の段階では、スクリプトがスキャナーからバーコード番号を読み取った後、mysql から読み取ることができるようにしたいと考えています。それができたら、コードを完成させる自信があります。

rf スキャナーのスクリプトに関する限り、どこから始めればよいかさえわかりません。

これが私がすでに持っているものです：

Imports MySql.Data.MySqlClient
Imports System.Data


Public Class TEST

    Inherits System.Windows.Forms.Form

    Dim conn As New MySqlConnection
    Dim myCommand As New MySqlCommand
    Dim reader As MySqlDataReader
    Dim par As MySqlParameter
    Dim result As String


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox4.Text = Now.ToString()

        'Dim str As String
        'Dim num As Integer
        'str = ComboBox1.Text
        'num = CInt(str)
        conn = New MySqlConnection
        conn.ConnectionString = "Server=localhost;Database=test;Uid=root;Pwd=****;"

        Try
            conn.Open()
            MessageBox.Show("Connection Opened Successfully")
            myCommand.CommandText = "INSERT INTO this (workorderno, Datein, operator) values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & combobox1.Text & "')"
            myCommand.Connection = conn
            myCommand.ExecuteNonQuery()        
            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show("Error Connecting to Database: " & myerror.Message)
        Finally
            conn.Dispose()
        End Try

        Try
            conn.Open()
            MessageBox.Show("Connection established")         
            myCommand = New MySqlCommand("Select number From this Where workorderno = @textbox1.text", conn)
            par = New MySqlParameter
            par.ParameterName = "textbox1.text"
            par.Value = TextBox1.Text
            myCommand.Parameters.Add(par)
            reader = myCommand.ExecuteReader()
            If reader.Read() Then
                result = reader.GetString(0)
            End If
            ''//output to textbox
            TextBox3.Text = result

            conn.Close()

        Catch ex As Exception
        Finally
            conn.Dispose()
        End Try


    End Sub
4

1 に答える 1

0

スキャナーがシリアル インターフェイスを使用してコンピューターと通信し、プログラムが COM ポートを介して読み取ることができるとします。最初に をSerialPortプロジェクトに追加し、 を入力しますPort Name。デバイス マネージャーで見つけることができると思います。次に、ポートを開き、アクションSerialPortDataDidReceivedから関数を追加できます。SerialPort

参考までに、YouTube のこのビデオが少し役に立ちます :]

Visual Basic シリアル COM ポート チュートリアル (Visual Studio 2010)

Serial Portこれが役立つことを願ってというキーワードを含むチュートリアルがいくつか見つかるはずです。=]

于 2013-02-01T10:24:28.803 に答える