Private Sub Form_Load() Data1.DatabaseName = App.Path & "\员工管理.mdb" Data1.RecordSource = "表1" Data1.Refresh End Sub
Private Sub Command1_Click() Data1.Recordset.MoveFirst Text1.Text = Data1.Recordset.Fields("姓名") Text2.Text = Data1.Recordset.Fields("年龄") Text3.Text = Data1.Recordset.Fields("工资") End Sub
在线等，请各位帮忙啊你的问题是什么？ 怎么实现 当要存入的姓名和年龄数据库同时有时，提示“该员工已存在”，否侧就存入数据库 先判断下有么有。 set rs = cn.execute "select count(*) from table where name = text1 and age = text2" if rs(0) > 0 then msgbox "exists." end if 你的数据库有问题，如果有两个小王一样大，怎么办 还有，通常存生日，年龄会变的。 是的，要加一个生日，我先试试，能不能调出来， set rs = cn.execute "select count(*) from table where name = text1 and age = text2"
出现红色啊， 是不是要定义一下啊 引用Microsoft activex data object ……
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......
