能否直接用DATA1给TEXTBOX赋值？

Question

我想用DATA1的“下一条”和“上一条”功能直接将数据库tan.mdb中的gic表中的内容逐一显示在txetBox控件中，我不想用DBGrid等控件作连接，请问各位如何实现，先谢了！！

Answer 1

设置TextBox的DataMember/DataField属性

Answer 2

Private Sub Data1_Reposition()
   dsp
End SubPrivate Sub Form_Activate()
   dsp
End SubPrivate Sub dsp()
   Dim i As Integer
   For i = 1 To Data1.Recordset.Fields.Count
       Me("text" & i).Text = IIf(IsNull(Data1.Recordset.Fields(i - 1)), "", Data1.Recordset.Fields(i - 1))
   Next
   
End Sub如果想直接绑定请用ADODC控件。

Answer 3

可以直接绑定到DATA控件上，只需要在属性窗口设置即可

Answer 4

添加一个 Text1(0)  Command1  Data1
表名与路径自己改
Dim AppDisk$, i&, Tcols&
Private Sub Form_Load()
   AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
   Data1.DatabaseName = AppDisk & "car.mdb"
   Data1.RecordSource = "车辆表"
   Data1.Refresh
   Tcols = Data1.Database.TableDefs(0).Fields.Count 'mdb里面的第一个表 共有几个字段
   Text1(0).Move 0, 0
   For i = 1 To Tcols - 1
      Load Text1(i)
      Text1(i).Visible = True
      Text1(i).Move Text1(i - 1).Left + Text1(0).Width, Text1(0).Top
   Next i
End SubPrivate Sub Command1_Click()
   If Data1.Recordset.RecordCount <= 0 Then Exit Sub
   Data1.Recordset.MoveFirst '第一笔
   For i = 0 To Tcols - 1
      Text1(i).Text = Data1.Recordset.Fields(i)
   Next i
End Sub