VB에서 처음이고 스크립팅이 진행되는 동안 저는 matlab 만 사용했습니다.2010 년 vb에서 RF 스캐너 사용
어쨌든, 나는 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
우리는 RF 스캐너의 어떤 모델을 사용하려고하는지에 대한 추측을하기에 충분한 정보가 없습니다. –
간단한 Motorola LS2208-SR20001R-UR 바코드 스캐너는 내가 염두에두고있는 것입니다. 관련 정보가 더 필요하면 알려주십시오 – Chim
드라이버 소프트웨어를 이미 설치 했습니까? –