高分求：SQL语句中如何使用变量！！！Up者有分！！不够再加!

Question

ADOCn.Execute " INSERT INTO tab (id,name) VALUES ('2', '张三')"'在这句中的id 和name用变量代替在这句中如果id,name这两个能用一个变量代替，'2', '张三'这两个也能用一个变量代替,那就更好了！会灵活些！

Answer 1

mSQL = "select " & aa & "from " & bb'在这句中的field 和tab都要用变量来代替
          ADORs.Open mSQL, ADOCn, adOpenStatic, adLockReadOnly, adCmdText
          text1 = ADORs!id'在这句中的id要用变量代替   ADOCn.Execute " INSERT INTO tab (" & aa & "," & bb & ") VALUES ('2', '张三')"'在这句中的id 和name用变量代替


    ADOCn.Execute "UPDATE tab SET " & aa & " = 5 WHERE " & bb & " = 2"'在这句中的id 和name用变量代替   ADOCn.Execute "DELETE " & aa & " FROM tab WHERE " & bb & " = 2"'在这句中的id 和name用变量代替

Answer 2

text1 = ADORs.Fiels(aaa).Value'在这句中的id要用变量代替

Answer 3

1.mSQL = "select " & strfield & " from " & strtab
 ADORs.Open mSQL, ADOCn, adOpenStatic, adLockReadOnly, adCmdText
          text1 = ADORs!id'在这句中的id要用变量代替
2. sql = " INSERT INTO " & strtab &"(" & strid & "," & strname & ") VALUES ('" strnum & "', '" & strname & "')"
  ADOCn.Execute 
3.sql = "UPDATE tab SET " & strname & " = " & num & " WHERE " & strid & " = " & valID
    ADOCn.Execute

Answer 4

1.mSQL = "select " & strfield & " from " & strtab
 ADORs.Open mSQL, ADOCn, adOpenStatic, adLockReadOnly, adCmdText
          text1 = ADORs!id'在这句中的id要用变量代替
2. sql = " INSERT INTO " & strtab &"(" & strid & "," & strname & ") VALUES ('" strnum & "', '" & strname & "')"
  ADOCn.Execute 
3.sql = "UPDATE tab SET " & strname & " = " & num & " WHERE " & strid & " = " & valID
    ADOCn.Execute

Answer 5

参考：declare @tcnt int
declare @paras varchar(100)
DECLARE @SQLString NVARCHAR(500)
set @paras ='1,3,5'
set @sqlstring=N'select @cnt=count(*) from sysobjects where id in ('+@paras+')'set @tcnt=0
execute sp_executesql 
          @sqlstring,
          N'@cnt int output',
      @cnt=@tcnt output
select @tcnt

Answer 6

楼上的是SQL SERVER方法的正解..
在VB中则是通过字符串连接运算进行.其实在SQL SERVER中,用SQL的字符串运算也可以..通过sql 传递变量有一个好处,可以减少应用层到数据层之间数据的不必要的往来.

Answer 7

在所有你想用变量的地方用类似如下的字符代替就行了
"'" & 变量名 & "'"

Answer 8

Select Case DTP.Month
    
        Case 1 '如果是一月份，考勤记录保存到一月份
            TableN = "Check" & "Jan"
        Case 2 '如果是二月份，考勤记录保存到二月份
End Select
    
        Set Rs = New ADODB.Recordset
        strSQL = "select * from " & TableN & " where WorkDate=" & DTP.Day & " and YNumber=" & pNumber
        Rs.Open strSQL, Conn, adOpenDynamic, adLockBatchOptimistic
别见笑

Answer 9

在VB中用SQL语句要用到变量的话，要这样写：
"'" & 变量名 & "'"

Answer 10

I hope it's useful to you.'将字符串中多个内容一次性替换掉
'例如：strTmp=ResolveString("AB|1|2E","|1","C","|2","D")
'       得到的结果是"ABCDE"
'替换的内容可以无限多个，参数两个为一组，注意
Public Function ResolveString(ByVal sResString As String, ParamArray varReplacements() As Variant) As String
    Dim intMacro As Integer
    Dim strMacro As String
    Dim strValue As String    ' For each macro/value pair passed in...
    For intMacro = LBound(varReplacements) To UBound(varReplacements) - 1 Step 2
        strMacro = varReplacements(intMacro)
        strValue = varReplacements(intMacro + 1)        'Replace all occurrences of strMacro with strValue
        sResString = Replace$(sResString, strMacro, strValue)
    Next intMacro    ResolveString = sResString
End Function'将字符串中单引号变成两个单引号，用于自己拼写数据库查询SQL时用
Function ResolveStringByQuota(ByVal sSource As String) As String
    ResolveStringByQuota = Replace(sSource, "'", "''")
End Function
mSQL = "select |1 from |2"'在这句中的field 和tab都要用变量来代替
Field="your Field name"
table="your table name"ADORs.Open ResolveString(mSQL,"|1",field,"|2",table, ADOCn, adOpenStatic, adLockReadOnly, adCmdTextid="your Field name"
text1 = ADORs.Fields(id).value

Answer 11

a typing mistake up.SorryADORs.Open ResolveString(mSQL,"|1",field,"|2",table), ADOCn, adOpenStatic, adLockReadOnly, adCmdText

Answer 12

mSQL = "select "' & aa &' "from "' & bb&'
up