大哥们 真的不是错误 运行的好好的 是我看源代码里的Private Function MakeSQL(strTableName As String) As String
Dim strSQL As String
Dim strReturn As String
Dim rec As Recordset
Dim i As Long
strSQL = "Select * From " & strTableName & " Where False "
On Error GoTo errH:
Set rec = gclsBase.BaseDB.OpenRecordset(strSQL, dbOpenSnapshot)
strReturn = "Select "
For i = 0 To rec.Fields.Count - 2
strReturn = strReturn & rec.Fields(i).Name & ","
Next i
strReturn = strReturn & rec.Fields(rec.Fields.Count - 1).Name
strReturn = strReturn & " FROM " & strTableName
MakeSQL = strReturn
rec.Close
Set rec = Nothing
Exit Function
errH:
strReturn = "表查询失败!" & Err.Description
MakeSQL = strReturn
End Function
Dim strSQL As String
Dim strReturn As String
Dim rec As Recordset
Dim i As Long
strSQL = "Select * From " & strTableName & " Where False "
On Error GoTo errH:
Set rec = gclsBase.BaseDB.OpenRecordset(strSQL, dbOpenSnapshot)
strReturn = "Select "
For i = 0 To rec.Fields.Count - 2
strReturn = strReturn & rec.Fields(i).Name & ","
Next i
strReturn = strReturn & rec.Fields(rec.Fields.Count - 1).Name
strReturn = strReturn & " FROM " & strTableName
MakeSQL = strReturn
rec.Close
Set rec = Nothing
Exit Function
errH:
strReturn = "表查询失败!" & Err.Description
MakeSQL = strReturn
End Function
解决方案 »
- 通过一个子查询得到学生的SNo,SName,平均成绩,将这个结果插入到表score,这个sql语句怎么写??
- 关于hmtl表单元素在数据库中存储
- DTS传参问题:
- 请教各位两个SQL语句的写法
- 急用一条关于日期的sql句子,不用存储过程,在线结贴
- sybase库结构转sqlserver2000时遇到的问题
- 存储过程加密后怎么才能不被解密?在线等待~~~~
- sql出現錯了,請問大家有什麼辦法?
- 有判断条件的查询怎么样子写成一句
- 在VFP6.0(D版)中某个固定表的同一字段的不同记录进行录入,表单内所有文本框控件的显示只能显示最后一个要编辑的记录的字段值。
- 怎样有条件的复制本身表?
- 如何将mysql-dn 变成系统服务?请大家帮忙!
输出来看看...
SQL SERVER 写法:
strSQL = "Select * From " & strTableName & " Where 1=2"
就是取得记录条数为0的记录集,相当于取得表结构
sql没有 false这个东西Where False
这条语句怎么会有错,字符型变量赋值嘛。呵呵,除非,strSQL的类型不是string,那就错了。