vb utiliza sentencias SQL para crear una base de datos.
dim conn como nuevo ADODB.
conn.ConnectionString = "driver={SQL Server}" & _
"server=" & ServerName & "uid=" & UserName & " "
pwd=" amp ; Contraseña amp; ";
Dim conn.open se conecta a la base de datos
Nota: ServerName es el nombre del servidor; UserName es el nombre de usuario; Contraseña es la contraseña del usuario; DatabaseName es el nombre de la base de datos a iniciar sesión y puede estar vacío
El código principal es el siguiente:
Primero, cree la base de datos
Principio: Para. Para crear una base de datos, primero debe inicializarla. Dispositivo de base de datos y luego crear la base de datos en ese dispositivo. Todos los nombres de los dispositivos se registran en la tabla del sistema "sysdevices" y todos los nombres de la base de datos se registran en la tabla del sistema "sysdatabases". para consultar ambos sistemas antes de crear la tabla de nombres para ver si el nombre ya existe. Antes de crear el dispositivo, también se requiere un nombre físico y un número de identificación del dispositivo libre.
Inicialice la sintaxis del dispositivo:
DISK INIT NAME="nombre_dispositivo. ", PHYNAME=
"nombre_físico", VDEVNO=número_dispositivo,
SIZE=númerodebloque
Descripción: donde NAME es el nombre del dispositivo de la base de datos (identificador válido), PHYNAME (el nombre físico del dispositivo de la base de datos) es el nombre de la partición del disco original UNIX o del periférico (vms), o el nombre del archivo del sistema operativo vdevno es el número de identificación del dispositivo de la base de datos. , el valor legal es 1-255, el TAMAÑO está en bloques de 2 KB, por ejemplo, 1 MB (
Crear sintaxis de base de datos: CREATE DATABASE nombre_base de datos [ON dispositivo_base de datos]
Nota: nombre_base de datos es el nombre de la base de datos que se creará, dispositivo_base de datos es el nombre del dispositivo.
Para crear una nueva base de datos, se requieren el nombre del dispositivo, el nombre de la base de datos, el nombre físico y el número del dispositivo. Los pasos específicos son los siguientes:
Supongamos que el usuario desea crear un nuevo nombre de base de datos del dispositivo y crear un nombre de base de datos en el nombre de base de datos del dispositivo.
1) Obtenga el nombre del dispositivo bName es el nombre del dispositivo proporcionado por el usuario; primero, consulte la tabla del sistema sysdevices para ver si el nombre del dispositivo dbName dado por el usuario ya existe. , debe utilizar Reemplazar con un nombre nuevo porque los nombres de los dispositivos son únicos.
sql = "select * from sysdevices
donde nombre=" amp dbName amp ""
Establecer rs = conn.Execute(sql) p>
Si no es rs.EOF, entonces
MsgBox "Nombre del dispositivo "" & dbName & ""
¡Ya existe!
Establecer". rs = conn.Execute(sql)
Si no es rs.EOF entonces
MsgBox "Device Name "" amp; dbName amp; ""
Ya existe !, 16, "Vuelva a ingresar el nombre"
Salir de Sub
End If
2) Obtenga el nombre de la base de datos dbName es el nombre de la base de datos proporcionado. por el usuario; consulte la tabla del sistema sysdatabases para ver si el nombre de la base de datos dbName proporcionado por el usuario ya existe. Si la base de datos existe, debe reemplazarla con un nombre de base de datos. Al igual que el nombre del dispositivo, el nombre de la base de datos también es único.
sql = " select * from sysdatabases
donde nombre=" amp dbName amp ""
Establecer rs = conn.Execute(sql)
Set rs = conn. Execute(sql)
Set rs = conn.Execute(sql)Execute(sql) Se omite el siguiente código
3) Obtenga el PHYNAME Nombre físico del archivo de la base de datos de consulta en la ruta del servidor. Ubicación física. Normalmente, podemos consultar la ubicación de la base de datos maestra (este es el nombre de la biblioteca principal de SQL Server) desde la tabla del sistema sysdevices, como G: \MSSQL\DATA\MASTER.DAT, entonces nuestra base de datos se puede construir en el directorio "G:\MSSQL\DATA\", luego podemos construir en el directorio "G:\MSSQL\DATA\", y luego podemos construir el directorio "G:\MSSQL\DATA\" " en el directorio.
sql = "select name, phyname from sysdevices "
low/16777216 es el número de dispositivo
Set rs = conn.Execute(sql)
Luego recorra el objeto de registro rs, y cuando nombre="master", saque phyname,
Para que se pueda obtener la ubicación física serverpath =G:\MSSQL\DATA\.