我看了一些FAQ和原来的的帖子,说得不太详细,我也不太懂,有那位朋友热心相告,分不够可以在加100
解决方案 »
- VB编译报错,急急急!!!
- 多线程?请问为何只能按了取消键才能进行下一步?
- 请问一个C/S结构的数据库应用软件,更改成三层结构的产品,工作量要有多大?
- 如果定位DataGrid的单元格?
- CursorLocation是record的属性还是connection的?它的用处是什么
- 简单问题,送分了。
- 请VB的朋友帮帮忙,小女子在这里先谢了。
- VB中如何打开变量字段的数据库?
- 自定义纸张及横向打印
- vb中如何快速检索?
- 如何用sendmessage发送按键消息??
- 求助:在vb菜单中Reference一个dll文件时出错:“Can't add a reference to the specified file.”
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
' On Error GoTo err
Dim cn As New ADODB.Connection
' 连接到master 数据库,借助master数据库来建立新的数据库
' cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=master;Data Source=服务器别名/IP"
cn.CursorLocation = adUseClient '设置客户端游标
cn.Open
cn.Execute ("use master create database Test")'创建Test数据库 Exit Sub
err:
MsgBox err.Description
End Sub
Dim strCn As String
Dim strSQL As String
Set cn = New ADODB.Connection
'1.创建数据库newDB
strCn = "Provider = SQLOLEDB.1;Persist Security Info = False;" & _
"User ID = sa;Password = MOFZaCW3Ob;Data Source = 192.168.0.179;" & _
"Initial Catalog =master"
cn.ConnectionString = strCn
cn.Open
strSQL = "CREATE DATABASE newDB"
cn.Execute strSQL
MsgBox "成功创建数据库"
cn.Close
'2.连接到新数据库newDB创建表
strCn = "Provider = SQLOLEDB.1;Persist Security Info = False;" & _
"User ID = sa;Password = MOFZaCW3Ob;Data Source = 192.168.0.179;" & _
"Initial Catalog =newDB"
cn.ConnectionString = strCn
cn.Open
'创建表名为tb的表
strSQL = "CREATE TABLE tb(" & _
"username varchar(20) not null primary key," & _
"pass char(10) not null)"
cn.Execute strSQL
MsgBox "成功创建数据库表tb"
cn.Close
Set cn = Nothing
-----------------------
cn.Execute ("USE master CREATE DATABASE Sales " & _
"ON( NAME = Sales_dat, " & _
"FILENAME = 'c:\program files\microsoft sql server\mssql\data\saledat.mdf'," & _
"SIZE = 10,MAXSIZE = 50,FILEGROWTH = 5 ) " & _
"LOG ON( NAME = 'Sales_log'," & _
"FILENAME = 'c:\program files\microsoft sql server\mssql\data\salelog.ldf'," & _
"SIZE = 5MB,MAXSIZE = 25MB,FILEGROWTH = 5MB )")
------------------------------------
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
' 连接到Test数据库
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=Test;Data Source=服务器别名/IP"
cn.CursorLocation = adUseClient '设置客户端游标
cn.Open
cn.Execute ("create table testTable " & _
"[colTime] [datetime] NULL ," & _
"[colFlt] [float] NULL ," & _
"[myImg] [image] NULL ," & _
"[myInt] [int] NULL ," & _
"[myNText] [ntext] COLLATE Chinese_PRC_CI_AS NULL ,")
End Sub