各位大侠！我是一个VB出学者！我怎样才能在程序中创建一个数据库？需要什么控件呢？

Question

我怎样才能在程序中创建一个数据库？需要什么控件呢？
还有怎样创建表呢？

Answer 1

Public Sub cretedatabase()   Dim cnn1 As ADODB.Connection
   DIM SQL AS STRING   ' 打开连接。
      strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn
   
   SQL="这里是你建立数据库的sql语句"
   cnns1.excute sql
   msgbox "数据库建立完成"
   cnns1.close
End Sub

Answer 2

'引用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" 
'建立数据库
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