vbs 操作数据库（安徽项目中使用）

Function Test
  Dim bb
  bb = "A2"
  Dim aa
  set   conn= createobject("adodb.connection")  
  conn.open   "provider=sqloledb;server=XYQ\XYQ;database=SanCe;uid=sa;pwd=1234;"  
  set   rs   =   conn.execute("select Run from GWRun Where GW='"& bb &"'")  
  do   while   not   rs.eof  
      'msgbox   rs("Run")  
   aa = rs("Run")
      rs.movenext  
  loop  
  rs.close  
  conn.close  
  set   conn=Nothing
  If aa="True" Then
    Test = "1"
  Else
    Test = "0"
  End If
End Function