2

让我首先说我是 vb 的新手，就脚本而言，我只真正使用过 matlab。

无论如何，我正在 vb2010 中编写一个脚本，它允许我从 mysql 读取和写入。一切都处于测试模式。我能够让它读取和写入，但是对于这项工作的下一阶段，我希望脚本能够在从扫描仪读取条形码数字后从 mysql 读取。一旦它可以做到这一点，我就有信心完成代码。

就射频扫描器脚本而言，我什至不知道从哪里开始。

这是我已经拥有的：

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 回答