vb.net을 사용하여 데이터베이스 (MySQL) 데이터 조정

Question

vb.net을 사용하여 MySQL 데이터베이스의 데이터를 조정하는 함수를 만들려고합니다.

Private Sub alterDB_Click(sender As Object, e As EventArgs) Handles alterDB.Click 
    Dim user As String = globalValue.userN 
    Dim password As String = globalValue.passwN 
    If ComboBox1.Text <> "" Then 
     Dim newValue As Integer 
     newValue = Label3.Text - NumericUpDown1.Value 

     Dim conn As New sqlConnection 
     Dim answerN As DataTable   
     Dim sqlQnA As String = "INSERT INTO equiptment(inStorage) value '" & newValue & "' WHERE iName='" & ComboBox1.Text & "'" 

      conn.altering(user, password, sqlQnA) 
      answerN = conn.getData() 

    End If 

End Sub 

내가 오류 메시지가 거의 그냥 완전히, 기능 있어요 :)

오류 MSG를 제안한다 :

이

내 코드입니다 당신은 당신의 SQL 구문에 오류가 있습니다; "140"WHERE iNavn = 'SkateboardW15'근처의 라인 1에서 올바른 구문을 찾으려면 MySQL 서버 버전에 해당하는 설명서를 확인하십시오.

Answer 1

가 UPDATE 대신의 INSERT를 사용해보십시오. 또한 SQL 주입 공격을 피하기 위해 매개 변수화 된 쿼리를 조사해야합니다. 당신이 가지고있는 것은 미친 짓입니다. 사용자 정의 유형을 사용하여 연결을 관리하고 쿼리를 실행하는 것처럼 보입니다. 좋습니다.하지만 쿼리 매개 변수에 해당 유형에 대한 지원을 추가해야합니다. 또한 ADO.Net은 연결 풀링 기능을 사용하므로 대부분의 쿼리에 대해 새 SqlConnection 개체를 사용할 때 가장 잘 작동합니다.

Private Sub alterDB_Click(sender As Object, e As EventArgs) Handles alterDB.Click 
    'Move password enforcement to your connection object or connection string 

    'use a guard clause that does not increase the nesting depth of your code 
    If string.IsNullOrWhiteSpace(ComboBox1.Text) Then Exit Sub 

    Dim newValue As Integer = CInt(Label3.Text) - NumericUpDown1.Value  
    'sql string should be a constant, or any changes should only be typed by the programmer 
    '         never the user 
    Dim sqlQnA As String = "UPDATE equipment SET inStorage = @newValue WHERE iName= @iName" 

    'Using block will guarantee the connection is closed properly, even if an exception is thrown 
    Using conn As New SqlConnection("connection string here"), _ 
      cmd As New SqlCommand(sqlQnA, conn) 

     'use query parameters that allow you to set the specific database type and length you need 
     cmd.Parameters.Add("@newValue", SqlDbType.Int).Value = newValue 
     cmd.Parameters.Add("@iName", SqlDbType.NVarChar, 40).Value = ComboBox1.Text 

     conn.Open() 
     cmd.ExecuteNonquery() 
    End Using 
End Sub 

Answer 2

이것은 아마도 당신이 찾고있는 것일 수도 있습니다 올바른 방향으로 당신을 가리 킵니다 :

Private Sub alterDB_Click(sender As Object, e As EventArgs) Handles alterDB.Click 
    If ComboBox1.Text <> "" Then 
     Dim con As New SqlConnection 
     Dim cmd As New SqlCommand 

     Try 
     ' Change Everything In The Next Line With CAPS To Your Configuration ' 
     con.ConnectionString = "Data Source=SERVERNAME;Initial Catalog=DATABASENAME;User ID=" & globalValue.userN & ";Password=" & globalValue.passwN 

     con.Open() 

     cmd.Connection = con 
     cmd = New SqlCommand("INSERT INTO equiptment(inStorage) value '" & newValue & "' WHERE iName='" & ComboBox1.Text & "'", con) 
     cmd.ExecuteNonQuery() 

     Catch ex AS Exception 
     ' Do Something If Error Exist ' 
     Finally 
     con.close() 
     End Try 
    End If 
End Sub