נשלח בתאריך: 07 October 2007 בשעה 20:23 | | IP רשוּם
|
|
|
|
הנה הבקשה ל - RS :
[CODE]
Private Sub Form_Load() cmbShowOption.AddItem "äëì" cmbShowOption.ItemData(cmbShowOption.NewIndex) = 1 cmbShowOption.AddItem "ìôé ëéúä" cmbShowOption.ItemData(cmbShowOption.NewIndex) = 2 cmbShowOption.AddItem "ìôé ùí" cmbShowOption.ItemData(cmbShowOption.NewIndex) = 3
Set conn = New clsConnection If conn.createConnection() Then sqlStr = "SELECT tb_students.code, tb_students.lname, tb_students.fname, tb_students.class, " & _ "tb_classes.class_name, tb_students.address, tb_students.birthday, tb_students.home_phone, tb_students.cell_phone " & _ "FROM tb_classes INNER JOIN tb_students ON tb_classes.code = tb_students.class;" Set rsDgrstudents = conn.query(sqlStr) Set dgrStudents.DataSource = rsDgrstudents End If End Sub
[CODE/]
|