# 下列SQL那里错误

Posted by tsaitang on August 13, 1998 at 09:05:22:

Type EmployeeRecord
ID As String * 6
Name As String * 9
End Type
Dim dbs As Database
Dim strSQL As String
dim emp as EmployeeRecord
Set dbs = DBEngine.Workspaces(0).OpenDatabas("c\maintain\service.mdb")
emp.id=22131
emp.name=tang
strSQL = "insert into personnel values (emp) "
dbs.Execute strSQL
dbs.Close

Follow Ups:

- Re: 下列SQL那里错误 Stone 15:27:58 8/13/98 (1)
  - Re: 下列SQL那里错误 tsaitang 16:02:04 8/24/98 (0)