一个创建表的问题！

Question

各位请帮忙！怎样能在VB中打开一个SQLserver数据库，然后在打开的数据库中创建一个表，能否举个简单的例子，谢谢！在线等待！

Answer 1

Dim rsTemp  As New Recordset
Dim ConnectionStr As String
ConnectionStr = "Provider=sqloledb.1;Persist Security Info=False;User ID=sa;Initial Catalog=rss;Data Source=192.168.208.181;Password="
           
szsql = "CREATE TABLE [dbo].[area_code] ( " _
    & "[unit_id] [char] (12) COLLATE Chinese_PRC_CI_AS NOT NULL ," _
    & "[area_code] [char] (6) COLLATE Chinese_PRC_CI_AS NOT NULL ," _
    & "[area_name] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL ," _
    & "[province_in_out] [int] NULL ," _
    & "[annotation] [varchar] (255) COLLATE Chinese_PRC_CI_AS NULL " _
         & ") ON [PRIMARY]"
rsTemp.Open szsql, ConnectionStr

Answer 2

'首先引用Microsoft Activex Data Objects 2.x Library 
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=sqloledb.1;user id=sa;password=密码;Initial Catalog=数据库名;Data Source="
sql= "CREATE TABLE oldxiazaijilu ([id] [int] IDENTITY (1, 1) NOT NULL ,[riqi] [datetime] NULL ,[filename] [char] (100) COLLATE Chinese_PRC_CI_AS NOT NULL ,[neirong] [text] COLLATE Chinese_PRC_CI_AS NULL ,[laiyuan] [char] (100) COLLATE Chinese_PRC_CI_AS NULL,[url] [char] (300) COLLATE Chinese_PRC_CI_AS NULL, [state] [int] NULL) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]"objrs.Open sql, objcon, 3, 1

Answer 3

dim cnn as new adodb.connection
cnn.open "Provider=sqloledb.1;Persist Security Info=False;User ID=sa;Initial Catalog=DatabaseName;Data Source=ServerName;Password="cnn.execute "Create Table TableName(Col1 int,col2 varchar(20))"

Answer 4

'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"    CN.Openstrsql = "CREATE TABLE [DownClass] ([id] [int] IDENTITY (1, 1) NOT NULL ," & _
       "[classname] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ," & _
       "CONSTRAINT [PK_DownClass] PRIMARY KEY  CLUSTERED" & _
       "( [id] )  ON [PRIMARY] ) ON [PRIMARY]"    '执行建表语句
    cn.execute strsql

Answer 5

'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"    CN.Openstrsql = "CREATE TABLE [DownClass] ([id] [int] IDENTITY (1, 1) NOT NULL ," & _
       "[classname] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ," & _
       "CONSTRAINT [PK_DownClass] PRIMARY KEY  CLUSTERED" & _
       "( [id] )  ON [PRIMARY] ) ON [PRIMARY]"    '执行建表语句
    cn.execute strsql

Answer 6

如果是与远程服务器连接，最好用RDO，连接速度快，访问方式也有多种。
Dim prdtemp As rdoResultset
Public gConnection As rdoConnection       pSQL=“SELECT * FROM TALBE”
Set prdtemp = gConnection.OpenResultset(pSQL, rdo.rdOpenStatic, rdo.rdConcurReadOnly, rdo.rdExecDirect)