我想连接到SQL，再运行一段sql，哪位给个源码吧，找了好多都太复杂

Question

我要个最简单的， 能连到 sql  执行一段查询就行了

Answer 1

先在工程中引用 Microsodt ActiveX data 2.5 Liblarypublic conn as new adodb.connection    '定义一个数据库连接对象
'创建一个验证是否连接到数据库的函数
function contodb() as boolean
on error goto deal         '错误处理
    '连接到本地的SQL SERVER数据库
   conn.connection="Provider=SQLOLEDB.1;DataSouce=.;DataBase=my_database;uid=sa;pwd=;"
   conn.connectionString=20       '连接时间
   conn.open
   contodb=true
   exit function
deal:
   msgbox err.description
end function

Answer 2

'执行查询
private sql as string
private rs as new adodb.recordset'在你需要的事件里写
sql="你要执行的查询"
rs.open sql,conn,3,2,-1      '打开数据集
'然后你找个合适的控件接收数据就可以了,如datagrid

Answer 3

先在工程中引用 Microsodt ActiveX data 2.5 Liblarypublic conn as new adodb.connection    '定义一个数据库连接对象
private rs as new adodb.recordset
on error goto deal         '错误处理
    '连接到本地的SQL SERVER数据库
   conn.connection="Provider=SQLOLEDB.1;DataSouce=.;DataBase=my_database;uid=sa;pwd=;" 'myData_base是你的数据库名 uid=sa是默认的用户名 pwd=是登录SQL密码,如果没有可以如上所写,有的话加上
   conn.open
   rs.open "查询语句" 
   exit function
deal:
   msgbox err.description
end function

Answer 4

  谢谢 大伙了，
       还有2个小问题：   1：我要连接的数据库 是IP形式的 DataBase=my_database 是否能写成：  DataBase=192.168.10.122  2：我要执行的是一个删除的sql ，是以脚本形式存放在一个文件中：    type delsql.sql
  
  use mas
  delete coltion
  delete doca
  delete codr
 
  ..............  del ta33
  我如何在 rs.open "查询语句" 中执行这个脚本？