 |
| |
ช่วยแนะนำ หน้าค้นหา แบบกำหนดเงื่อนไขจากตารางฐานข้อมูลที่มีความสัมพันธ์กัน 3ตารางขึ้นไป หน่อยครับ ผมทำแล้วกดมันขึ้นมาทั้งหมดเลย |
| |
 |
|
|
 |
 |
|
ขออนุญาตดันหน่อยนะ
ช่วยหน่อยนะค๊าฟ
|
 |
 |
 |
 |
| Date :
2012-03-01 21:25:55 |
By :
Smile |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ตามความคิดส่วนตั๊ว ส่วนตัว นะครับ
ผมจะทำให้มันเป็นตารางเดียวเลย
ตารางสินค้า มี P_ID, P_NAME, หมวดสินค้า, สถานะ
รอผู้รู้คนอื่นมาแนะนำต่อค้บ
|
| |
|
|
| |
| Date :
2012-03-01 22:22:21 |
By :
meneger |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณมากครับ
แต่ติดตรงcomboboxแล้วได้ค่า nullอ่ะครับ ไม่ทราบต้องกำหนดยังไงอะคับ
โค๊ดSqlครับ
string sql = "SELECT product.pro_id, product.pro_name FROM groups INNER JOIN product ON groups.groups_id = product.groups_id WHERE (((product.groups_id)=cmbGroups.SelecedValues ));";
มันบอกว่า ไม่มีการให้ค่าสำหรับพารามิเตอร์ที่ต้องการอย่างน้อยหนึ่งพารามิเตอร์
แต่ถ้ากำหนดค่าเลขไอดีลงไป มันจะใช้ได้นะครับ คือ
string sql = "SELECT product.pro_id, product.pro_name FROM groups INNER JOIN product ON groups.groups_id = product.groups_id WHERE (((product.groups_id)=4));";
ใช้ VC# นะครับ
ไม่รู้การส่งค่าการตั้งค่าcombobox ผิดหรือป่าวอ่ะครับ นี้ครับโค๊ด
Code (C#)
DataSet _data = new DataSet();
OleDbDataAdapter _adapter;
string sql;
sql = "SELECT*FROM groups";
_cmd = new OleDbCommand(sql, _conn);
_adapter = new OleDbDataAdapter(_cmd);
_adapter.Fill(_data, "gru");
cmbGroups.DisplayMember = "groups_name";
cmbGroups.ValueMember = "groups_id";
cmbGroups.DataSource = _data.Tables["gru"];
|
| |
|
|
| |
| Date :
2012-03-02 16:00:25 |
By :
Smile |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ก็ท่านกำหนด Value ให้ Combobox หรือยังล่ะครับ
Combobox มันมีสองส่วนนะครับ ส่วนที่เป็น Display เเละ Value
|
| |
|
|
| |
| Date :
2012-03-02 16:40:20 |
By :
Cyg |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
cmbGroups.ValueMember = "groups_id";
ตัวนี้รึเปล่าครับ
แต่ในคำสั่งSQL ถ้า WHERE (((product.groups_id)=cmbGroups.SelecedValues ))จะไม่ได้
แต่ถ้า WHERE (((product.groups_id)=4)) จะได้ค่าข้อมูลจากตารางGroups แถวที่4อ่ะ
|
| |
|
|
| |
| Date :
2012-03-02 16:52:36 |
By :
Smile |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลอง MessageBox.Show cmbGroups.SelecedValues ดูครับ ว่าได้ตัวเลข เป็น id ของ combobox อันนั้นๆหรือเปล่า
|
| |
|
|
| |
| Date :
2012-03-02 17:40:10 |
By :
SPIRITT |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ได้ค่าID มาครับแต่
มันบอกว่า ชนิดข้อมูลไม่ตรงกันในนิพจน์เกณฑ์ อะครับ
|
| |
|
|
| |
| Date :
2012-03-02 17:58:35 |
By :
Smile |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ได้ละครับแบบ 2 ตาราง ผิดตรงคำสั่ง SQL แน่เลย
|
| |
|
|
| |
| Date :
2012-03-02 18:11:07 |
By :
Smile |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (C#)
SELECT pro_id,pro_name FROM groups
INNER JOIN product ON groups.groups_id = product.groups_id
INNER JOIN address ON address.address_id = product.address_id
WHERE groups.groups_id = '" + cmbGroups.SelectedValue + "' AND address.address_id = '" + cmbAddress.SelectedValue + "' ORDER BY pro_id";
ใช้Combobox 2อันในการค้นหา เวลากดมันจะเตือนว่าไม่เจอข้อมูลครับ เพราะได้ตั้ง Message box ใน else ไว้นะครับ
อยากทราบว่าจะต้องเขียนโค๊ดยังไงครับในการใช้ combobox 2 ตัวในการค้นหาข้อมูลครับ
ขอบคุณมากครับ
|
| |
|
|
| |
| Date :
2012-03-02 19:06:53 |
By :
Smile |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ใช้ vb6.0 ค่ะ ตอนนี้ติดปัญหาค่ะ คือสามารถเพิ่มข้อมูลจากฟอร์มย่อยลงฐานข้อมูลได้แล้ว แต่ มันไม่มาอัพเดตใน combobox ในหน้าฟอร์มหลักค่ะ
พอเพิ่มข้อมูลใหม่ข้อมูลที่เพิ่มก่อนหน้าจะมาอัพเดตใน combobox ในฟอร์มหลักค่ะ
|
| |
|
|
| |
| Date :
2014-05-16 10:10:16 |
By :
koy |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองสั่งให้ ComboBox มัน Query Data มาใส่ตัวมันเองใหม่อีกครั้ง ตอนที่เกิด Event DropDown ดูครับ
|
| |
|
|
| |
| Date :
2014-05-16 10:24:28 |
By :
CPU4Core |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอตัวอย่างหน่อยได้มั้ยคะ เพิ่งหัดเขียนอ่ะค่ะCode (VB.NET)
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
Set RS = New ADODB.Recordset
RS.Open "select * from Table2 where SN = '" & Combo2.Text & "'", cn, adOpenKeyset, adLockOptimistic
If Not RS.EOF Then
Me.Combo1.Text = RS!Device
End If
RS.Close
Set RS = Nothing
End Sub
|
| |
|
|
| |
| Date :
2014-05-16 11:11:54 |
By :
koy |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
พอดีที่เครื่องไม่มี VB6 ให้ลองหนะครับ
เอาแบบนี้นะครับ ขอถามก่อนว่าอันนี้คือ code ที่บอกใช่ไหมครับ
ถ้าใช่เดี๋ยวลอง ทำแบบนี้นะครับ
- เปลี่ยน Event KeyDown เป็น DropDown ดูครับ
- เอาโค๊ดเดิมนั่นแหละไปใส่ตรง Event DropDown
ปล ไม่แน่ใจว่า VB6 มี Event นี้ไหมแต่น่าจะมีนะครับ
|
| |
|
|
| |
| Date :
2014-05-16 11:19:36 |
By :
CPU4Core |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองแล้วค่ะ แต่ว่าเหมือนเดิม
อันนี้คือโค้ดที่ใช้ในการเพิ่มข้อมูล
Private Sub Command2_Click()
If MsgBox("DO YOU WANT TO SAVE ?", vbYesNo) = vbYes Then
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("Datenow") = Text2.Text
Adodc1.Recordset.Fields("Repair By") = Text3.Text
Adodc1.Recordset.Fields("Starttime3-1") = Text4.Text
Adodc1.Recordset.Fields("Starttime3-2") = Text5.Text
Adodc1.Recordset.Fields("Starttime4-1") = Text6.Text
Adodc1.Recordset.Fields("Stoptime3-1") = Text7.Text
Adodc1.Recordset.Fields("Stoptime3-2") = Text8.Text
Adodc1.Recordset.Fields("Stoptime4-1") = Text9.Text
Adodc1.Recordset.Fields("Totaltime3-1") = Text10.Text
Adodc1.Recordset.Fields("Totaltime3-2") = Text11.Text
Adodc1.Recordset.Fields("Totaltime4-1") = Text12.Text
Adodc1.Recordset.Fields("X-Y aling") = Text13.Text
Adodc1.Recordset.Fields("Plan") = Text14.Text
Adodc1.Recordset.Fields("Near Fail") = Text15.Text
Adodc1.Recordset.Fields("NF") = Text16.Text
Adodc1.Recordset.Fields("Leak") = Text17.Text
Adodc1.Recordset.Fields("Cres") = Text18.Text
Adodc1.Recordset.Fields("Device") = Combo1.Text
Adodc1.Recordset.Fields("S/N") = Combo2.Text
Adodc1.Recordset.Fields("Shift") = Combo3.Text
Adodc1.Recordset.Update
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
ElseIf vbNo Then
Unload Me
End If
End Sub
|
| |
|
|
| |
| Date :
2014-05-16 14:55:22 |
By :
koy |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
