connection

Question

Private Sub Command1_Click()
On Error GoTo dealerror
Dim objCon As connection
Set objCon = New connection
strcn = "provider=SQLOLEDB.1;User ID =sa Data source=(local)"
objCon.connectionstring = strcn
objCon.open
strsql = "CREATE DATABASE 实例2"
objCon.execute strsql
MsgBox "成功创建数据库"
objCon.Close
strcn = "provider=SQLOLEDB.1;User ID =sa Data source=(local);initial ctalog=实例2"
objCon.connectionstring = strcn
objCon.open
strsql = "create table 测试表(用户名 varchar(13) not null primary key,口令 char(6) not null )"
objCon.execute strsql
MsgBox "成功创建数据库"
strsql = "insert 测试表(用户名,口令) values('admin ','123456')"
objCon.Close
Set objCon = Nothing
Command2.Enabled = True
Exit Subdealerror:
MsgBox "数据库创建过程出错" & Err.Descriptionend sub各位大哥,小弟我初学数据库,其中的 connection 不知道为什么出错了.创建不了数据库.

Answer 1

Dim   objCon   As   connection
Set   objCon   =   New   connection 你用ado怎么没有ado的声明，回来再看，只不过第一句就错了

Answer 2

Dim   objCon   As   ADODB.Connection
Set   objCon   =   New   ADODB.Connection  

Answer 3

'如果是刚学习的，请把基础打好，别写个代码，都没有引用正确
'1、最基础的ado没有引用，没有声明
'2、代码建立数据库也好，建立表也好，都不要用中文，这是非常恶劣的习惯。
Public Conn As New ADODB.Connection
Public Rs As New ADODB.RecordsetPrivate Sub Command1_Click()
    Dim strConn As String
    Dim strSQL As String    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=localhost"    '打开连接
    Conn.Open strConn    '错误处理
    On Error GoTo ErrDB:
    '开始创建数据库,加设这个数据库名为ITPub
    Conn.Execute "create database [ITPub]"
    '设置Connection默认数据库为这个
    Conn.DefaultDatabase = "ITpub"
    Me.Caption = "创建成功ITpub数据库!"    On Error GoTo Errtable:
    '创建表PubUsers
    strSQL = "Create table PubUsers(Userid char(4) not null primary key,UserName Varchar(13) not null)"
    Conn.Execute strSQL    Me.Caption = "成功创建PubUsers表"    '插入一条数据    strSQL = "insert into PubUsers(UserID,UserName) values('S001','Susan')"
    Conn.Execute strSQL
    Me.Caption = "插入数据成功"    '关闭连接
    Conn.Close
    Set Conn = NothingExit SubErrDB:
    Me.Caption = "创建ITpub数据库失败"
    Err.ClearErrtable:
    Me.Caption = "创建表失败"
    Err.Clear    Conn.Close
    Set Conn = Nothing
End Sub