Private Sub Form_Load()
'连接数据库
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Users\a\Documents\数据库\家庭财务\JTCW.mdb;" & "Persist Security Info=False"
'打开记录集
Dim strSQL As String
strSQL = "SELECT 姓名 from 家庭成员 ORDER BY 姓名"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
Set txtName.DataSource = rs
txtName.DataField = "姓名"
Set DataList1.RowSource = rs
DataList1.ListField = "姓名"
End Sub
运行时没有未找到方法和数据成员
'连接数据库
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Users\a\Documents\数据库\家庭财务\JTCW.mdb;" & "Persist Security Info=False"
'打开记录集
Dim strSQL As String
strSQL = "SELECT 姓名 from 家庭成员 ORDER BY 姓名"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
Set txtName.DataSource = rs
txtName.DataField = "姓名"
Set DataList1.RowSource = rs
DataList1.ListField = "姓名"
End Sub
运行时没有未找到方法和数据成员
解决方案 »
- 打包要连DBF数据库的VB程序需要注册些什么?
- 在vb中取得access的所有表名.该怎么取,
- soap 方式调用webservice出错!!!!!!!!!!!!!!!!!!!!!!!!!急!!!
- 求压缩图片源码
- MDAC-TYP问题
- 在VB中怎样仅用adodb.connect对象调用sql server中的存储过程并传回值?
- 请问在VB中如何加入MID背景音乐??
- 请问DataGrid控件怎么加上,我是新手,帮帮我
- Begin TransAction 有什么用?
- 我机器上vb6.0的bug
- 如何获得Word文档窗口的屏幕坐标, 不是Word应用程序的窗口坐标
- 用VB怎么把两个wav音频文件合并成一个文件?
请确认是哪句报错
DataList1.ListField = "姓名"
这两句报错,属性框里没有RowSource 和ListField这两个属性
加载microsoft datalist controls 6.0 选择listbox就会有这方面的属性。