您所在位置：主题：提示：“未找到方法和数据成员”，该怎样解决
kewqd
[专家分：0] 发布于 2008-10-18 06:44:00
Private Sub Command1_Click(Index As Integer)
Dim cnDk As New ADODB.Connection
Dim strDk As String
Dim rDk As New ADODB.Recordset
Dim sql As String
strDk = "DBQ=" & App.Path & "\房产信息.mdb;Driver={Microsoft Access Driver (*.mdb)};"
cnDk.Open strDk
sql = "insert into 房产库 (房产户型,房产地址,销售价格,房面积) values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "')"
cnDk.Execute sql
cnDk.Close
Set cnDk = Nothing
End Sub
此代码提示：未找到方法和数据成员；经修改后仍未解决，请各位朋友，帮忙解决下！
Dim cnDk As New ADODB.Connection
Dim strDk As String
Dim rDk As New ADODB.Recordset
Dim sql As String
strDk = "DBQ=" & App.Path & "\房产信息.mdb;Driver={Microsoft Access Driver (*.mdb)};"
cnDk.Open strDk
sql = "insert into 房产库 (房产户型,房产地址,销售价格,房面积) values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "')"
cnDk.Execute sql
cnDk.Close
Set cnDk = Nothing
End Sub
此代码提示：未找到方法和数据成员；经修改后仍未解决，请各位朋友，帮忙解决下！
