请问VB中如何对SQLServer实现添加和删除

Question

添加什么都可以用存储过程
也行直截用ADO，
也行的不过
如是用网络，
用，存储过程 
好一点，

Answer 1

   Dim cnn1 As ADODB.Connection
   
   ' 不使用数据源名 (DSN) 打开连接。
   Set cnn1 = New ADODB.Connection
   cnn1.ConnectionString = "driver={SQL Server};" & _
      "server=bigsmile;uid=sa;pwd=pwd;database=pubs"
   cnn1.ConnectionTimeout = 30
   cnn1.Open '连接数据库
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.CursorType = adOpenKeyset
   rstEmployees.LockType = adLockOptimistic
   rstEmployees.Open "employee", cnn1, , , adCmdTable'打开一个表
      rstEmployees.AddNew '增加一条新记录
      rstEmployees!emp_id = strID
      rstEmployees!fname = strFirstName
      rstEmployees!lname = strLastName
      rstEmployees.Update
      rstEmployees.Delete '删除一条记录
      rstEmployees.close '关闭表
    cnn1.close '关闭数据库连接

Answer 2

使用ADO编程。
在工程里添加对ADO库地引用，然后就可以：
dim con as new ado.connection
con.connectionstring="dsn=你的ODBC;uid=sa;pwd=;"联接到数据库上
紧接着就可以:
con.excute "delete from table1"
或者con.execute "update table set ..."了
我没装VB，所以上述代码是纯手写的，可能里面有错误的。
建议你上网搜索一下ADO VB。

Answer 3

存储过程也可以 用
Execute 方法 (ADO Command)
      执行在 CommandText 属性中指定的查询、SQL 语句或存储过程。语法对于按行返回的 Command：Set recordset = command.Execute( RecordsAffected, Parameters, Options )对于非按行返回的 Command：command.Execute RecordsAffected, Parameters, Options返回值返回 Recordset 对象引用。