Verificar si existe crear Base Datos SQL, crear tablas con VB6 y SQL Server Estuve investigando y apliqué este código y me funcionó super bien.
'Variables
Dim base_ver As New ADODB.Connection
Dim lcQuery As String
' Comando para crear la base de datos
Dim lacmComando As ADODB.Command
' Para inciar en blanco deben abrir la master
' User y Password definido por el Inicio de Sesion
base_ver.Open "Provider=sqloledb;" & _
"Data Source=" & server_rst!campo_srv & ";" & _
"Initial Catalog=master;" & _
"User Id=" & server_rst!campo_usr & ";Password=" & server_rst!campo_psw & ""
' Abrir la tabla de Bases de datos existentes
Dim sql_db As String
Dim rs As New ADODB.Recordset
' Buscar la base antes de crearla
rs.Open "select name from sysdatabases WHERE NAME = '" & "sisseg" & "'", base_ver
If rs.EOF Then
lcQuery = "Create Database sisseg On Primary"
lcQuery = lcQuery & " (NAME = 'sisseg_data',"
lcQuery = lcQuery & " FILENAME = 'C:\MSSQL7\Data\sisseg_Data.Mdf')"
lcQuery = lcQuery & "Log On (NAME = 'sisseg_Log',"
lcQuery = lcQuery & " FILENAME = 'C:\MSSQL7\Data\sisseg_Log.Ldf')"
Set lacmComando = New ADODB.Command
Set lacmComando.ActiveConnection = base_ver
lacmComando.CommandText = lcQuery
lacmComando.Execute
'lacnSQLMaster.Close
Set lacmComando = Nothing
Dim siss_dbs As New ADODB.Connection
Set lacmComando = Nothing
Dim opr_dbs As New ADODB.Connection
opr_dbs.Open "Provider=sqloledb;" & _
"Data Source=" & server_rst!campo_srv & ";" & _
"Initial Catalog=opr;" & _
"User Id=" & server_rst!campo_usr & ";Password=" & server_rst!campo_psw & ""
opr_dbs.Execute "CREATE TABLE operador " & _
"(indice INT NOT NULL PRIMARY KEY," & _
"nombre VARCHAR(255) NULL," & _
"pasword VARCHAR(255) NULL," & _
"a VARCHAR(255) NULL," & _
"b VARCHAR(255) NULL," & _
"c VARCHAR(255) NULL," & _
"d VARCHAR(255) NULL," & _
"e VARCHAR(255) NULL," & _
"f VARCHAR(255) NULL," & _
"g VARCHAR(255) NULL," & _
"h VARCHAR(255) NULL," & _
"i VARCHAR(255) NULL," & _
"j VARCHAR(255) NULL," & _
"k VARCHAR(255) NULL)"
opr_dbs.Execute "insert into operador (indice,nombre,pasword,a,b,c,d,e,f,g,h,i,j,k) values ('" & _
"1" & "','" & _
"MASTER" & "','" & _
"123456" & "','" & _
"1" & "','" & _
"1" & "','" & _
"1" & "','" & _
"1" & "','" & _
"1" & "','" & _
"1" & "','" & _
"1" & "','" & _
"1" & "','" & _
"1" & "','" & _
"1" & "','" & _
"1" & "')"
opr_dbs.Close
Set opr_dbs = Nothing
end if
rs.close
set rs=nothing
base_ver.close
set set base_ver=nothing
