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.
Cita de: badranito en 21 Enero 2015, 00:13 AM
Gracias tio, me acabas de ahorrar 10 euros gracias a tu opinión de Zebera... ya me temía que algo de gato encerrado tenía que tener eso....
Muchas gracias crack!
Cita de: Matisca en 21 Enero 2015, 06:27 AMcapturo el error que dice "@oldnombre no tiene un valor predeterminado", no se cual puede llegar a ser el problema.
parameter = adapter.UpdateCommand.Parameters.Add("@oldnombre", OleDbType.VarChar, 255, "nombre").Value = DBNull.Value
parameter = adapter.UpdateCommand.Parameters.Add("@oldapellido", OleDbType.Char, 255, "apellido").Value = DBNull.ValueCita de: PauChittaro en 21 Enero 2015, 03:50 AMCuando pongo javac MainClass sin la extension .java me tira el siguiente error
error: Class names, 'MainClass', are only accepted if annotation processing is explicitly requested
1 error
Entiendo ingles pero igual no puedo entender el error que me esta tirando
Cita de: http://docs.oracle.com/javase/tutorial/getStarted/problems/index.htmlClass names, 'HelloWorldApp', are only accepted if annotation processing is explicitly requested
If you receive this error, you forgot to include the .java suffix when compiling the program. Remember, the command is javac HelloWorldApp.java not javac HelloWorldApp.
Imports System.Reflection
Imports System.Globalization
Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles Button1.Click
Me.ParseControlInstruction("Textbox2.Enabled = False")
Me.ParseControlInstruction("Textbox2.Hide()")
End Sub
Private Sub ParseControlInstruction(ByVal instruction As String)
Dim isProperty As Boolean
Dim isMethod As Boolean
If instruction Like "*[.]*[!(]*[=]*" Then
isProperty = True
ElseIf instruction Like "*[.]*[!=]*[(]*[)]" Then
isMethod = True
Else
Throw New NotImplementedException(String.Format("Cannot recognize the instruction string: {0}", instruction))
End If
' Fix whitespaces.
instruction = instruction.Trim({" "c})
' Fix Namespaces. (THIS IS NOT PROPERLY IMPLEMENTED)
If instruction.StartsWith("Me.", StringComparison.OrdinalIgnoreCase) Then
instruction = instruction.Remove(0, "Me.".Length)
End If
Dim ctrlName As String = instruction.Substring(0, instruction.IndexOf("."c))
If isProperty Then
Dim propName As String = instruction.Remove(0, ctrlName.Length + 1)
propName = propName.Substring(0, propName.IndexOf(" "c))
Dim value As Object = instruction.Substring(instruction.IndexOf("="c) + 1).Trim({" "c})
Me.SetControlProperty(ctrlName, propName, value, MyBase.Controls, searchChildrens:=True)
ElseIf isMethod Then
Dim methodName As String = instruction.Remove(0, ctrlName.Length + 1).TrimEnd({"("c, ")"c})
Dim methodParamsStr As String = instruction.Substring(instruction.IndexOf("("c) + 1)
methodParamsStr = methodParamsStr.Substring(0, methodParamsStr.LastIndexOf(")"c))
Dim methodParams As IEnumerable(Of Object) = methodParamsStr.Split({", "}, StringSplitOptions.RemoveEmptyEntries)
Me.CallControlMethod(ctrlName, methodName, methodParams, MyBase.Controls, searchChildrens:=True)
End If
End Sub
Private Sub SetControlProperty(ByVal ctrlName As String,
ByVal propName As String,
ByVal value As Object,
ByVal controlCollection As Control.ControlCollection,
Optional ByVal searchChildrens As Boolean = False,
Optional ByVal searchFlags As BindingFlags =
BindingFlags.IgnoreCase Or
BindingFlags.Instance Or
BindingFlags.Public Or
BindingFlags.NonPublic)
Dim ctrl As Control = controlCollection.Find(ctrlName, searchChildrens).FirstOrDefault
Dim prop As PropertyInfo
Select Case ctrl Is Nothing
Case False
Try
prop = ctrl.GetType().GetProperty(propName, searchFlags)
Catch ex As AmbiguousMatchException
Throw New AmbiguousMatchException(String.Format("More than one property found with the same name: {0}", propName))
Exit Sub
End Try
Select Case prop Is Nothing
Case False
Try
prop.SetValue(ctrl, Convert.ChangeType(value, prop.PropertyType), Nothing)
Catch ex As Exception
Throw
End Try
Case Else
Throw New NullReferenceException(String.Format("Property not found by name: {0}", propName))
End Select ' prop Is Nothing
Case Else
Throw New NullReferenceException(String.Format("Control not found by name: {0}", ctrlName))
End Select ' ctrl Is Nothing
End Sub
Private Sub CallControlMethod(ByVal ctrlName As String,
ByVal methodName As String,
ByVal methodParams As IEnumerable(Of Object),
ByVal controlCollection As Control.ControlCollection,
Optional ByVal searchChildrens As Boolean = False,
Optional ByVal searchFlags As BindingFlags =
BindingFlags.IgnoreCase Or
BindingFlags.Instance Or
BindingFlags.Public Or
BindingFlags.NonPublic)
Dim ctrl As Control = controlCollection.Find(ctrlName, searchChildrens).FirstOrDefault
Dim method As MethodInfo
Select Case ctrl Is Nothing
Case False
Try
method = ctrl.GetType().GetMethod(methodName, searchFlags)
Catch ex As AmbiguousMatchException
Throw New AmbiguousMatchException(String.Format("More than one method found with the same name: {0}", methodName))
Exit Sub
End Try
Select Case method Is Nothing
Case False
Try
method.Invoke(ctrl, searchFlags, Nothing, methodParams.ToArray, CultureInfo.InvariantCulture)
Catch ex As Exception
Throw
End Try
Case Else
Throw New NullReferenceException(String.Format("Method not found by name: {0}", methodName))
End Select ' prop Is Nothing
Case Else
Throw New NullReferenceException(String.Format("Control not found by name: {0}", ctrlName))
End Select ' ctrl Is Nothing
End Sub
End ClassCita de: El_Andaluz en 19 Enero 2015, 19:32 PM
entonces por que hay gente que han visto espíritus viven fenómenos paranormales en sus casas hay gente ahora que lo estarán sufriendo en sus casas esos fenómenos y no son para tomarnos de risa
Citaren vez de crearme una carpeta con pepito perez, me crea 2 carpetas una pepeito y la otra perez.
Lo he probado con comillas, sin ellas...etc...y naa no me funciona
Set /P "var=Pregunta="
MKDIR "C:\Directorio\%Var%"