Private Sub Command1_Click()
If Text2.Text = \\\"\\\" Then
MsgBox \\\"姓名不能为空！\\\"
Exit Sub
End If
If Text3.Text = \\\"\\\" Then
MsgBox \\\"性别不能为空！\\\"
Exit Sub
End If
If Text4.Text = \\\"\\\" Then
MsgBox \\\"年龄不能为空！\\\"
Exit Sub
End If
Dim r As String
r = MsgBox(\\\"确定要增加吗\\\", vbYesNo, 添加)
If r = 2 Then
Exit Sub
End If
rs.AddNew \\\'增加数据
rs.Fields(\\\"姓名\\\") = Text2.Text
rs.Fields(\\\"性别\\\") = Text3.Text
rs.Fields(\\\"年龄\\\") = Text4.Text
rs.Update \\\'保存数据
rs.Requery\\\'刷新数据
Set m1.DataSource = rs
End Sub
Private Sub Form_Load()
Dim sql As String\\\'定义一个字符串变量
Dim cnn As String \\\' 定义一个字符串变量
cnn = \\\"Provider=SQLOLEDB.1;password=123456;Persist Security Info=False;User ID=sa;Initial Catalog=student;Data Source=.\\\" \\\'连接数据库
conn.Open cnn
sql = \\\"select XSID AS 学号, XSNAME AS 姓名, XSEXE AS 性别 , XSALEG AS 年龄 from student1\\\"
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
Set m1.DataSource = rs
End Sub
|
