# 下列SQL那里错误

Posted by jef on July 15, 1998 at 15:38:01:

Private Sub Command1_Click()
Dim X, Y, V As Integer
Dim sSQL As String
'Dim dbs As Database
'Set dbs = OpenDatabase("c:\s\vbdb.mdb")
'sSQL = txtField(0).text
For X = 0 To 5
If txtField(X).Text <> " " Then
sSQL = sSQL + ("学生资料." + txtField(X).Text + ",")
End If
Next
V = Len(sSQL) - 1
sSQL = Left(sSQL, V)
SQL = "SELECT 'sSQL' FROM 学生资料"
'Set qd = dbs.CreateQueryDef("
End Sub

Follow Ups:

- Re: 下列SQL那里错误 wave 10:01:22 7/16/98 (0)