vb创建数据库
来源:互联网 发布:边缘融合软件源码 编辑:程序博客网 时间:2024/05/08 04:37
Public Sub Create_DATA(IP As String, uid As String, pwd As String, dataname As String)
'-----------------------创建数据库--------------------------------
'ip服务器IP地址
'uid SQL用户名
'pwd SQL密码
'在IP上创建名字为dataname的数据库
'-----------------------------------------------------------
Dim con1 As ADODB.Connection
Dim test As String
Dim connectstring As String
On Error GoTo errc
Set con1 = New ADODB.Connection
'connectstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=."
connectstring = "Driver=SQL Server;Server=" & IP & ";UID=" & uid & ";PWD=" & pwd & ";Database=Northwind"
con1.Open connectstring
test = "if exists (select * from sysobjects where id = object_id(N'[dbo].[" & dataname & "]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) DROP DATABASE " & dataname
con1.Execute ("if exists (select * from sysobjects where id = object_id(N'[dbo].[" & dataname & "]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) DROP DATABASE " & dataname)
DoEvents
con1.Execute ("create database " & dataname)
con1.Close
Exit Sub
errc:
MsgBox Error(Err.Number), vbOKOnly + vbInformation, "提示"
End Sub
'-----------------------创建数据库--------------------------------
'ip服务器IP地址
'uid SQL用户名
'pwd SQL密码
'在IP上创建名字为dataname的数据库
'-----------------------------------------------------------
Dim con1 As ADODB.Connection
Dim test As String
Dim connectstring As String
On Error GoTo errc
Set con1 = New ADODB.Connection
'connectstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=."
connectstring = "Driver=SQL Server;Server=" & IP & ";UID=" & uid & ";PWD=" & pwd & ";Database=Northwind"
con1.Open connectstring
test = "if exists (select * from sysobjects where id = object_id(N'[dbo].[" & dataname & "]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) DROP DATABASE " & dataname
con1.Execute ("if exists (select * from sysobjects where id = object_id(N'[dbo].[" & dataname & "]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) DROP DATABASE " & dataname)
DoEvents
con1.Execute ("create database " & dataname)
con1.Close
Exit Sub
errc:
MsgBox Error(Err.Number), vbOKOnly + vbInformation, "提示"
End Sub
- VB代码创建数据库
- vb创建数据库
- VB创建Acess数据库
- 【vb数据库】--创建数据库需知
- VB中代码创建数据库
- VB中代码创建数据库
- VB.Net中动态创建Access数据库
- 在VB中动态创建数据库
- VB.Net中动态创建Access数据库
- VB.NET2005创建SQL数据库(转贴)
- VB.NET2008创建动态ACCESS数据库并创建表示例
- VB连接数据库时出现“ActiveX部件不能创建对象”
- 如何用VB.Net创建一个三层的数据库应用程序
- 如何用VB.Net创建一个三层的数据库应用程序
- 如何用VB.Net创建一个三层的数据库应用程序
- [VisualStudio] 用VB动态创建Access数据库简例
- VB程序中用ADO对象动态创建数据库和表
- 如何用VB.Net创建一个三层的数据库应用程序
- SAP加速方法论
- Lotus Notes开发中的14个经验
- 基于BeanUtils和Annotation的值copy工具类(转载)
- XP盗版问题解决方案
- Java入门需掌握的30个基本概念
- vb创建数据库
- HTML_SAP(http://blog.csdn.net/compassbutton/archive/2007/12/24/1964772.aspx)
- Set Tolerance Limits for Price Variance
- 我的程序人生
- ASP.NET 页面对象模型(page)
- HTML_ECLIPSE_ANT(http://www.yesky.com/310/1883310.shtml)
- vb创建数据表
- c++ stl 标准库容器的选择原则(图)
- 忙碌就要开始了