1个回答
展开全部
Public Conn As ADODB.Connection '先声明个全局变量
Dim CN As New ADODB.Connection
Connect = False
' CN.Provider = "Microsoft.Jet.OLEDB.4.0" 'access
CN.Provider = "sqloledb.1" 'sqlserver
CN.ConnectionTimeout = 5
CN.CursorLocation = adUseClient
CN.ConnectionString = "Initial Catalog=" & svr.database _
& ";Data Source=" & svr.svr _
& ";Password=" & svr.userpaw _
& ";Persist Security Info=True;" _
& "User ID=" & svr.userid & ";"
CN.Open
Set Conn = CN
以上连接至SQLserver的数据库了
然后再操作
sql="CREATE TABLE [表名]([字段一] varchar(10),[字段二] int not null primary key,[字段三] varchar(10))""
conn.excute(sql)
这样就可以了。
svr.database 换成 数据库
svr.svr 换成 服务器
svr.userpaw 换成 登陆sql的的用户密码
svr.userid 换成 登陆sql的用户名 如sa
Dim CN As New ADODB.Connection
Connect = False
' CN.Provider = "Microsoft.Jet.OLEDB.4.0" 'access
CN.Provider = "sqloledb.1" 'sqlserver
CN.ConnectionTimeout = 5
CN.CursorLocation = adUseClient
CN.ConnectionString = "Initial Catalog=" & svr.database _
& ";Data Source=" & svr.svr _
& ";Password=" & svr.userpaw _
& ";Persist Security Info=True;" _
& "User ID=" & svr.userid & ";"
CN.Open
Set Conn = CN
以上连接至SQLserver的数据库了
然后再操作
sql="CREATE TABLE [表名]([字段一] varchar(10),[字段二] int not null primary key,[字段三] varchar(10))""
conn.excute(sql)
这样就可以了。
svr.database 换成 数据库
svr.svr 换成 服务器
svr.userpaw 换成 登陆sql的的用户密码
svr.userid 换成 登陆sql的用户名 如sa
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询