ขอสอบถามเรื่องการ Insert วันที่หน่อยครับ ผมใช้ vb.net + ms sql ต้อง convert ยังไงครับ
ขอสอบถามเรื่องการ Insert วันที่หน่อยครับ ใช้ vb.net + ms sql Code (VB.NET) Private Sub SaveBt_Click(sender As Object, e As EventArgs) Handles SaveBt.Click
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim Sql As String
Try
conn = New SqlConnection("Data Source=MAINCREDIT00\sqlexpress;Initial Catalog=RayongDB;Integrated Security=True")
conn.Open()
Sql = "SELECT * FROM Billcane"
Sql = "Insert into Billcane(W_numb,Quota,Name,Car_numb,C_point,Type_cane,P_Cane,W_cane,M_cane,Money,Fuel,P_fuel,M_fuel,Weight,Date_in)
Values(@W_numb,@Quota,@Name,@Car_numb,@C_point,@Type_cane,@P_Cane,@W_cane,@M_cane,@Money,@Fuel,@P_fuel,@M_fuel,@Weight,@Date_in)"
cmd = New SqlCommand(Sql, conn)
cmd.Parameters.Add("@W_numb", SqlDbType.NVarChar).Value = Me.Wnbox.Text
cmd.Parameters.Add("@Quota", SqlDbType.NVarChar).Value = Me.Quotabox.Text
cmd.Parameters.Add("@Name", SqlDbType.NVarChar).Value = Me.Namebox.Text
cmd.Parameters.Add("@Car_numb", SqlDbType.NVarChar).Value = Me.Licenbox.Text
cmd.Parameters.Add("@C_point", SqlDbType.NVarChar).Value = Me.C_pbox.Text
cmd.Parameters.Add("@Type_cane", SqlDbType.NVarChar).Value = Me.Typebox.Text
cmd.Parameters.Add("@P_cane", SqlDbType.Decimal).Value = Val(P_cbox.Text)
cmd.Parameters.Add("@W_cane", SqlDbType.Decimal).Value = Val(W_cbox.Text)
cmd.Parameters.Add("@M_cane", SqlDbType.Decimal).Value = Val(M_cbox.Text)
cmd.Parameters.Add("@Money", SqlDbType.Decimal).Value = Val(M_box.Text)
cmd.Parameters.Add("@Fuel", SqlDbType.Decimal).Value = Val(F_box.Text)
cmd.Parameters.Add("@P_fuel", SqlDbType.Decimal).Value = Val(P_fbox.Text)
cmd.Parameters.Add("@M_fuel", SqlDbType.Decimal).Value = Val(M_fbox.Text)
cmd.Parameters.Add("@Weight", SqlDbType.Decimal).Value = Val(W_box.Text)
cmd.Parameters.Add("@Date_in", SqlDbType.Date).Value.getdate() = DatePicker.Value
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("Completed!")
Catch ex As Exception
MessageBox.Show("Error while connecting to SQL Server." & ex.Message)
End Try
End Sub
Tag .NET, Ms SQL Server 2014, VBScript, Win (Windows App), VB.NET
Date :
2017-12-13 12:00:53By :
JackiecooperView :
939Reply :
7
ตามนี้ครบัCode (VB.NET) Private Sub btnSave_Click(sender As Object, e As EventArgs)
Dim strConnString As String = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
Dim objConn = New MySqlConnection(strConnString)
objConn.Open()
Dim strSQL As String = "INSERT INTO myTable (EmpCode,EmpName,CheckIn,CheckOut) " + " VALUES (?EmpCode,?EmpName,?CheckIn,?CheckOut)"
Dim objCmd = New MySqlCommand(strSQL, objConn)
objCmd.Parameters.Add("?EmpCode", MySqlDbType.VarChar).Value = Me.txtEmpCode.Text
objCmd.Parameters.Add("?EmpName", MySqlDbType.VarChar).Value = Me.txtEmpName.Text
objCmd.Parameters.Add("?CheckIn", MySqlDbType.DateTime).Value = Me.dtCheckIn.Value
objCmd.Parameters.Add("?CheckOut", MySqlDbType.DateTime).Value = Me.dtCheckOut.Value
objCmd.ExecuteNonQuery()
objConn.Close()
MessageBox.Show("Completed!")
End Sub
https://www.thaicreate.com/community/windows-form-add-insert-table.html
Date :
2017-12-13 12:20:46By :
lamaka.tor
น่าจะเป็นแบบนี้หรือเปล่า
Date :
2017-12-13 13:45:19By :
Chaidhanan
ได้แล้วครับ
Date :
2017-12-13 15:46:58By :
Jackie_Cooper
หรือแบบนี้ น่าจะต้อง convert DateTime เป็น DateCode (VB.NET) cmd.Parameters.Add("@Date_in", SqlDbType.Date).Value = New Date(DatePicker.Value.Year, DatePicker.Value.Month, DatePicker.Value.Day);
Date :
2017-12-13 15:49:19By :
Chaidhanan
เหลือแค่ปุ่ม แก้ไข กับลบ แล้วก็รายงาน
Date :
2017-12-13 21:23:44By :
jackie_cooper
Date :
2017-12-14 11:25:14By :
mr.win
Server 05
Load balance : Server 05
