|
Mostrar Temas
|
Páginas: [1]
|
1
|
Programación / Desarrollo Web / Boton Importar en access
|
en: 11 Enero 2012, 07:38 am
|
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
|
|
|
2
|
Programación / Programación General / Tabla d Verdad
|
en: 11 Diciembre 2011, 01:12 am
|
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)); } }
|
|
|
3
|
Programación / Java / Verdad en Jva
|
en: 7 Diciembre 2011, 07:06 am
|
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
|
|
|
4
|
Programación / Desarrollo Web / Sugerencia en access
|
en: 25 Noviembre 2011, 07:13 am
|
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
|
|
|
5
|
Programación / Java / Metodo quicksort en java
|
en: 11 Noviembre 2011, 07:50 am
|
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 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); } } { busquedas obj=new busquedas (); do { 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(); 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(); break; }
|
|
|
6
|
Foros Generales / Dudas Generales / Quick short
|
en: 11 Noviembre 2011, 07:17 am
|
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; }
|
|
|
|
|
|
|