VB连接sqlserver数据库

上传：cs14870 浏览： 47 推荐： 0 文件：VBP 大小：1.12KB 上传时间：2019-09-09 15:07:17 版权申诉

DimsAsStringDimrsAsNewADODB.Recordsets="Driver={SQLServer};Database=trsip;UID=sa;PWD=oallserver;Server=10.47.1.12"conn.ConnectionString=sconn.Opentxtsql="selecttop1*frombook"Setrs=NewADODB.Recordsetrs.Opentxtsql,conn,_adOpenKeyset,_adLockOpt