急救

[christensen]

我想做个添加用户的数据库操作：
Dim db As Database
Dim td As TableDef
Dim rs As Recordset

Set db = OpenDatabase(App.Path + "\ppl.mdb")
Set rs = db.OpenRecordset("ppl")怎么老是报错，说类型不对？？？？？
If CInt(Val(Text3.Text)) = CInt(Val(Text7.Text)) Then
rs.AddNew
rs.Fields(UserName) = Text2.Text
rs.Fields(password) = CInt(Val(Text3.Text))
rs.Fields(doing) = ImageCombo2.SelectedItem.Index
rs.Update
rs.MoveFirst
Else
MsgBox "error"
End If

[sunnyBelt]

后面的pp1是表名吗？如果是的话，应该有查询语句例如
db.openrecordset("Select * from pp1")

[christensen]

请问：datagrid控件可以直接编辑原始表，那么强大，但好象用MSHFLEXGRID更多，为什么？还有好象MSHFLEXGRID不能直接编辑啊？还有MSFLEXGRID比MSHFLEXGRID控件又差一点，好象他们3个都不能点一个字段值而使所在的那一行全选中啊？你们知道怎么实现吗？不能拖鼠标哦