VB中SQL语句的使用

具体在vb里用法如下：   
   
  '引用ADO(Microsoft   ActiveX   Data   Objects   2.X   Library)   
  Private   Sub   Command1_Click()   
          On   Error   GoTo   err   
          Dim   cn   As   New   ADODB.Connection   
          '有密码的连接：   
          'cn.ConnectionString   =   "Provider=SQLOLEDB.1;Persist   Security   Info=False;User   ID=登陆用户名;Password=登录密码;Initial   Catalog=数据库名;Data   Source=服务器别名"   
          '无密码的连接：   
          cn.ConnectionString   =   "Provider=SQLOLEDB.1;Integrated   Security=SSPI;Persist   Security   Info=False;Initial   Catalog=数据库名;Data   Source=服务器别名"   
          cn.CursorLocation=adUseClient'设置客户端游标   
          cn.Open   
          cn.Execute("ALTER   你的表   distributors   ADD   COLUMN   你的列名   VARCHAR(30)")   '假设你增加的列的类型为varchar，长度为30      
          Exit   Sub   
  err:   
          MsgBox   err.Description   
  End   Sub


首先，声明两个对象，一个是connection对象，一个是Recordset对象。   
  Dim   cnn1   As   ADODB.Connection   
  Dim   rstTitles   As   ADODB.Recordset   
  然后，打开连接   
  Dim   strCnn   AS   String   
  strCnn   =   "Provider=sqloledb;"   &   _   
              "Data   Source=srv;Initial   Catalog=pubs;User   Id=sa;Password=;   "   
  cnn1.Open   strCnn   
  最后，执行   
   
  rstTitles   “select   *   into   table1   from   table2”,cnn1,adOpenStatic