怎样用VB创建dbf临时表
我想用VB从一个Dbf表中的到某些字段得到一个临时表,写法如下:
Dim DbWork As Workspace
Dim DbsDbf As Database
Dim RstCur1, RstCur2 As Recordset
Dim StrCur1, StrCur2 As String
Set DbWork = DBEngine.Workspaces(0)
Set DbsDbf = DbWork.OpenDatabase(Trim(Text1.Text), False, True, "FOXPro 3.0")
'从表中建立Recordset对象
StrCur1 = "SELECT * into 表1 from 表2 where "
Set RstCur1 = DbsDbf.Execute(StrCur1, dbFailOnError)
结果总是出现错误:“缺少函数或变量!”
另外,我把select into 语句换成普通的select语句,可是还是一样!
请问各位问题出现在哪里,难道dbf的database对象不支持Execute方法?