vb6系统安装-初始化SQLserver数据库

最新推荐文章于 2025-05-03 14:30:51 发布

原创

最新推荐文章于 2025-05-03 14:30:51 发布 · 2.3k 阅读

标签

#sqlserver #vb #数据库 #command #list

这个博客介绍了如何使用VB6来初始化SQL Server数据库。在VB6中创建一个窗体，通过连接到SQL Server，检查数据库是否存在，如果不存在则进行数据库的恢复和创建。同时，该过程涉及设置登录名和权限，确保用户可以安全访问数据库。

需建Module1
Option Explicit
Public goSQLServer As SQLDMO.SQLServer
Public gShowServerEvents As Boolean
Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Cn As New ADODB.Connection

新建一个Form,Copy以下代码

VERSION 5.00
Begin VB.Form Form1
   BorderStyle     =   1 'Fixed Single
   Caption         =   "初始化系统数据库..."
   ClientHeight    =   3360
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5340
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1 'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3360
   ScaleWidth      =   5340
   StartUpPosition =   2 '屏幕中心
   Begin VB.CommandButton Command2
      BackColor       =   &H00FFFFFF&
      Caption         =   "正在查找SQLSERVER数据库服务器，请稍候..."
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   540
      MaskColor       =   &H00FFFFFF&
      TabIndex        =   5
      Top             =   975
      Width           =   4290
   End
   Begin VB.CommandButton Command1
      Caption         =

最低0.47元/天解锁文章