Temas

Hola.
Quisiera saber como importo datos de excel a una tabla en access. Lo que hice fue lo siguiente en un formulario en blanco inserte un botón, en el evento al hacer clic coloque el código.
Lo que me pidieron es un boton dentro de  un formulario con el nombre importar, no busque la ruta de la hoja de excel al seleccionarla nos inserte los datos en la tabla de acces.
Pero me marca un error que dice " ERROR DECOMPILACION" NO SE HA DEFINIDO EL TIPO DEFINIDO POR EL USUARIO.


mI codigo el es siguiente:
Private Sub Comando47_Click()
Const DBFile = "proyectoo.mdb"
Const ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Const XLfile = "pruebas.xlsx"

Dim connection As New ADODB.connection --------> ERROR
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim Dato As Variant
Dim Dato1 As Variant
Dim MiFSO  As FileSystemObject
Dim MiArchivo As File
Dim sCarpeta As String, sCarpetaDest As String
Dim Columna_Actual As Integer
Dim lista As String, grupo As String

Dim s As String 'semestre
Dim g As String 'grupo

Dim c As Integer


s = semestre.Value
g = grupo.Value



lista = s & "_" & g & "_" & i


sCarpeta = CurrentProject.Path & "\" & XLfile
sCarpetaDest = CurrentProject.Path & "\" & lista & ".xlsx"
'connection.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\access\Final.mdb")
connection.Open (ConnectionString & CurrentProject.Path & "\" & DBFile)
Set MiFSO = New FileSystemObject
Set MiArchivo = MiFSO.GetFile(sCarpeta)
MiArchivo.Copy sCarpetaDest, True
Set MiArchivo = Nothing
Set MiFSO = Nothing

' Abre el libro de Excel
Set Obj_Excel = CreateObject("Excel.Application")
MsgBox "Archivos excel: " & sCarpetaDest
Obj_Excel.Workbooks.Open FileName:=sCarpetaDest
' si es la versión de Excel 97, asigna la hoja activa ( ActiveSheet )
If Val(Obj_Excel.Application.Version) >= 8 Then
     Set Obj_Hoja = Obj_Excel.ActiveSheet
Else
        Set Obj_Hoja = Obj_Excel
End If

' Open connection


'Abre la tabla a la que se le van a insertar datos
'   rs1.Open " select * from grupo where semestre.semestres=" & s & " and semestre.periodo=" & p & " and semestre.inicio=" & i, connection, adOpenDynamic, adLockReadOnly
   
     
     ' rs.Open "select * from alumno where grupo =" & grupo & " order by apellido_paterno", connection, adOpenDynamic, adLockReadOnly
    rs.Open "SELECT GRUPO.clave, ALUMNO.nombre, ALUMNO.matricula, ALUMNO.apellido_paterno, ALUMNO.apellido_materno FROM (SEMESTRE INNER JOIN GRUPO ON SEMESTRE.clave = GRUPO.semestre) INNER JOIN ALUMNO ON GRUPO.clave = ALUMNO.grupo WHERE (((SEMESTRE.inicio)='" & i & "') AND ((GRUPO.grupo)='" & g & "') AND ((SEMESTRE.periodo)='" & p & "')" & " AND ((SEMESTRE.semestres)= '" & s & "'))", connection, adOpenDynamic, adLockReadOnly
    ' No results?
   ' rst_Ado.Open "Select NomProducto FROM Productos", connection, adOpenStatic, adLockPessimistic
    Obj_Hoja.Cells(8, 3) = g
    Obj_Hoja.Cells(8, 5) = "M"
    Obj_Hoja.Cells(6, 30) = s
   
   
c = 0
    Columna_Actual = 13
    Do Until rs.EOF
        ' Getting current template from recordset.
        Dato = rs("apellido_paterno") & " " & rs("apellido_materno") & " " & rs("nombre")
        Dato1 = rs("matricula")
        ' If it's not a valid template, skip it
        If Not (IsNull(Dato)) Then
        Obj_Hoja.Cells(Columna_Actual, 3) = Dato
        Obj_Hoja.Cells(Columna_Actual, 2) = Dato1
        Columna_Actual = Columna_Actual + 1
        c = c + 1
         
End If
rs.MoveNext
Loop

Obj_Hoja.Cells(45, 34) = c
   
    MsgBox "Datos copiados"
   Obj_Excel.ActiveWorkbook.Save
   
    If connection.State = adStateOpen Then connection.Close
    Obj_Excel.ActiveWorkbook.Close
    Obj_Excel.Quit
    Set Obj_Hoja = Nothing
    Set Obj_Excel = Nothing
    Set FileDlg = Nothing



End Sub

hola pues resulta que tengo mi programa en java de la tabla de la verdad solo que necesito que el usuario ingrese las premisas desde teclado  pero ya me bloque no me sale dejo mi codigo.
les agradezco su ayuda,,,,,,,,,,,,,,,,,Gracias
//************
  //******Tabla de la Verdad.
 
  public class tablaverdad
     {   
  public static void main(String[] args)
      {   

    boolean r, s;

    System.out.println( "R\t\tS\t\tAND\t\tOR\t\tXOR\t\tNOT" );

    r = true; s = true;
    System.out.print(r + "\t" + s + "\t");
    System.out.print((r&s) + "\t" + (r|s) + "\t");
    System.out.println((r^s) + "\t" + (!r));

    r = true; s = false;
    System.out.print(r + "\t" + s + "\t");
    System.out.print((r&s) + "\t" + (r|s) + "\t");
    System.out.println((r^s) + "\t" + (!r));

    r = false; s = true;
    System.out.print(r + "\t" + s + "\t");
    System.out.print((r&s) + "\t" + (r|s) + "\t");
    System.out.println((r^s) + "\t" + (!r));

    r = false; s = false;
    System.out.print(r + "\t" + s + "\t");
    System.out.print((r&s) + "\t" + (r|s) + "\t");
    System.out.println((r^s) + "\t" + (!r));
  }   
}

Hola a todos:::..
Bueno pues tengo que realizar la tabla de verdad maximo 5 premisas, es en consola de la cual el usuario ingrese las premisas y nos presente en pantalla and, not y realmente no se por donde empezar, alguien me puede orientar.....se los agradezco mucho.
Bye bye

Hola hola a todos(as)......

Resulta que nos estan pidiendo un Sistema que genere las boletas de los alunmos de Bachillerato, lo requieren en access 2010.
Ya tengo mi modelado pero tengo duda en dos tablas en la de boleta y calificaciones..
en la primera tengo la clave primaria, semestre, alummnos, parcial y la segunda clave boleta, materia. La relación entre estas es en la tabla boleta atributo clave con el atributo boleta en calificaciones.
Siento que ya me confundi necesito un poco de orientacion.....
Si alguien me puede complementar lo mencionado se los agradezco..gracias

ayuda
tengo un codigo en java de los metodos de busqueda
pero me marca error al llamar este metodo en el main al pasar los parametros de quicksort alguien puede corregir mi codigo porfavor

Código (java) [Seleccionar] Expandir


public void quicksort(int a[],int inf,int sup)
    {
        int izq,der;
        double pivote;
        izq=inf;
        der=sup;
        pivote=a[(izq+der)/2];
        while(izq<der)
        {
            while(a[izq]<pivote && der<sup)
                izq++;
            while(pivote<a[der] && der>inf)
                der--;

            if(inf<der) quicksort(a,inf,der);
            if(izq<sup) quicksort(a,izq,sup);
        }
    }
    public static void main(String args[]) throws Exception
    {
    InputStreamReader isr=new InputStreamReader(System.in);
    BufferedReader tcld = new BufferedReader(isr);
    String cad;
    busquedas  obj=new busquedas ();
    do
    {
    System.out.println("\n");     
    System.out.println("Métodos de Ordenación\n");
    System.out.println("----Menú---\n");
    System.out.println("0._Ingresar Valores");
  System.out.println("1._Burbuja");
  System.out.println("2._Quick Short");
  System.out.println("3._Shell");
  System.out.println("4._Salir");
    cad=tcld.readLine();
    opc=Integer.parseInt(cad);   
    switch(opc)
    {
    case 0:
}
case 2:
    {
    System.out.print("\nMétodo Quick Short");
    obj.quicksort(a,1,tam-1); //Aqui esta el error
    cad=tcld.readLine();
            opc1=Integer.parseInt(cad);               
          break;
    }


ayuda porfavor................
estoy haciendo metodos de busqueda en java con un main pero en uno de los metodos me marca error al llamarlo en el main y es por los parametros
me pueden corregir anexo codigo
public void quicksort(int a[],int inf,int sup)
       {
           int izq,der;
           double pivote;
           izq=inf;
           der=sup;
           pivote=a[(izq+der)/2];
           while(izq<der)
           {
               while(a[izq]<pivote && der<sup)
                   izq++;
               while(pivote<a[der] && der>inf)
                   der--;
   
               if(inf<der) quicksort(a,inf,der);
               if(izq<sup) quicksort(a,izq,sup);
           }
       }
public static void main(String args[]) throws Exception
    {
    InputStreamReader isr=new InputStreamReader(System.in);
    BufferedReader tcld = new BufferedReader(isr);
    String cad;
    busquedas  obj=new busquedas ();
    do
    {
    System.out.println("\n");     
    System.out.println("Métodos de Ordenación\n");
    System.out.println("----Menú---\n");
    System.out.println("0._Ingresar Valores");
     System.out.println("1._Burbuja");
     System.out.println("2._Quick Short");
     System.out.println("3._Shell");
     System.out.println("4._Salir");
    cad=tcld.readLine();
    opc=Integer.parseInt(cad);   
    switch(opc)
    {
       case 0:
}
case 2:
       {
          System.out.print("\nMétodo Quick Short");
          obj.quicksort(a,1,tam-1);
          cad=tcld.readLine();
            opc1=Integer.parseInt(cad);                             
            break;
       }