Si ya lo intente, y me sigue saliendo el mismo...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúDim cmdSql As New SqlConnection("Server=" & NombreInstancia & "; " & "database=master; integrated security=yes")
'La orden T-SQL para crear la tabla
Dim NameData As String = "CREATE DATABASE " & Nombre & " FILENAME = '" & RutaDataBase & "\" & Nombre & ".mdf'"
Dim cmd As New SqlCommand(NameData, cmdSql)
Dim state As Boolean
Try
'Abrimos la conexión y ejecutamos el comando
cmdSql.Open()
cmd.ExecuteNonQuery()
MsgBox("Base de datos creada correctamente", MsgBoxStyle.Exclamation, "Mensaje")
state = True
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & "Error al crear la base", MsgBoxStyle.OkOnly & MsgBoxStyle.Critical, "Error mensaje")
state = False
Finally
'Por si se produce un error,
'comprobar si la conexión está abierta
If cmdSql.State = ConnectionState.Open Then
cmdSql.Close()
End If
End Try
Dim strCN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\Data\UsrAcs.mdb" & ";Persist Security Info=True; Password=" & cfg.PassACESS
Try
CNAcess = New OleDbConnection(strCN)
CNAcess.Open()
Return (True)
Catch exOleDb As OleDbException
MsgBox("Error: " & exOleDb.ErrorCode & vbNewLine & exOleDb.Message, MsgBoxStyle.Critical, "Error!")
Return (False)
End Try
CitarNo se puede iniciar la aplicación. Falta el archivo de información del grupo de trabajo o bien está abierto en modo exclusivo por otro usuario.
Public CNAcess As OleDbConnection
'Abrir la base de datos de acceso
Public Function OpenAccess() As Boolean
Dim strCN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\Data\UsrAcs.mdb" & ";Persist Security Info=True; Password=" & cfg.DBACSPASS
Try
CNAcess = New OleDbConnection(strCN)
CNAcess.Open()
Return (True)
Catch exOleDb As OleDbException
MsgBox("Error: " & exOleDb.ErrorCode & vbNewLine & exOleDb.Message, MsgBoxStyle.Critical, "Error!")
Return (False)
End Try
End Function