[.NET]
code บันทึก แก้ไข ลบ ข้อมูล ของ vb2010 + sql server 2008
ติดปัญหาอะไรครับ การ Insert ใช้ผ่าน ADO.NET กับ NameSpace ของ SqlClient สามารถดูได้จากบทความของ ASP.NET กับ SQL Server ครับ
Date :
2012-10-15 09:16:28
By :
mr.win
Code (VB.NET)
01.
Dim
Conn
As
OleDbConnection
02.
Dim
cmd
As
OleDbCommand
03.
Dim
sql as string
04.
05.
Conn =
New
OleDbConnection(
"Provider=sqloledb;server="
& SVName &
";database="
& DBName &
";uid="
& UID &
";pwd="
)
06.
Conn.Open()
07.
08.
sql =
"insert into tablename(id,name) select (select isnull(max(id),0) + 1 from tablename),me.txtname.text"
09.
10.
sql =
"update tablename set name='xxx' where id="
& me.txtid.text
11.
12.
sql =
"delete tablename where id="
& me.txtid.text
13.
14.
Try
15.
16.
cmd =
New
OleDbCommand(Sql, Conn)
17.
cmd.ExecuteNonQuery()
18.
19.
Catch
ex
As
Exception
20.
MessageBox.Show(
"ets_mc_plan Insert Data Incomplete as"
& ex.Message,
"Insert Data Error !!!"
, MessageBoxButtons.OK, MessageBoxIcon.Warning)
21.
22.
End
Try
Date :
2012-10-15 09:20:16
By :
thep
ช่วยดูให้หน่อยครับ
Code (VB.NET)
01.
Dim
sqlADD
As
String
02.
Dim
cm
As
New
SqlCommand
03.
04.
If
txtid.Text =
""
Or
txtname.Text =
""
Or
txtsur.Text =
""
Or
txtno.Text =
""
Or
txtmoo.Text =
""
Or
txttumbon.Text =
""
Or
txtdistrict.Text =
""
Or
txtprovince.Text =
""
Or
txtzip.Text =
""
Or
mttel.Text =
""
Or
txtex.Text =
""
Then
05.
MessageBox.Show(
"กรุณากรอกข้อมูลให้ครบด้วยครับ.."
,
"คำเตือน"
, MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
06.
Else
07.
MessageBox.Show(
"คุณต้องการบันทึกข้อมูลใช่หรือไม่?"
,
"ยืนยัน"
, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
08.
09.
sqlADD =
"INSERT INTO teacher(t_id, t_name, t_sur, t_no, t_moo, t_road, t_tumbon, t_district, t_province, t_zip, t_tel, t_exp, t_pic)"
10.
sqlADD &=
" VALUE ( '"
& txtid.Text &
"','"
& txtname.Text &
"' , '"
& txtsur.Text &
"' , '"
& txtno.Text &
"','"
& txtmoo.Text &
"','"
& txttumbon.Text &
"', '"
& txtdistrict.Text &
"','"
& txtprovince.Text &
"','"
& txtzip.Text &
"','"
& mttel.Text &
"','"
& txtex.Text &
"')"
11.
With
cm
12.
.CommandType = CommandType.Text
13.
.CommandText = sqlADD
14.
15.
.ExecuteNonQuery()
16.
End
With
17.
MessageBox.Show(
"เพิ่มข้อมูลเรียบร้อยแล้ว"
,
"ผลการทำงาน"
, MessageBoxButtons.OK, MessageBoxIcon.Information)
18.
19.
End
If
Date :
2012-10-15 11:16:37
By :
pirasak
Error ?
Date :
2012-10-15 11:38:41
By :
mr.win
คำว่า VALUE ครับ ต้องมี S ต่อท้าย
Date :
2012-10-15 11:39:55
By :
lee_latee
มันขึ้น Eror ตรงนี้ครับ .ExecuteNonQuery()
ช่วยดูให้หน่อย
Code (VB.NET)
01.
Private
Sub
btsave_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
btsave.Click
02.
Dim
sqlADD
As
String
03.
Dim
cm
As
New
SqlCommand
04.
05.
06.
If
txtid.Text =
""
Or
txtname.Text =
""
Or
txtsur.Text =
""
Or
txtno.Text =
""
Or
txtmoo.Text =
""
Or
txttumbon.Text =
""
Or
txtdistrict.Text =
""
Or
txtprovince.Text =
""
Or
txtzip.Text =
""
Or
mttel.Text =
""
Or
txtex.Text =
""
Then
07.
MessageBox.Show(
"กรุณากรอกข้อมูลให้ครบด้วยครับ.."
,
"คำเตือน"
, MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
08.
clear()
09.
10.
Else
11.
MessageBox.Show(
"คุณต้องการบันทึกข้อมูลใช่หรือไม่?"
,
"ยืนยัน"
, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
12.
13.
sqlADD =
"INSERT INTO teacher(t_id, t_name, t_sur, t_no, t_moo, t_road, t_tumbon, t_district, t_province, t_zip, t_tel, t_exp, t_pic)"
14.
sqlADD &=
" VALUES ( '"
& txtid.Text &
"','"
& txtname.Text &
"' , '"
& txtsur.Text &
"' , '"
& txtno.Text &
"','"
& txtmoo.Text &
"','"
& txttumbon.Text &
"', '"
& txtdistrict.Text &
"','"
& txtprovince.Text &
"','"
& txtzip.Text &
"','"
& mttel.Text &
"','"
& txtex.Text &
"')"
15.
16.
With
cm
17.
.CommandType = CommandType.Text
18.
.CommandText = sqlADD
19.
.Connection = conn
20.
.ExecuteNonQuery()
21.
End
With
22.
MessageBox.Show(
"เพิ่มข้อมูลเรียบร้อยแล้ว"
,
"ผลการทำงาน"
, MessageBoxButtons.OK, MessageBoxIcon.Information)
23.
clear()
24.
25.
26.
End
If
27.
28.
29.
30.
End
Sub
ประวัติการแก้ไข 2012-10-15 16:56:32
Date :
2012-10-15 16:55:39
By :
pirasak
เอา Error มาดูครับ
Date :
2012-10-16 09:13:37
By :
mr.win
Date :
2012-11-29 16:04:56
By :
pirasak
เหมือน t_road จะหายไปนะครับตอน Insert
Date :
2012-11-30 11:47:48
By :
Casper
รู้สึก Connection จะหายครับ
Date :
2012-11-30 22:50:01
By :
mr.win
ตอบความคิดเห็นที่ : 12 เขียนโดย : mr.win เมื่อวันที่ 2012-11-30 22:50:01
รายละเอียดของการตอบ ::
Code (VB.NET)
01.
Public
Sub
loaddata()
02.
Dim
sqlQuery
As
String
=
"SELECT * FROM sj_id"
03.
Dim
sqlAdapter
As
New
SqlDataAdapter
04.
Dim
sqlcommand
As
New
SqlCommand
05.
Dim
TABLE
As
New
DataTable
06.
Dim
i
As
Integer
07.
08.
With
sqlcommand
09.
.CommandText = sqlQuery
10.
.Connection = sconnection
11.
End
With
12.
With
sqlAdapter
13.
.SelectCommand = sqlcommand
14.
.Fill(TABLE)
15.
End
With
16.
17.
ListView1.Items.Clear()
18.
19.
For
i = 0
To
TABLE.Rows.Count - 1
20.
With
ListView1
21.
.Items.Add(TABLE.Rows(i)(
"sj_id"
))
22.
With
.Items(.Items.Count - 1).SubItems
23.
.Add(TABLE.Rows(i)(
"sj_id"
))
24.
.Add(TABLE.Rows(i)(
"sj_name"
))
25.
.Add(TABLE.Rows(i)(
"unit"
))
26.
27.
28.
End
With
29.
End
With
30.
Next
31.
End
Sub
ช่วยดูโค้ดให้หน่อยคับ เออเร่อ ตรง .Fill(TABLE)
Date :
2012-12-18 13:34:05
By :
pirasak
รบกวนดูโค้ดให้หน่อยค่ะไม่รู้ติดอะไรค่ะ พอกดเพิ่มข้อมูลแล้วมันขึ้น MessageBox ไม่สามารถเพิ่มได้เนื่องจาก Unclosed quotation mark after ther character string 'ข้อมูลที่กรอก)'. iIncorrect syntax near 'ข้อมูลที่กรอก)'.ค่ะ
เหมือนติดตรงที่ขีดเส้นใต้อ่ะค่ะ รบกวนดูให้หน่อยนะค่ะ
Code (VB.NET)
01.
Dim
sqlEmployee
As
String
=
""
02.
Dim
comEmployee
As
SqlCommand =
New
SqlCommand
03.
Dim
tmpMSG
As
String
=
""
04.
05.
If
(txtEmpID.Text =
""
)
Or
(txtEmpName.Text =
""
)
Or
(txtEmpPosition.Text =
""
)
Or
(txtEmpTel.Text =
""
)
Or
(txtUser.Text =
""
)
Or
(txtPass.Text =
""
)
Then
06.
MessageBox.Show(
"กรุณาป้อนข้อมูลสมาชิกให้ครบ !!!"
,
"ผลการตรวจสอบ"
, MessageBoxButtons.OK, MessageBoxIcon.Warning)
07.
txtEmpID.Focus()
08.
Exit
Sub
09.
End
If
10.
11.
Try
12.
Select
Case
ActionFlag
13.
Case
"Add"
14.
sqlEmployee =
"INSERT INTO Employee (EmployeeID,Emp_Name,Emp_Tel,"
15.
sqlEmployee &=
" Emp_Position, Username, Password)"
16.
sqlEmployee &=
" VALUES ('"
& txtEmpID.Text &
"',"
17.
sqlEmployee &=
"'"
& txtEmpName.Text &
"',"
18.
19.
If
OptMale.Checked =
True
Then
20.
sqlEmployee &=
"'M',"
21.
ElseIf
OptFeMale.Checked =
True
Then
22.
sqlEmployee &=
"'F',"
23.
End
If
24.
25.
sqlEmployee &=
"'"
& txtEmpPosition.Text &
"',"
26.
sqlEmployee &=
"'"
& txtEmpTel.Text &
"',"
27.
sqlEmployee &=
"'"
& txtUser.Text &
"',"
28.
<u>sqlEmployee &=
"'"
& txtPass.Text &
"')"
</u>
29.
With
Conn
30.
If
.State = ConnectionState.Open
Then
.Close()
31.
.ConnectionString = strConn
32.
.Open()
33.
End
With
34.
35.
If
ActionFlag =
"Add"
Then
36.
tmpMSG =
"คุณต้องการเพิ่มข้อมูล ใช่หรือไม่ ?"
37.
ElseIf
ActionFlag =
"Edit"
Then
38.
tmpMSG =
"คุณต้องการแก้ไขข้อมูล ใช่หรือไม่ ?"
39.
End
If
40.
41.
If
MessageBox.Show(tmpMSG,
"คำยืนยัน"
, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes
Then
42.
With
comEmployee
43.
.CommandType = CommandType.Text
44.
.CommandText = sqlEmployee
45.
.Connection = Conn
46.
.ExecuteNonQuery()
47.
End
With
48.
End
If
49.
Catch
ErrProcess
As
Exception
50.
MessageBox.Show(
"ไม่สามารถเพิ่มสมาชิกใหม่ได้ เนื่องจาก "
& ErrProcess.Message,
"ข้อผิดพลาด"
, MessageBoxButtons.OK, MessageBoxIcon.Warning)
51.
Exit
Sub
52.
End
Try
53.
54.
MessageBox.Show(
"บันทึกลงฐานข้อมูล เรียบร้อยแล้ว !!!"
,
"ผลการทำงาน"
, MessageBoxButtons.OK, MessageBoxIcon.Information)
55.
End
Sub
Date :
2012-12-20 03:57:29
By :
teaw
ลองอันนี้ดูนะครับไม่รู้ถูกไหม
Code
sqlEmployee = "INSERT INTO Employee (EmployeeID,Emp_Name,Emp_Sex ,Emp_Tel,"
sqlEmployee &= " Emp_Position, Username, Password)"
sqlEmployee &= " VALUES ('" & txtEmpID.Text & "',"
sqlEmployee &= "'" & txtEmpName.Text & "',"
If OptMale.Checked = True Then
sqlEmployee &= "'M',"
ElseIf OptFeMale.Checked = True Then
sqlEmployee &= "'F',"
End If
sqlEmployee &= "'" & txtEmpTel.Text & "',"
sqlEmployee &= "'" & txtEmpPosition.Text & "',"
sqlEmployee &= "'" & txtUser.Text & "',"
sqlEmployee &= "'" & txtPass.Text & "')"
Date :
2012-12-21 11:50:57
By :
ghosting789
ได้แล้วค่ะ ขอบคุณมากค่ะ
Date :
2012-12-27 23:35:19
By :
Teaw
รบกวนอีกครั้งค่ะ
Code (VB.NET)
001.
Private
Sub
btnSave_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
btnSave.Click
002.
Dim
sqlMember
As
String
=
""
003.
Dim
comMember
As
SqlCommand = Conn.CreateCommand()
004.
Dim
tmpMSG
As
String
=
""
005.
006.
007.
If
(txtMemberID.Text =
""
)
Or
(txtName.Text =
""
)
Or
(txtAddress.Text =
""
)
Or
(txtTel.Text =
""
)
Then
008.
MessageBox.Show(
"กรุณาป้อนข้อมูลสมาชิกให้ครบ !!!"
,
"ผลการตรวจสอบ"
, MessageBoxButtons.OK, MessageBoxIcon.Warning)
009.
txtMemberID.Focus()
010.
Exit
Sub
011.
End
If
012.
013.
If
cboPosition.Text =
""
Then
014.
MessageBox.Show(
"กรุณาระบุประเภทสมาชิก !!!"
,
"ผลการตรวจสอบ"
, MessageBoxButtons.OK, MessageBoxIcon.Warning)
015.
cboPosition.Focus()
016.
Exit
Sub
017.
End
If
018.
019.
Try
020.
Select
Case
ActionFlag
021.
Case
"Add"
022.
sqlMember =
"INSERT INTO Member (MemberID,Mem_Num,Mem_Name,Address,Sex,Tel,PositionID)"
023.
sqlMember &=
" VALUES ('"
& lblMemID.Text &
"',"
024.
sqlMember &=
"'"
& txtMemberID.Text &
"',"
025.
sqlMember &=
"'"
& txtName.Text &
"',"
026.
sqlMember &=
"'"
& txtAddress.Text &
"',"
027.
028.
If
OptMale.Checked =
True
Then
029.
sqlMember &=
"'M',"
030.
ElseIf
OptFemale.Checked =
True
Then
031.
sqlMember &=
"'F',"
032.
End
If
033.
034.
sqlMember &=
"'"
& txtTel.Text &
"',"
035.
sqlMember &=
"'"
&
CStr
(cboPosition.SelectedValue) &
"',"
036.
037.
If
CStr
(cboPosition.SelectedValue) =
"1"
Or
CStr
(cboPosition.SelectedValue) =
"2"
Then
038.
sqlMember &=
"'0','1')"
039.
ElseIf
CStr
(cboPosition.SelectedValue) =
"0"
Then
040.
sqlMember &=
"'1','0')"
041.
End
If
042.
043.
Case
"Edit"
044.
sqlMember =
"UPDATE Member "
045.
sqlMember &=
" SET Mem_Num='"
& txtMemberID.Text &
"',"
046.
sqlMember &=
" Mem_Name='"
& txtName.Text &
"',"
047.
sqlMember &=
" Address='"
& txtAddress.Text &
"',"
048.
If
OptMale.Checked =
True
Then
049.
sqlMember &=
" Sex='M',"
050.
ElseIf
OptFemale.Checked =
True
Then
051.
sqlMember &=
" Sex='F',"
052.
End
If
053.
054.
sqlMember &=
" Tel='"
& txtTel.Text &
"',"
055.
sqlMember &=
" PositionID='"
&
CStr
(cboPosition.SelectedValue) &
"'"
056.
sqlMember &=
" WHERE (MemberID='"
& lblMemID.Text &
"')"
057.
End
Select
058.
059.
With
Conn
060.
If
.State = ConnectionState.Open
Then
.Close()
061.
.ConnectionString = strConn
062.
.Open()
063.
End
With
064.
065.
066.
If
ActionFlag =
"Add"
Then
067.
tmpMSG =
"คุณต้องการเพิ่มข้อมูล ใช่หรือไม่ ?"
068.
ElseIf
ActionFlag =
"Edit"
Then
069.
tmpMSG =
"คุณต้องการแก้ไขข้อมูล ใช่หรือไม่ ?"
070.
End
If
071.
072.
If
MessageBox.Show(tmpMSG,
"คำยืนยัน"
, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes
Then
073.
With
comMember
074.
.CommandType = CommandType.Text
075.
.CommandText = sqlMember
076.
.Connection = Conn
077.
.ExecuteNonQuery()
078.
End
With
079.
End
If
080.
Catch
ErrProcess
As
Exception
081.
MessageBox.Show(
"ไม่สามารถเพิ่มสมาชิกใหม่ได้ เนื่องจาก "
& ErrProcess.Message,
"ข้อผิดพลาด"
, MessageBoxButtons.OK, MessageBoxIcon.Warning)
082.
Exit
Sub
083.
End
Try
084.
085.
MessageBox.Show(
"บันทึกลงฐานข้อมูล เรียบร้อยแล้ว !!!"
,
"ผลการทำงาน"
, MessageBoxButtons.OK, MessageBoxIcon.Information)
086.
087.
grbSearch.Enabled =
True
088.
089.
ControlStatus(
False
)
090.
091.
btnAdd.Enabled =
False
092.
btnEdit.Enabled =
False
093.
094.
btnSave.Visible =
False
095.
btnCancel.Visible =
False
096.
ClearData()
097.
grdEquipNotReturn.DataSource =
Nothing
098.
099.
btnPrint.Enabled =
False
100.
101.
cmdMoveFirst.Enabled =
False
102.
cmdMovePrevious.Enabled =
False
103.
cmdMoveNext.Enabled =
False
104.
cmdMoveLast.Enabled =
False
105.
106.
lblShowPositions.Text =
""
107.
txtSearch.Text =
""
108.
txtSearch.Focus()
109.
End
Sub
Date :
2012-12-30 01:49:02
By :
Teaw
jรูปทีขึ้น Error ของโพส 17 แก้ให้ตรงกับ Column แล้วทำไมยังขึ้นอีกค่ะ
Date :
2012-12-30 02:07:50
By :
Teaw
Date :
2014-11-25 23:09:24
By :
tang
.parameters.AddWithValue("@dot", SqlDbType.Date).Value = Otdate.text
น่าจะเขียนแบบนี้หรือเปล่า (ไม่ชำนาญ)
.parameters.AddWithValue("@dot", DateTime.Parse(Otdate.text) )
Date :
2014-11-26 08:32:46
By :
Chaidhanan
ใช้แบบต่อ string ระวังเจอ sql injection
Date :
2014-11-26 09:45:26
By :
ห้ามตอบเกินวันละ 2 กระทู้
Code (VB.NET)
01.
Dim
dtset
As
New
DataSet()
02.
If
code.Text =
""
Then
03.
04.
bname.Text =
""
05.
gtype.Text =
""
06.
gday.Text =
""
07.
gnum.Text =
""
08.
price.Text =
""
09.
10.
MsgBox(
"กรุณากรอกข้อมูลให้ครบด้วยทุกช่องด้วย"
, MsgBoxStyle.Information,
"ระะบบแจ้งเตือน"
)
11.
12.
Else
13.
ds.Clear()
14.
Dim
cn
As
New
OleDbCommandBuilder(da)
15.
objcurrencymanager.EndCurrentEdit()
16.
Dim
irecordchanged
As
Integer
= da.Update(ds,
"st_save"
)
17.
MsgBox(
"บันทึกข้อมูลสมาชิกลงฐานข้อมูลเรียบร้อยแล้ว"
& ControlChars.Lf & _
18.
"จำนวนเรคคอร์ดที่มีการเปลี่ยนแปลงเท่ากับ "
& irecordchanged &
" เรคคอร์ด"
, _
19.
,
"บันทึกข้อมูลสมาชิก"
)
20.
dtset.Clear()
21.
code.Text =
""
22.
bname.Text =
""
23.
gtype.Text =
""
24.
gday.Text =
""
25.
gnum.Text =
""
26.
price.Text =
""
27.
End
If
พอดีว่าผมทำหน้าบันทึกใน vb.2005 แต่มาเปิดใน vb.2012 แล้วมันบันทึกไม่ได้น่ะคัพ ช่วยที...
Date :
2015-01-18 14:37:12
By :
นิรนาม
Convert.ToDateTime(Otdate.Text).ToString("MM/dd/yyyy")
ก่อนจะรันโปรแกรมก็กำหนด CurrentCulture ="en-US" ด้วยนะครับ ปัญหาเรื่องวันที่ก็หมดไป
Date :
2015-01-18 18:40:52
By :
proogrammer ด้อยปัญญา
ช่วยดูไห้หน่อยค่ะมันรันไม่ได้
Code (VB.NET)
01.
Dim
sqlADD
As
String
02.
Dim
cm
As
New
StdPicture
03.
sqlADD =
"INSERT INTO "
04.
sqlADD =
"INSERT INTO vacancies_Job(code,order,Product_Name,number,Tel,send,mail,address)"
05.
sqlADD =
"VALUES ('"
& code.Text &
"','"
& order.Text &
"','"
& Product_Name.Text &
"','"
& Tel.Text &
"','"
& send.Text &
"','"
& mail.Text &
"','"
& address.Text &
"',)"
06.
07.
With
cm
08.
.CommandType = CommandType.Text
09.
.CommandText = sqlADD
10.
.Connection = Conn
11.
.Transaction = tr
12.
.Execute NonQuery()
13.
End
With
Date :
2015-02-23 17:08:57
By :
patteera
ช่วยเขียนโปแกรม vb +SQL หน่อยคร๊ หัยแจ้งเตือนพลาสปอตหมดอายุล่วงหน้า2เดือนอ่ะคร๊
Date :
2015-05-26 16:59:48
By :
ploy
รบกวนขอโค๊ดชุดคำสั่งกดแป้น 1 2 3 4 5 ทุกๆ40วินาทีหน่อยค่ะ vb2010 ค่ะขอบคุณค่ะ
Date :
2015-08-25 17:21:14
By :
ขอบคุณจ๊ะ
ช่วยบอกการทำปุ่มค้นหาให้หน่อยค่ะ พอดีพึ่งหัดทำ
ขอบคุณค่ะ
Date :
2016-02-02 17:59:47
By :
bee
Code (VB.NET)
01.
Private
Sub
btnEdit_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
btnEdit.Click
02.
03.
Try
04.
05.
If
txtCusID.Text =
""
Then
06.
MessageBox.Show(
"Please Select Data"
,
"Update"
, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
07.
txtCusID.Focus()
08.
Exit
Sub
09.
End
If
10.
cm =
New
OleDbCommand(
"UPDATE tbFile SET FileNo=@FileNo,Date=@Date,CustomerID=@CustomerID,CustomerName=@CustomerName,TypeName=@TypeName,FileID=@FileID,FileName=@FileName,FilePath1=@FilePath1,FilePath2=@FilePath2,FilePath3=@FilePath3,Remark=@Remark Where FileNo=@FileNo"
, conn)
11.
cm.Parameters.AddWithValue(
"@FileNo"
, txtFileNo.Text)
12.
cm.Parameters.AddWithValue(
"@Date"
, Format(
CDate
(dtpDate.Text),
"yyyy-MM-dd"
))
13.
cm.Parameters.AddWithValue(
"@CustomerID"
, txtCusID.Text)
14.
cm.Parameters.AddWithValue(
"@CustomerName"
, txtCusName.Text)
15.
cm.Parameters.AddWithValue(
"@TypeName"
, cbType.Text)
16.
cm.Parameters.AddWithValue(
"@FileID"
, txtFileID.Text)
17.
cm.Parameters.AddWithValue(
"@FileName"
, txtFileName.Text)
18.
cm.Parameters.AddWithValue(
"@FilePath1"
, txtSave1.Text)
19.
cm.Parameters.AddWithValue(
"@FilePath2"
, txtSave2.Text)
20.
cm.Parameters.AddWithValue(
"@FilePath3"
, txtSave3.Text)
21.
cm.Parameters.AddWithValue(
"@Remark"
, txtRemark.Text)
22.
cm.ExecuteNonQuery()
23.
24.
25.
MessageBox.Show(
"Update successful"
,
"Update"
, MessageBoxButtons.OK, MessageBoxIcon.Information)
26.
27.
ShowFile()
28.
AutoFileNo()
29.
AllClear()
30.
Catch
ex
As
Exception
31.
32.
End
Try
33.
End
Sub
แนะนำน่อยครับ เวลาคลิกปุ่มแล้วไม่มีอะไรเกีดขื้นเลย แต่พอเอา cm.ExecuteNonQuery() ออก มันค่อยขื้น messagebox มาครับ
Date :
2016-05-24 17:18:09
By :
มือใหม่
ย้าย cm.Parameters.AddWithValue("@FileNo", txtFileNo.Text) ไปไว้อันสุดท้าย
แล้วะ เอา FileNo=@FileNo, ใน statement ออก
จำนวน parameter มันไม่เท่ากัน
Date :
2016-05-24 21:37:55
By :
Chaidhanan
พอจะมีโค้ด C# ของ VB 2013 ไหมคะ โค้ดมันหายากมากเลย พอดีทำ เพิ่ม ลบ เเก้ไข อัพเดต อยู่ค่ะ
Date :
2016-11-25 10:10:05
By :
MoMay
ปกติโปรแกรม vs เขาจะมี sample มี document ให้มาด้วยนะครับ
มีครบทุกอย่างเลย แค่ต้องอ่านเท่านั้นเอง
และที่สำคัญ ถ้าคุณอ่านคุณจะได้ความรู้เยอะมากกๆๆๆๆ
สมัยผมเรียนรู้การใช้ vb ผมอ่านจาก document มันนี่แหล่ะครับ
อ่านมันตั้งแต่หน้าแรกยันหน้า .... (เท่าที่มีเวลาอ่าน ยังอ่านไม่จบจนบัดนี้ 55555 )
แต่รับรองคุณจะได้ความรู้อย่างแท้จริง อันไหนแปลไม่ออก ก็อาศัย พี่กูร์ เอาครับ
สมัยก่อนผมไม่มีพี่กูร์ ต้องเปิด dict ซึ่งบางตัวมันก็ไม่มีต้อง apply (เดา 555) เอาเอง
Date :
2016-11-25 10:24:09
By :
Chaidhanan
ตอนนี้ติดปัญหา ทำหน้าของมูลพื้นฐานไม่ได้ ปุ๋มเพิ่มลบ แก้ไข บันทึก ดึงข้อมูลไม่โชว์ไม่ได้
รบกวนหน่อยค่ะ ทำไม่ได้จริงๆ. และไม่เก่งในโค้ดเลย
Date :
2019-08-21 17:27:18
By :
Pr
ไปที่ละ step สร้างหน้าจอ ได้หรือยัง ยังไม่ต้องเชื่อม database
สร้างหน้าจอ ได้แล้ว ควบคุมปุ่ม ได้หรือยัง กดแล้ว เข้าไปยัง code ถูกต้องหรือเปล่า แสดง alert เมื่อกดปุ่ม จะได้รู้ว่าใช่
เมื่อสร้าง ปุ่ม โต้ตอบได้แล้ว
ก็ เริ่มติดต่อกับ database ใสมันใน code ที่รับการกดปุ่มนั่นแหล่ะ ยังไม่ต้องออกแบบให้มันวิลิศมาหรา
insert ได้ก่อน แล้วค่อยไป ทำเรื่อง อ่านข้อมูล เอาให้เข้าใจ
ส่วนการแสดงผล ใช้ เครื่องมือ ของ database แสดงข้อมูลไปก่อน ฝึกไปทีละขั้นเดี๋ยวก็ได้
แต่ถ้าอยากได้โค๊ดเป็นตัวอย่าง แค่ขยันหาเท่านั้น เดี๋ยวก็เจอ ไม่ต้องพึงพาให้ใครหาให้หรอก
เมื่อเขียนโค๊ดแล้วเกิด error แก้ไขเองไม่ได้ ค่อยเอา error มาถาม
ส่วนคำว่าไม่เก่งโค๊ดเลย เมื่ออยากมาทางนี้ก็ต้อง ขวนขวายหน่อยล่ะ
หรือจะให้คนอื่นเขาทำให้ฟรี คิดใหม่เลยถ้าคิดแบบนั้น
Date :
2019-08-22 06:06:11
By :
Chaidhanan
Load balance : Server 00