数据库编程小问题，请指教！

Question

rsData.AddNew
rsData(1)=como7.text   '此处rsData(0)才是第一个字段;
rsData.Update在msFlexGrid中，使用.textmatrix(I,J)="XXX"，可以为一个单元格赋值（I是行，J是列)，若要删除一行，可以用.RemoveItem方法来删除一行。

Answer 1

我想设置rsData（0）为自动增长的关键值id，怎么办？RemoveItem能删除数据库中的信息吗？修改怎么办？

Answer 2

try:
Public db As new Database
Public rsData As new Recordset

Answer 3

to  zw_yu,不行呀，运行时说new无效
我现在的问题是：当添加纪录时，显示：
实时错误91
对象变量或with块变量未设置
调试时光标指向：rsData.AddNew
在源代码中我是这样写的：
rsData.AddNew
rsData.Fields(0).Value = text1.Text
rsData。update
//模块
Public db As Database
Public rsData As RecordsetSub Main()
Set db = OpenDatabase(App.Path & "\xxx.mdb")
Set rsData = db.OpenRecordset("jiaban")
frmadd.show
End Sub
请问怎么解决？

Answer 4

虽然我电脑里装的是ACCESS2000，我还是用VB自带的BIOBLE.MDB文件帮你测了一下。你这样做没有问题。关键是你在窗体里的代码，如果你在窗体里没有将rsData关闭的话，不会出现“对象变量或with块变量未设置”，你在rsData.AddNew这一句代码前面还有没有使用过rsData.'模块
Public db As Database
Public rsData As RecordsetSub Main()
Set db = OpenDatabase("e:\db\biblio.mdb")
Set rsData = db.OpenRecordset("Authors")
frmadd.Show
End Sub'窗体
Private Sub Form_Load()
rsData.AddNew
rsData.Fields(1).Value = "gfhgjfgjk"   '该字段是Author是字符串
rsData.Update
End Sub

Answer 5

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set cnn = New ADODB.Connection
cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=你的数据库"
sql = "select*from information"
Set rs = New ADODB.Recordset
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
rs.AddNewrs.Fields(1).Value = combo7.Text
rs.updata一定没问题的
我已经调试成功了

Answer 6

如果上面的还有问题试下面的Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set cnn = New ADODB.Connection
cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=你的数据库"
sql = "select*from information"
Set rs = New ADODB.Recordset
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
rs.AddNewrs.Fields(1) = combo7.Text  《-------------注意这里哦
rs.updata一定没问题的
我已经调试成功了

Answer 7

自动增长的字段不需要赋值。直接使用rs("字段名")=combo7.text，要保证数据类型相同。