Dim StuName, StuNo, StuSex, StuPro As String
Dim BornDate As DatePrivate Sub btnAddNew_Click()
StuName = txbName.Text
StuNo = txbStuNo.Text
StuProf = cmbPro.Text
StuSex = cmbSex.Text
BornDate = txbBirth.Text
Adodc1.Refresh
With Adodc1.Recordset
.MoveLast
.AddNew
.Fields("姓名") = StuName
.Fields("学号") = StuNo
.Fields("性别") = StuSex
.Fields("专业") = StuProf
.Fields("出生年月") = BornDate
.Update
End WithEnd SubPrivate Sub btnDelete_Click()
Adodc1.Recordset.Delete
Call btnNext_Click
Adodc1.Recordset.Update
End SubPrivate Sub btnNext_Click()
If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MovePrevious
End SubPrivate Sub btnPrev_Click()
If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveNext
End SubPrivate Sub Form_Load()
Adodc1.ConnectionString = "Provider=VFPOLEDB.1;Data Source=" + App.Path + "\Data\Student.DBC" + ";Password=" + """" + """" + ";Collating Sequence=MACHINE"
Adodc1.Refresh
Set txbName.DataSource = Adodc1
Set cmbSex.DataSource = Adodc1
Set txbStuNo.DataSource = Adodc1
Set txbBirth.DataSource = Adodc1
Set cmbPro.DataSource = Adodc1
End Sub点击btnAddNew(添加一条记录),Update出错提示:多步操作产生错误,请检查每一步的值。另外就是删除操作明明删除记录了,在数据库里看结果还在,但是程序中就看不了(以前一条,后一条记录的方式查看),重新运行程序也不行,就这么点弄了一下午了,哎那个火啊!
Dim BornDate As DatePrivate Sub btnAddNew_Click()
StuName = txbName.Text
StuNo = txbStuNo.Text
StuProf = cmbPro.Text
StuSex = cmbSex.Text
BornDate = txbBirth.Text
Adodc1.Refresh
With Adodc1.Recordset
.MoveLast
.AddNew
.Fields("姓名") = StuName
.Fields("学号") = StuNo
.Fields("性别") = StuSex
.Fields("专业") = StuProf
.Fields("出生年月") = BornDate
.Update
End WithEnd SubPrivate Sub btnDelete_Click()
Adodc1.Recordset.Delete
Call btnNext_Click
Adodc1.Recordset.Update
End SubPrivate Sub btnNext_Click()
If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MovePrevious
End SubPrivate Sub btnPrev_Click()
If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveNext
End SubPrivate Sub Form_Load()
Adodc1.ConnectionString = "Provider=VFPOLEDB.1;Data Source=" + App.Path + "\Data\Student.DBC" + ";Password=" + """" + """" + ";Collating Sequence=MACHINE"
Adodc1.Refresh
Set txbName.DataSource = Adodc1
Set cmbSex.DataSource = Adodc1
Set txbStuNo.DataSource = Adodc1
Set txbBirth.DataSource = Adodc1
Set cmbPro.DataSource = Adodc1
End Sub点击btnAddNew(添加一条记录),Update出错提示:多步操作产生错误,请检查每一步的值。另外就是删除操作明明删除记录了,在数据库里看结果还在,但是程序中就看不了(以前一条,后一条记录的方式查看),重新运行程序也不行,就这么点弄了一下午了,哎那个火啊!
解决方案 »
- WindowsMediaPlayer1 怎样 连续播放MP3
- 如何实现WINDOWS的静音关闭和打开?(就是单击右下角小喇叭,然后画叉静音)
- 大家如何保存远程数据库的密码?
- 求助﹕在ACCESS中編製VBA程序﹐程序越來越大﹐越來越慢﹐大家有沒有什麼好的解決辦法﹖
- 请问如何使MDIForm的最大最小化等功能不可用
- 怎么样才能够任意打开一个数据库里的某一个表
- 如果我用VB编了一个DLL文件。那用VC可以调用吗?
- 这样的图我应该怎么打,尽快结贴
- 如何备份数据库中的内容?
- @->--->----------程序运行时如何更改MSflexGrid中某行或某列或某行某列的颜色?
- 一个对象a被释放后 为什么 a is nothing=false?
- vb将excel 里两列的内容导入到数据库里
下面加一句addnew
下面
的refresh改为updata型的
2:你在第一个函数里定义了一个STRING变量,一个DATA变量,还有几个是无类型的
3:如果上面两个试过都无效,你可以用EXECUTE(SQL)方法来作