VB + ACCESS 的数据库插入记录有关问题
VB + ACCESS 的数据库插入记录问题
VB6 + ACCESS 的数据库插入记录问题
Private Sub Form_Load()
Set db = OpenDatabase(App.Path + "\db1.mdb")
Set rs = db.OpenRecordset("ppl")
If rs.EOF Then
MsgBox "Please Add Someone To The Databse"
Else
rs.MoveFirst
txtName = rs.Fields("Name")
txtEmail = rs.Fields("Email")
txtPhone = rs.Fields("Phone")
txtFax = rs.Fields("Fax")
End If
End Sub
再用下边的过程,可以增加记录
Private Sub cmdAdd_Click()
newName = InputBox("Please Enter The Name To Add", "AddressBook")
newEmail = InputBox("Please Enter The Email To Add", "AddressBook")
newPhone = InputBox("Please Enter The Phone Number To Add", "AddressBook")
newFax = InputBox("Please Enter The Fax Number To Add", "AddressBook")
With rs
.AddNew
!Name = LCase(newName)
!Email = LCase(newEmail)
!Phone = LCase(newPhone)
!Fax = LCase(newFax)
.Update
End With
MsgBox (newName & " Was Added To The Address Book")
End Sub
上边增加的记录是放在整个记录的最后。
现在一个数据库中假设有100条记录,我要在50条记录之后插入一条记录,整个记录变成101条,这如何操作?
------解决方案--------------------
数据库的记录在数据库中组织是无序的。
如果你希望保持这个顺序,你应该为数据库中的记录增加一个字段保存这种顺序,并且在获取数据的时候对它排序。
------解决方案--------------------
我还是倾向于使用Sql语句添加记录
http://download.csdn.net/detail/veron_04/1498324
http://download.csdn.net/detail/veron_04/1644211
------解决方案--------------------
不懂为什么要在50条之后插入,目的何为?
------解决方案--------------------
------解决方案--------------------
------解决方案--------------------
数据库只是一个库,你可以对库中的记录执行各种操作,要求记录顺序无意义。
------解决方案--------------------
------解决方案--------------------
VB6 + ACCESS 的数据库插入记录问题
Private Sub Form_Load()
Set db = OpenDatabase(App.Path + "\db1.mdb")
Set rs = db.OpenRecordset("ppl")
If rs.EOF Then
MsgBox "Please Add Someone To The Databse"
Else
rs.MoveFirst
txtName = rs.Fields("Name")
txtEmail = rs.Fields("Email")
txtPhone = rs.Fields("Phone")
txtFax = rs.Fields("Fax")
End If
End Sub
再用下边的过程,可以增加记录
Private Sub cmdAdd_Click()
newName = InputBox("Please Enter The Name To Add", "AddressBook")
newEmail = InputBox("Please Enter The Email To Add", "AddressBook")
newPhone = InputBox("Please Enter The Phone Number To Add", "AddressBook")
newFax = InputBox("Please Enter The Fax Number To Add", "AddressBook")
With rs
.AddNew
!Name = LCase(newName)
!Email = LCase(newEmail)
!Phone = LCase(newPhone)
!Fax = LCase(newFax)
.Update
End With
MsgBox (newName & " Was Added To The Address Book")
End Sub
上边增加的记录是放在整个记录的最后。
现在一个数据库中假设有100条记录,我要在50条记录之后插入一条记录,整个记录变成101条,这如何操作?
------解决方案--------------------
数据库的记录在数据库中组织是无序的。
如果你希望保持这个顺序,你应该为数据库中的记录增加一个字段保存这种顺序,并且在获取数据的时候对它排序。
------解决方案--------------------
我还是倾向于使用Sql语句添加记录
http://download.csdn.net/detail/veron_04/1498324
http://download.csdn.net/detail/veron_04/1644211
------解决方案--------------------
不懂为什么要在50条之后插入,目的何为?
------解决方案--------------------
------解决方案--------------------
------解决方案--------------------
数据库只是一个库,你可以对库中的记录执行各种操作,要求记录顺序无意义。
------解决方案--------------------
------解决方案--------------------