vb6读取access数据怎么通过text控件显示出来
sql = "select * from project_info where 工程名称=' " & Text1(0).Text & " ' "rs1.Open sql, con, 1, 3
If Not rs1.EOF Then
Text1(0).Text = rs1("工程名称")
Text1(1).Text = rs1("建设单位")
Text1(2).Text = rs1("工程编码")
Text1(3).Text = rs1("施工时间")
Text1(4).Text = rs1("所在地")
End If
End If
rs1.Close
