demnammopho8
21-06-2011, 22:47
Mình đang làm bài tập lớn, có 2 đoạn này bí quá. Bạn nào biết thì chỉ giúp mình với. Mình cám ơn trước nhé.
Đầu tiên là hiện tên trường trong datagrid thành tiếng việt mà ko chỉnh trong access:
http://farm3.anhso.net/upload/20110620/22/o/anhso-221822_VB0.jpg
Thầy giáo có gợi ý mình sửa trong này nhưng mình mò mãi mà cái datagrid nó ko hiện dữ liệu ở dưới, chỉ hiện mỗi tên trường ở trên.
http://farm3.anhso.net/upload/20110620/22/o/anhso-221824_VB1.jpg
Thứ 2 là khi ấn vào combo box thì dữ liệu hiện lên ở text box:
http://farm3.anhso.net/upload/20110620/22/o/anhso-221821_VB2.jpg
Mình làm code thế này thì báo lỗi:
Private Sub cbomapb_Click()
Dim rs As New ADODB.Recordset
Set rs = cnn.Execute("select * from tblphongban where mapb='" & cbomapb.Text & "'")
txttenphongban.Text = "" & rs.Fields("tenphongban")
End Sub
Đầu tiên là hiện tên trường trong datagrid thành tiếng việt mà ko chỉnh trong access:
http://farm3.anhso.net/upload/20110620/22/o/anhso-221822_VB0.jpg
Thầy giáo có gợi ý mình sửa trong này nhưng mình mò mãi mà cái datagrid nó ko hiện dữ liệu ở dưới, chỉ hiện mỗi tên trường ở trên.
http://farm3.anhso.net/upload/20110620/22/o/anhso-221824_VB1.jpg
Thứ 2 là khi ấn vào combo box thì dữ liệu hiện lên ở text box:
http://farm3.anhso.net/upload/20110620/22/o/anhso-221821_VB2.jpg
Mình làm code thế này thì báo lỗi:
Private Sub cbomapb_Click()
Dim rs As New ADODB.Recordset
Set rs = cnn.Execute("select * from tblphongban where mapb='" & cbomapb.Text & "'")
txttenphongban.Text = "" & rs.Fields("tenphongban")
End Sub