建立FORM窗体,加个按钮控件,加一个DATAGRIDVIEW控件,双击FORM,加入命名空间usingSystem.Data.OleDb 双击按钮,进入按钮代码。
OleDbConnectionstrConnectionnewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0DataSource="+"员工信息.mdb"+"PersistSecurityInfo=False")。
2.//建立数据库引擎连接,注意数据表(后缀为.db)应放在DEBUG文件下。
3.OleDbDataAdaptermyda=newOleDbDataAdapter("select*from。
4.trConnection) //建立适配器,通过SQL语句去搜索数据库。
5.按F5运行后,点击BUTTON按钮,便会显示相应的SQL语句下的数据库里的表。
6. stringstrcon="Provider=Microsoft.Jet.OLEDB.4.0DataSource=db4.mdb" mycon=newOleDbConnection(strcon)。
Dim sql As Stringsql = "select * from Teacher"
'这句有问题,肯定是修改第一行数据,应该是
sql = "select * from Teacher Order BY id Desc"
Set rs = exesql(sql)
’在这里必须添加下面的语句:
rs.AddNew '新增数据
rs.Fields("管理员姓名") = Trim(Text1.Text)
rs.Fields("工号") = Trim(Text2.Text)
rs.Fields("管理员密码") = Trim(Text19.Text)
rs.Fields("性别") = Trim(Text3.Text)
rs.Fields("联系方式") = Trim(Text4.Text)
rs.Fields("家庭住址") = Trim(Text5.Text)
rs.Update
rs.Close
另外,我认为以下语句没有任何意义,不如删除:
rs.Fields("管理员姓名") = ""
rs.Fields("工号") = ""
rs.Fields("管理员密码") = ""
rs.Fields("性别") = ""
rs.Fields("联系方式") = ""
rs.Fields("家庭住址") = ""
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)