为什么用ADO绑定到窗体，记录显示的是一样的啊

donney_lixc

数据库用的是sql，有2条记录，但是窗体显示的2条记录是一样的



Private Sub Form_Load()
Dim CNN As Object '定义数据链接对象 ，保存连接数据库信息
Dim rs As ADODB.Recordset '定义记录集对象，保存数据表


Set CNN = CreateObject("ADODB.Connection") '创建数据链接对象
Set rs = CreateObject("ADODB.RecordSet") '创建记录集对象，用于接收数据查询获得的结果集


Dim strCn As String, strSQL As String '链接数据库的字符串变量
'定义本地数据库链接字符串
'strCn = "Provider=sqloledb;Server=本地数据库的名称;Database=数据库名;Integrated Security=SSPI;Persist Security Info=False;"


'定义远程数据库链接字符串


strCn = "Provider=sqloledb;Data Source=127.0.0.1;Initial Catalog=XHP;User ID=sa;Password=lixc223.;Persist Security Info=False;"


CNN.Open strCn




strSQL = "select * from 付款条件表"


rs.Open strSQL, CNN, adOpenKeyset, adLockPessimistic


Set Me.Recordset = rs
Do While Not rs.EOF


Me.Form.Text0 = rs.Fields("ID")
Me.Form.text2 = rs.Fields("合同编号")




rs.MoveNext
Loop
rs.Close
CNN.Close
Set rs = Nothing
Set CNN = Nothing




End Sub

rendiule01

1.sql server 表数据加载到acess表1里
2.窗体的 me.SourceObject="表.表1"

donney_lixc

rendiule01 发表于 2023-2-11 10:43
1.sql server 表数据加载到acess表1里
2.窗体的 me.SourceObject="表.表1"

请问这是什么原因

请问这是什么原因

donney_lixc

rendiule01 发表于 2023-2-11 10:43
1.sql server 表数据加载到acess表1里
2.窗体的 me.SourceObject="表.表1"

Me.SourceObject = "查询.test1"  提示方法和数据成员未找到是什么原因

rendiule01

Dim mydb As Database            '定义数据库对象变量
Dim myquery As QueryDef         '定义查询对象变量
Set mydb = CurrentDb()          '设置数据库对象变量为当前数据库
Set myquery = mydb.CreateQueryDef("test1") '创建名为test的查询
myquery.Connect = "ODBC;DRIVER={SQL Server};SERVER=JS06;UID=sa;PWD=nb8806;DATABASE=MRP" '设置查询为传递查询并定义连接字符串
myquery.SQL = "exec Pr_MRP '" & Me![Ts_date] & "'"  '设置SQL语句,相当于传递查询窗口中的语句。当然也可以用SQL语句。
myquery.ReturnsRecords = True       '返回记录为”真”
'DoCmd.OpenQuery "test1"           '运行这个查询,有数据窗口提供数据结果

Me.SourceObject = "查询.test1"