Homo Erasmus

El Homo Erasmus nace, se va de fiesta, se examina y muere.

20 diciembre 2006

appsettings

appSettings>
add key ="Provider" value="Microsoft.Jet.OLEDB.4.0" />
add key ="Data Source" value="C:\Documents and Settings\Karz\Mis documentos\Visual Studio 2005\Projects\PreparacionExamen\grocertogo.mdb" />
add key ="Initial Catalog" value="Nothing" />
add key ="User ID" value="Nothing" />
add key ="Password" value="Nothing" />
/appSettings>

Nota: al principio de todas las lineas excepto la tercera hay que poner el caracter <

DALBase Oledb

Imports System.Configuration
Imports System.Data.Oledb
Public Class DALBase
Implements IDisposable

'Class level variables that are available to classes tha instantiate me
Public SQL As String

Public Connection As OledbConnection
Public Command As OledbCommand
Public DataAdapter As OledbDataAdapter
Public DataReader As OledbDataReader

Public Sub Dispose() Implements System.IDisposable.Dispose
If Not DataReader Is Nothing Then
DataReader.Close()
DataReader = Nothing
End If
If Not DataAdapter Is Nothing Then
DataAdapter.Dispose()
DataAdapter = Nothing
End If
If Not Command Is Nothing Then
Command.Dispose()
Command = Nothing
End If
If Not Connection Is Nothing Then
Connection.Close()
Connection.Dispose()
Connection = Nothing
End If
End Sub

Public Sub OpenConnection()
Try
Connection.Open()
Catch OledbExceptionErr As OledbException
Throw New System.Exception(OledbExceptionErr.Message, _
OledbExceptionErr.InnerException)
Catch InvalidOperationExceptionErr As InvalidOperationException
Throw New System.Exception(InvalidOperationExceptionErr.Message, _
InvalidOperationExceptionErr.InnerException)
End Try
End Sub

Public Sub CloseConnection()
Connection.Close()
End Sub

Public Sub InitializeCommand()
If Command Is Nothing Then
Try
Command = New OledbCommand(SQL, Connection)
'See if this is a stored procedure
If Not SQL.ToUpper.StartsWith("SELECT ") _
And Not SQL.ToUpper.StartsWith("INSERT ") _
And Not SQL.ToUpper.StartsWith("DELETE ") Then
Command.CommandType = CommandType.StoredProcedure
End If
Catch OledbExceptionErr As OledbException
Throw (New System.Exception(OledbExceptionErr.Message, _
OledbExceptionErr.InnerException))
End Try
End If
End Sub

Public Sub New()
'Get the connection settings from the application configuration file
Dim objAppSettings As Specialized.NameValueCollection
objAppSettings = ConfigurationSettings.AppSettings
'Build the SQL connection string and initialize the Connection object
Connection = New OledbConnection("Data Source=" & objAppSettings.Item("Data Source") & ";User ID=" & _
objAppSettings.Item("User ID") & ";Password=" & objAppSettings.Item("Password"))
objAppSettings = Nothing
End Sub

Public Sub AddParameter(ByVal Name As String, ByVal Type As OledbType, _
ByVal Size As Integer, ByVal value As Object)
Try
Command.Parameters.Add(Name, Type, Size).Value = value
Catch OledbExceptionErr As OledbException
Throw New System.Exception(OledbExceptionErr.Message, _
OledbExceptionErr.InnerException)
End Try
End Sub

Public Sub InitializeDataAdapter()
Try
DataAdapter = New OledbDataAdapter
DataAdapter.SelectCommand = Command
Catch OledbExceptionErr As OledbException
Throw New System.Exception(OledbExceptionErr.Message, _
OledbExceptionErr.InnerException)
End Try
End Sub

Public Sub FillDataSet(ByRef oDataSet As DataSet, ByVal TableName As String)
Try
InitializeCommand()
InitializeDataAdapter()
DataAdapter.Fill(oDataSet, TableName)
Catch OledbExceptionErr As OledbException
Throw New System.Exception(OledbExceptionErr.Message, _
OledbExceptionErr.InnerException)
Finally
Command.Dispose()
Command = Nothing
DataAdapter.Dispose()
DataAdapter = Nothing
End Try
End Sub

Public Function ExecuteStoredProcedure() As Integer
Try
OpenConnection()
ExecuteStoredProcedure = Command.ExecuteNonQuery()
Catch ExceptionErr As Exception
Throw New System.Exception(ExceptionErr.Message, _
ExceptionErr.InnerException)
End Try
End Function

Private disposedValue As Boolean = False ' To detect redundant calls

' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
' TODO: free unmanaged resources when explicitly called
End If

' TODO: free shared unmanaged resources
End If
Me.disposedValue = True
End Sub
End Class

08 diciembre 2006

Cuando el cuento se acaba...

Hola a todos.
Quiero pedir disculpas por haber dejado el blog abandonado durante tanto tiempo. Ya sabéis el dicho, el erasmus no duerme, estudia cómo superar la última fiesta...
En los dos últimos meses han pasado muchas cosas. He recibido la visita de mis padres ,primero uno y luego el otro XD, me fui de viaje a Berlín, he visitado 4 veces Brujas (a la cuarta ya... pierde el encanto), estuve en Oostende, una ciudad costera en la otra punta de Bélgica, donde la gente come pescado semicrudo por las calles y el mar no huele a mar; incluso he conocido a una personilla de la que todavía no tengo muy claro cómo voy a despedirme... :P

Para colmo en la facultad hace tiempo que se propusieron amargarnos el erasmus mandandonos trabajos y amenazandonos con exámenes (amenazas a mí, buah). Total, que no solo he tenido poco tiempo para el blog, sino que, como sabéis, tengo poco tiempo hasta para el messenger.

Pero hoy tocaba. Y toca porque el cuento se acaba, como reza el título del post. Ya he confirmado mi estancia aquí de Abril a Junio, con lo cual parece que habrá una continuación. Pero, como todo el mundo sabe, las segundas partes nunca fueron buenas y ésta está destinada a ser de las más chungas. Y es que un buen puñado de los erasmus que nos hemos juntado aquí ya no estarán para entonces, y aunque ponga todo de mi parte, que lo pondré, tengo claro que no va a ser lo mismo.
Y ¿por qué este arranque de melancolía raruna y tempranera? Pues porque hoy cuando acompañaba a mi padre al aeropuerto, Rafa estaba allí, se largaba hoy. Y aunque es uno de los que volverán en Enero, este acontecimiento me ha hecho pensar (y pensar duele, que cuando uno no está acostumbrado, cualquier sobreesfuerzo para las neuronas produce agujetas). Los madriles puede que no estén cuando vuelva (Berlín no habría sido lo mismo sin Javi ni Alberto). Simon se va el sábado y es de los que no vuelve. Maria del Mar, Ana, Marilyn... ellas se van el Febrero y hasta luego Lucas...
Jose Brown no va a volver, aunque promete visitarnos. Pero vaya, éste me pilla cerca allí en Málaga.
Y así, no se cuantos más.
Y para colmo, llega el cabrón del Jose Blond y se marca este video hecho con el Windows Movie Maker (tenía que decirlo XD), que para vosotros no serán más que un puñado de fotos pasando con una cancioncilla de fondo, pero para mi... casi (repito, casi) ha conseguido saltarme las lágrimas.
Los voy a echar de menos.
OS voy a echar de menos.


Pero no os desaniméis. Todavía queda el final del cuento... y es un final que promete!