ขออนุญาติสอบถามเรื่อง Insert into DropDownlist ต้องให้บันทึกเป็น Id แต่ List ของ ddl เป็น ชื่อแผนก (VB)
แสดงเป็นข้อมูลแผนก
ต้องการบึนทึกลง TableRegist เป็น DeptId
Code (VB.NET)
sql = "INSERT INTO tbLOGIN (username, password, Fullname, DeptId, roleid) "
sql &= " '" & txtUser.Text & "' , '" & txtPaassword.Text & "', '" & txtFullName.Text & "'"
sql &= " Select a.DeptId , b.RoleId From (Select DeptId From tbDetp Where DeptName = '" & ddlDept.SelectedValue.ToString & "') a "
sql &= ",(Select roleid from tbRole Where RoleName = '" & ddlRole.SelectedValue.ToString & "') b ;"
conDB.QueryExecuteNonQuery(sql)
ClearTextBox()
Syntax Error สะงั้น ผมลองมาหลายวิธีแล้วรบกวนช่วยดูให้หน่อยครับว่าผมพลาดตรงไหนครับ ขอบคุณมากๆครับ
Tag : .NET, Web (ASP.NET), VB.NET, VS 2012 (.NET 4.x)
Date :
2017-01-13 23:20:13
By :
adminliver
View :
926
Reply :
3
ถ้าไม่ใช้ BindingSource มาช่วย
ก็ลองใช้แบบนี้ดีไม๊ครับ
DropDownlist ก็แค่เอา DeptId & "_" & DeptName
จะเอาไปใช้งานก็แค่ Split มันออกให้เหลือแค่ DeptId
Date :
2017-01-15 20:40:40
By :
lamaka.tor
ผมทำประมาณนี้ครับ เผื่อเป็นแนวทางครับ
Code (VB.NET)
Dim dtDivCode As DataTable = selSQL("SELECT DIVCODE AS DIVCODE ,DIVDESCRIPTION FROM HRM_DIVISION_MST ORDER BY DIVCODE ASC").Tables(0)
cbDivCode.DataSource = dtDivCode
cbDivCode.DisplayMember = "DIVDESCRIPTION"
cbDivCode.ValueMember = "DIVCODE"
cbDivCode.DataSource = dtDivCode
อยากได้ค่าไปใช้ ใช้คำสั่ง : cbDeptCode.SelectedValue ครับ
ข้อมูลใน Table
divCode divDescription
ADM Administrative Div.
EXE Executive Div.
PD Production Div.
QA Quality Assurance Div.
SA Sale Div.
TE Technical Engineer
ดูแล้วที่ Error น่าจะเขียน SQL Insert ผิดนะครับ
INSERT INTO HRM_DIVISION_MST (DIVCODE,DIVDESCRIPTION)
VALUES(VALUE1,VALUE2)
เป็นผมผมจะใช้แบบนี้ครับ
INSERT INTO TBLOGIN (USERNAME, PASSWORD, FULLNAME, DEPTID, ROLEID)
VALUES ( '" & txtUser.Text & "'
, '" & txtPaassword.Text & "'
, '" & txtFullName.Text & "'
, '" & ddlDept.SelectedValue & "'
, '" & ddlRole.SelectedValue & "'
)
Date :
2017-01-16 15:56:46
By :
jaypang
Code (VB.NET)
Try
sql = "Insert Into tbLogin (DeptId, roleid,username, password, Fullname)
Values ( (Select DeptId From tbDept Where DeptName = '" & ddlDept.SelectedItem.ToString & "')
, (Select RoleId From tbRole Where RoleName = '" & ddlRole.SelectedItem.ToString & "')
, '" & txtUser.Text & "', '" & txtPaassword.Text & "','" & txtFullName.Text & "');"
conDB.QueryExecuteNonQuery(sql)
ClearTextBox()
MyDataTable()
Catch ex As Exception
End Try
End sub
Date :
2017-01-17 10:23:05
By :
adminliver
Load balance : Server 00