不使用数据绑定，如何显示数据？

renzhm

我用向导生成了数据表，但我不想使用数据绑定，我想使用带有条件的sql语句
实现，请问如何实现？我的部分源代码：

Private Sub Form_Load()
  On Error GoTo Except
  Dim ConnStr As String
  ConnStr = "File Name=" & CurrentProject.Path & "\ast.udl;"
  Dim Conn As ADODB.Connection
  Set Conn = New ADODB.Connection
  Conn.Open ConnStr
  
  Dim Recordset As ADODB.Recordset
  Set Recordset = New ADODB.Recordset
  Recordset.Open "select * from Employe", Conn
  
'以下的写法会出错，不知道怎么写！
' Set Me.Recordset = Recordset
' Set ID.Requery = Recordset.Fields("ID")
' Set Name.Requery = Recordset.Fields("Name")
  Exit Sub
Except:
  MsgBox "error"
End Sub

sunredday

Dim Recordset As ADODB.Recordset
是否应该改为
dim rec as adodb.recordset
recordset应该是保留字
Set Me.Recordset = Rec
只是猜测喽

renzhm

谢谢提醒，如何给窗体赋记录源，以及给文本框赋控件来源！

我是从Delphi转学ADP+MSSQL，有些模式老是想着Delphi的实现模式

renzhm

在属性面板上，可以设定窗体的记录源为select * from Employe，为什么
在语句中不行？

set me.recordsource ="select * from Employe"  为什么不行？

在有，能在属性板上设定文本框的控件源，为什么用语句不行？

高手啊，请帮忙，斑竹啊，请关注！

renzhm

唉！还是自己调试通了：

me.recordsource ="select ID,Name from Employe"  '不能用set 不知道为什么

ID.ControlSource="ID"
NameLst.ControlSource="Name"  'Name 是关键字吗，我用它命名文本框不行