mrc.Fields(5) = Trim(txtTel.Text)
mrc.Fields(6) = Trim(txtRudate.Text)
mrc.Fields(7) = Trim(txtAddress.Text)
mrc.Fields(8) = Trim(txtComment.Text)
mrc.U
pdate
MsgBox "添加学籍信息成功！", vbOKOnly + vbExclamation, "警告"
mrc.Close
Me.Hide
End If
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim i As Integer
comboSex.AddItem "男"
comboSex.AddItem "女"
txtSQL = "select * from class_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)
For i = 1 To mrc.RecordCount
comboClassNo.AddItem mrc.Fields(0)
mrc.MoveNext
Next i
mrc.Close
End Sub
.........................................................................................................
............................... frmAddassinfo 添加班级信息窗口代码 ..............................
Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
Dim MsgText As String
