如何用VB動態連接SQL資料庫

Question

在VB中不使用ADO控件的情況下如何動態來處理SQL中的資料.

Answer 1

'引用Microsoft Activex Data Object2.x Library
Dim cn As New ADODB.Connection
dim rs as new adodb.recordset'连接
cn.Open "Provider=SQLOLEDB;Data Source=服务器名;User Id=sa;PassWord=****;Initial Catalog=master"  'Microsoft OLE DB Provider for SQL Server
'建立数据库
cn.Execute "create database 数据库名"
cn.Execute "use 数据库名"
'建立新表
cn.Execute "create table 表名(列1 int, 列2 varchar(10))"
'往表中添加纪录
cn.Execute "insert into 表名(列1,列2) select 1111,'abcdeflkj'"
cn.Execute "insert into 表名(列1,列2) select 22,'add'"
'更新纪录
cn.Execute "update 表名 set 列2='xxxx' where 列1=22"
'删除纪录
cn.Execute "delete 表名 where 列2='abcdeflkj'"'查询
rs.open "select * from 表名 where 列1=1111",cn 
do while not rs.eof
 debug.print rs.fields(0) 
  rs.movenext
loop
rs.close
set rs=nothing
cn.Close
Set cn = Nothing