问一个关于VB控键的问题～～～急！！

Question

我用ADO控件连接数据库，实现对数据库中表的删除，插入等操作，要插入的内容从另一个窗口中的TEXT组件中输入，请问怎么传到ADO控件中并实现插入我的插入方法代码如下：
Private Sub Form_Load()
Adodc1.Recordset.AddNew
Adodc1.Recordset("RoomNO") = ？？？？？
Adodc1.Recordset("RoomPosition") = ？？？
Adodc1.Recordset("RoomState") = ？？？？
Adodc1.Recordset("RoomType") = ？？？？？
Adodc1.Recordset.Update
End Sub

Answer 1

我用ADO控件连接数据库，在第一个窗口用DATAGRID控件显示并实现对数据库中表的删除，插入等操作，要插入的内容从另一个窗口中的TEXT组件中输入，请问怎么传到ADO控件中并实现插入我的插入方法代码如下：
Private Sub Form_Load()
Adodc1.Recordset.AddNew
Adodc1.Recordset("RoomNO") = ？？？？？
Adodc1.Recordset("RoomPosition") = ？？？
Adodc1.Recordset("RoomState") = ？？？？
Adodc1.Recordset("RoomType") = ？？？？？
Adodc1.Recordset.Update
End Sub假如第一个窗口为FrmGrid另一个窗Frmdatain .RoomNO,RoomPosition,RoomState,RoomType的输入框分别为：text1,...text4  怎么把TEXT中的数据返回.

Answer 2

晕。Adodc1.Recordset.AddNew
Adodc1.Recordset("RoomNO") = text1.text
Adodc1.Recordset("RoomPosition") =text2.text
Adodc1.Recordset("RoomState") =text3.text
Adodc1.Recordset("RoomType") =text4.text
Adodc1.Recordset.Update

Answer 3

'必须确保你两个窗体都未卸载
Adodc1.Recordset("RoomNO") = Frmdatain.Text1.Text
Adodc1.Recordset("RoomPosition") = Frmdatain.Text2.Text
Adodc1.Recordset("RoomState") = Frmdatain.Text3.Text
Adodc1.Recordset("RoomType") = Frmdatain.Text4.text

Answer 4

有VB一般的方式,也有用類與對象的操作方式,
一般方式
 FrmGrid中點<添加>時
  Frmdatain.show 1,me
 在Frmdatain中,輸入完信息后,點<保存>
   Private Sub CmdSave_Click()
    With FrmGrid
      .Adodc1.Recordset.AddNew
       .Adodc1.Recordset("RoomNO") = text1.text
       .Adodc1.Recordset("RoomPosition") =text2.text
       .Adodc1.Recordset("RoomState") =text3.text
       .Adodc1.Recordset("RoomType") =text4.text
      .Adodc1.Recordset.Update
    End With
   End Sub

Answer 5

我按照你们的方法试过，但出现编译错误，*.text被标记，说未找到方法或数据成员，但要是把TEXT输入框和DATAGRID放在一个窗口中就不会出现以上错误，请指教！！！！

Answer 6

你可以在第二个窗体设几个公用变量，有几个text就设几个变量，然后再退出的时候将text中的值保存到变量中，然后在form1中直接.Adodc1.Recordset("RoomState") =form2.(公用变量）就行了，这样你就是Unload form2也可以这样读取来。

Answer 7

Private Sub Form_Load()
Adodc1.Recordset.AddNew
Adodc1.Recordset("RoomNO") = Frmdatain.Text1.Text
Adodc1.Recordset("RoomPosition") = Frmdatain.Text2.Text
Adodc1.Recordset("RoomState") = Frmdatain.Text3.Text
Adodc1.Recordset("RoomType") = Frmdatain.Text4.textAdodc1.Recordset.Update
End Sub

Answer 8

使用上面的程序时，要注意不能在使用 unload Frmdatain 了之后才执行上面的程序，因为一旦使用unload以后，对话框内的内容就会丢失。

Answer 9

以下是一段代码，实现DATA控件中的查找并修改功能，语法没错但就是找不到对应项,只显示
"没有该记录"是何故？？？
Private Sub Command2_Click()
Data1.Recordset.FindFirst "RoomNO='Text5.Text'"
If Data1.Recordset.NoMatch Then
MsgBox "没有该记录"
Else
Data1.Recordset("RoomPosition") = Text6.Text
Data1.Recordset("roomstate") = Text7.Text
Data1.Recordset("roomtype") = Text8.Text
Data1.Recordset.Update
End If
End Sub

Answer 10

Private Sub Command2_Click()
Data1.Recordset.FindFirst "RoomNO = '" & Text5.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox "没有该记录"
Else
Data1.Recordset("RoomPosition") = Text6.Text
Data1.Recordset("roomstate") = Text7.Text
Data1.Recordset("roomtype") = Text8.Text
Data1.Recordset.Update
End If
End Sub

Answer 11

MSDN的帮助：recordset.{FindFirst | FindLast | FindNext | FindPrevious} criteriaThe Find methods have these parts.Part Description 
recordset An object variable that represents an existing dynaset- or snapshot-type Recordset object. 
criteria A String used to locate the record. It is like the WHERE clause in an SQL statement, but without the word WHERE. 

Answer 12

还请问一个问题，Adodc的updatecontrols方法怎么用，请举例说明。谢谢！！