Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Create Tabla ???

20/07/2005 - 08:27 por Mashy | Informe spam
Ayuda Hacer una pregunta
Hola grupo, les muestro, este codigo me da error:

Case Is = "SQLOLEDB.1"

Try

' Crea base de datos SQL.

' Probamos la conexion SQL SERVER 2000

sConexionDB = "Provider=SQLOLEDB.1;" & _

"Data Source=PROGRAMADOR\JRI;" & _

"Initial Catalog=;" & _

"UID=MASHYJRI;" & _

"PWD=MASHYJRI;" & _

"Persist Security Info=True"

Dim ConexionDB As New OleDbConnection(sConexionDB)

' Dim HolaAdo As ADODB.Connection

ConexionDB.Open()

If ConexionDB.State = 1 Then

MessageBox.Show("SQL Server identificado", "Acción Informática",
MessageBoxButtons.OK, MessageBoxIcon.Information)

' Aqui se crea la base de datos inicial o de base.

' Dim mySQL As String = "IF EXISTS (SELECT * FROM master..sysdatabases WHERE
Name = 'AI_Seguros.mdf') DROP DATABASE 'AI_Seguros' CREATE DATABASE
'AI_Seguros"

' sCommandDB = "CREATE DATABASE AI_Seguros "

sCommandDB = "CREATE DATABASE MyDatabase ON PRIMARY" & _

" (NAME = MyDatabase_Data," & _

" FILENAME = 'MyDatabaseData.mdf'," & _

" SIZE = 2MB," & _

" MAXSIZE = 10MB," & _

" FILEGROWTH = 10%)" & _

" LOG ON" & _

" (NAME = MyDatabase_Log," & _

" FILENAME = 'MyDatabaseLog.ldf'," & _

" SIZE = 1MB," & _

" MAXSIZE = 5MB," & _

" FILEGROWTH = 10%)"

Dim CommandDB As New OleDbCommand ' (sCommandDB, ConexionDB)

CommandDB.Connection = ConexionDB

CommandDB.CommandText = sCommandDB

CommandDB.ExecuteNonQuery()

' aqui grabamos ini

EscribeIni("c:\AI.ini", "Config", "Proveedor", "SQLOLEDB.1")

EscribeIni("c:\AI.ini", "Config", "Origen", "PROGRAMADOR\JRI")

EscribeIni("c:\AI.ini", "Config", "Catalog", "")

EscribeIni("c:\AI.ini", "Config", "Usuario", "MASHYJRI")

''aqui puedes usar algun metodo para encriptar el pass

EscribeIni("c:\AI.ini", "Config", "Clave", "MASHYJRI")

Return True

MessageBox.Show("La nueva base de datos creaa con exito !",
MessageBoxButtons.OK, MessageBoxIcon.Information)

Else

Return False

End If

ConexionDB.Close()

ConexionDB.Dispose()

Catch OledbExc As OleDbException

MessageBox.Show(OledbExc.ToString, "SQL Exception Error!",
MessageBoxButtons.OK, MessageBoxIcon.Error)

Catch Exc As Exception

MessageBox.Show("SQL Or MSDE Connection Fallada ", MessageBoxButtons.OK,
MessageBoxIcon.Error)

End

End Try

Case Else

EL ERROR QUE ME DA ES EL SIGUIENTE:

PERMISO CREATE DATABASE DENEGADO EN LA BASE DE DATOS 'MASTER'..

DESDE YA GRACIAS...
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 A.Poblacion
20/07/2005 - 08:46 | Informe spam
Bueno, el error es bastante claro: Has intentado hacer un Create Database y
el sistema te informa que el usuario que está intentando crear la base de
datos (MASHYJRI con la cadena de conexión que has puesto) no tiene permiso
para hacerlo.
Si quieres comprobar que la sentencia está bien, cambia momentaneamente la
cadena de conexión para que haga login con el usuario sa (administrador del
servidor de base de datos) y su password correspondiente, y comprueba si
funciona. Una vez verificado que las sentencias se ejecutan correctamente,
vuelve a poner el usuario MASHYJRI, y concédele desde SQL Server el permiso
de crear bases de datos.


"Mashy" wrote in message
news:%
Hola grupo, les muestro, este codigo me da error:

Case Is = "SQLOLEDB.1"

Try

' Crea base de datos SQL.

' Probamos la conexion SQL SERVER 2000

sConexionDB = "Provider=SQLOLEDB.1;" & _

"Data Source=PROGRAMADOR\JRI;" & _

"Initial Catalog=;" & _

"UID=MASHYJRI;" & _

"PWD=MASHYJRI;" & _

"Persist Security Info=True"

Dim ConexionDB As New OleDbConnection(sConexionDB)

' Dim HolaAdo As ADODB.Connection

ConexionDB.Open()

If ConexionDB.State = 1 Then

MessageBox.Show("SQL Server identificado", "Acción Informática",
MessageBoxButtons.OK, MessageBoxIcon.Information)

' Aqui se crea la base de datos inicial o de base.

' Dim mySQL As String = "IF EXISTS (SELECT * FROM master..sysdatabases


WHERE
Name = 'AI_Seguros.mdf') DROP DATABASE 'AI_Seguros' CREATE DATABASE
'AI_Seguros"

' sCommandDB = "CREATE DATABASE AI_Seguros "

sCommandDB = "CREATE DATABASE MyDatabase ON PRIMARY" & _

" (NAME = MyDatabase_Data," & _

" FILENAME = 'MyDatabaseData.mdf'," & _

" SIZE = 2MB," & _

" MAXSIZE = 10MB," & _

" FILEGROWTH = 10%)" & _

" LOG ON" & _

" (NAME = MyDatabase_Log," & _

" FILENAME = 'MyDatabaseLog.ldf'," & _

" SIZE = 1MB," & _

" MAXSIZE = 5MB," & _

" FILEGROWTH = 10%)"

Dim CommandDB As New OleDbCommand ' (sCommandDB, ConexionDB)

CommandDB.Connection = ConexionDB

CommandDB.CommandText = sCommandDB

CommandDB.ExecuteNonQuery()

' aqui grabamos ini

EscribeIni("c:\AI.ini", "Config", "Proveedor", "SQLOLEDB.1")

EscribeIni("c:\AI.ini", "Config", "Origen", "PROGRAMADOR\JRI")

EscribeIni("c:\AI.ini", "Config", "Catalog", "")

EscribeIni("c:\AI.ini", "Config", "Usuario", "MASHYJRI")

''aqui puedes usar algun metodo para encriptar el pass

EscribeIni("c:\AI.ini", "Config", "Clave", "MASHYJRI")

Return True

MessageBox.Show("La nueva base de datos creaa con exito !",
MessageBoxButtons.OK, MessageBoxIcon.Information)

Else

Return False

End If

ConexionDB.Close()

ConexionDB.Dispose()

Catch OledbExc As OleDbException

MessageBox.Show(OledbExc.ToString, "SQL Exception Error!",
MessageBoxButtons.OK, MessageBoxIcon.Error)

Catch Exc As Exception

MessageBox.Show("SQL Or MSDE Connection Fallada ", MessageBoxButtons.OK,
MessageBoxIcon.Error)

End

End Try

Case Else

EL ERROR QUE ME DA ES EL SIGUIENTE:

PERMISO CREATE DATABASE DENEGADO EN LA BASE DE DATOS 'MASTER'..

DESDE YA GRACIAS...




Preguntas similares

 

Busqueda sugerida :