|
|
|
เช็คเงื่อนไขก่อน Insert ข้อมูล MYSQL VB.NET ขอความช่วยเหลือหน่อยครับ |
|
|
|
|
|
|
|
Code (VB.NET)
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objConn As New MySqlConnection
Dim objCmd As New MySqlCommand
Dim strConnString, strSQL As String
strConnString = "Server=localhost;User Id=root; Password=1234; Database=feederphone; Pooling=false"
strSQL = "INSERT INTO feeder_sched (hour_1,min_1,hour_2,min_2,hour_3,min_3,weight_1,weight_2,weight_3,KeyID) " & _
" VALUES " & _
" ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "', " & _
" '" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "','" & Me.TextBox7.Text & "','" & Me.TextBox8.Text & "','" & Me.TextBox9.Text & "','" & Me.TextBox10.Text & "')"
objConn.ConnectionString = strConnString
objConn.Open()
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
Try
objCmd.ExecuteNonQuery()
MsgBox("Saved")
Catch ex As Exception
MsgBox("Error")
End Try
objConn.Close()
objConn = Nothing
End Sub
อยากให้พี่ๆแหละเหล่าเซียน VB และ MySQL ช่วยแก้ปัญหาหน่อยครับ คือตอนนี้สามารถ Insert ข้อมูลลงในตารางที่ต้องการได้แล้ว แต่ติดปัญหาตรงที่ว่าพึ่งหัดเขียน VB เลยอยากสอบถามพี่ๆว่า ถ้าผมอยากจะเช็คข้อมูล KeyID ถ้าหากว่ามีการคีย์ข้อมูลซ้ำลงไป ให้ Update ที่ช่่องที่มี KeyID นั้น สร้างเงื่อนไขไม่เป็นครับ อยากให้ชี้แนะแนวทางหน่อย
ขอบคุณสำหรับทุกคำตอบครับ
Tag : .NET, MySQL, VB.NET
|
|
|
|
|
|
Date :
2017-01-26 18:01:08 |
By :
kosspeed |
View :
802 |
Reply :
1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ประมาณนี้เลยครับ
Code (VB.NET)
Dim intNumRows As Integer
strSQL = "SELECT * FROM customer WHERE CustomerID = '"& Me.txtCustomerID.Text &"' "
objCmd = New MySqlCommand(strSQL, objConn)
intNumRows = objCmd.ExecuteScalar()
IF intNumRows > 0 Then
Me.pnlAdd.Visible = False
Me.lblStatus.Visible = True
Me.lblStatus.Text = "CustomerID already exist."
Else
strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
" VALUES " & _
" ('" & Me.txtCustomerID.Text & "','" & Me.txtName.Text & "','" & Me.txtEmail.Text & "', " & _
" '" & Me.txtCountryCode.Text & "','" & Me.txtBudget.Text & "','" & Me.txtUsed.Text & "')"
objCmd = New MySqlCommand
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
Me.pnlAdd.Visible = False
Try
objCmd.ExecuteNonQuery()
Me.lblStatus.Text = "Record Inserted"
Me.lblStatus.Visible = True
Catch ex As Exception
Me.lblStatus.Visible = True
Me.lblStatus.Text = "Record can not insert Error ("& ex.Message &")"
End Try
End IF
|
|
|
|
|
Date :
2017-01-27 09:52:38 |
By :
mr.win |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 04
|