|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - angelescj
1
« en: Viernes 14 de Noviembre de 2003, 18:56 »
Ese errores porque no encuentra la BD, si has cambiado la ubicación deberías actualizarle la información. 
2
« en: Jueves 13 de Noviembre de 2003, 12:56 »
Se abre con openrecordset del Querydef, como si abrieras una tabla, pero previamente le estableces los valores a través de la coleccióm Parameters que tiene el QueryDef: Dim nombrequery as QueryDef dim rs as Recordset Set nombrequery=nombrebase.CreateQueryDef(nombreprocedimiento) nombreQuery.Parameters!nombredelParámetronelaBD=nuevoValor Set rs=nombrequery.openrecordset(sololéctura) Ya está
3
« en: Miércoles 12 de Noviembre de 2003, 19:18 »
Perdón, puse mal el orden, la forma correcta es:
Chr(13) & Chr(10)
4
« en: Miércoles 12 de Noviembre de 2003, 08:31 »
Para generar un salto de línea puedes utilizar la constante de VB: vbCrlf O bien concatenar: Crh(10) & Chr(13)
5
« en: Martes 11 de Noviembre de 2003, 18:39 »
Para que sólo pueda escribir en mayúsculas basta con poner el símbolo ">" a partir de la posición en la que queremos que los caracteres estén en mayúsculas. Si los escribe en minúsculas los pasa a mayúsculas. EJ: mskEjemplo.mask=">" ==> Todos los caracteres en mayúsculas. mskEjemplo2.mask="??>" ==> Los dos primeros caracteres los deja como están y el resto a mayúsculas
6
« en: Lunes 10 de Noviembre de 2003, 14:11 »
utiliza la propiedad SelBookmarks, y de ella la propiedad Count. dataGrid1.SelBookmarks.Count Si el valor de esta línea es 0 es que no hay ninguna fila seleccionada, bien porque el datagrid esté vacío o bien porque han pinchado en la zona gris, vacía, del Datagrid. Suerte
7
« en: Jueves 6 de Noviembre de 2003, 08:45 »
Prueba esto:
dim pp as string
if option.value then
pp="Si"
else
pp="No"
end if
db.Execute "UPDATE Clientes SET Cliente=" & Text1(0) & " , SG=" & Siglas.Text & " , Direccion=" & Text1(3) & " , Numero=" & Text1(4) & " , Piso=" & Text1(5) & " , Puerta=" & Text1(6) & " , CP=" & Text1(7) & _
" , Poblacion=" & Text1(8) & " ,Provincia=" & Text1(9) & " ,Pais=" & Text1(10) & " , NIF=" & Text1(19) & " , Email =" & Text1(11) & " , Web = " & Text1(12).Text & _
" , Editando='No' , [Sociedad Civil]='" & pp & " , [Fecha Alta]=" & Text1(13) & " WHERE (SELECT * FROM Clientes WHERE Clientes.[Id Cliente] = " & CLng(Text3.Text) & ");"
8
« en: Miércoles 5 de Noviembre de 2003, 18:38 »
Si en campo está declarado como numérico en la BD deberás hacer: NombreDeCampo=valor Si el campo está declarado como no numérico: NombreDe Campo='valor' Con una comilla simple a cada lado del valor. Al usar comillas dobles,", estás terminando la cadena SQL
9
« en: Lunes 3 de Noviembre de 2003, 15:29 »
Crear un campo texto en el reporte y pásale el valor que quieras, para pasar el valor por código: CrystalReport1.ParameterFields(1)="nombreElemento;Valor;true"
10
« en: Lunes 3 de Noviembre de 2003, 13:09 »
Fácil. Menú Proyecto ==> Propiedades de Proyecto1==> Objeto inicial
11
« en: Jueves 30 de Octubre de 2003, 08:41 »
Pues claro que sí, además si haces referencia por el nombre no se verá afectado por las modificaciones en el diseño, añadir campos, eliminarlos.... Sólo tienes que sustituir el índice que tienes por el nombre del campo en la BD, poniendo el nombre entre "".
12
« en: Jueves 30 de Octubre de 2003, 08:36 »
Te aconsejo utilizar la máscara "#####.##"
Es para casos numéricos, pero no obligando a meter todos los caracteres. En el format DEBES hacerlo así, para que no te lo llene de "0"
format(x,"#####.##)
Si necesitas forzar los decimales utiliza el format de la siguiente manera:
format(x,"#####.00)
13
« en: Miércoles 29 de Octubre de 2003, 21:10 »
Un poco más fácil: Year(variable) ==> Devuelve el año Month(variable)==> Devuelve el mes Day(variable)==> Devuelve el día. Variable debe ser algo con apariencia de fecha, para que así lo pueda convertir a Date, si ya es de tipo Date mejor
14
« en: Miércoles 29 de Octubre de 2003, 10:58 »
¿Qué máscara utilizas? 
15
« en: Miércoles 29 de Octubre de 2003, 10:55 »
Para una Autonumérico no me sé los nombres de las constantes, pero sí los valores: 'Primero lo creas como numérico entero. tabla.Fields.Append tabla.CreateField("ElAutomatico", 4) 'Luego le indicas que es autonumérico tabla.Fields("ElAutomatico").Attributes = 17
16
« en: Martes 28 de Octubre de 2003, 13:12 »
Este código crear una tabla nueva y le añade tres campos, una de tipo cadena y tamaño 10, otro de tipo integer, otro de tipo double, otro boolean y otro memo. Si necesitas otros tipos de campos busca en la ayuda información sobre el método createField Dim tabla As TableDef Dim base As Database Set base = OpenDatabase("mibase.mdb") Set tabla = base.CreateTableDef("Ejemplo") tabla.Fields.Append tabla.CreateField("DNI", dbText, 10) tabla.Fields.Append tabla.CreateField("Grupo", dbInteger) tabla.Fields.Append tabla.CreateField("Turno", dbDouble) tabla.Fields.Append tabla.CreateField("Becado", dbBoolean) tabla.Fields.Append tabla.CreateField("Comentarios", dbMemo) base.TableDefs.Append tabla ESPERO QUE TE SIRVA
17
« en: Jueves 23 de Octubre de 2003, 11:35 »
Perdona, no me había fijado. En Access para que lo ignore como caracter fin de cadena se le pone una comilla simple antes de la comilla simple y ya está. Insert into ttiest000300(t$pepe) values('X4 E.T DEFLECTEUR D''AIR');
18
« en: Jueves 23 de Octubre de 2003, 10:07 »
¿Qué error?
19
« en: Jueves 23 de Octubre de 2003, 08:35 »
Exactamente, pero ¿cual es la consulta sobre eso?
20
« en: Miércoles 22 de Octubre de 2003, 20:40 »
SI PUEDES hacer un insert into entre dos tablas de distintas bases de datos: El insert lo hace la base de datos de la que tiene que leer y en el into nombre tabla pones: into nombretabla IN basededatosexterna La estructura general es: INSERT INTO destino [IN basededatosexterna] [(campo1[, campo2[, ...]])] SELECT [origen.]campo1[, campo2[, ...] FROM expresióntabla
21
« en: Miércoles 22 de Octubre de 2003, 20:35 »
Si el valor del campo del recordset no tiene el mismo formato que la máscara le pones el formato y está, si ya lo tiene lo asignas directamente: mskEjemplo=format(r!campo,"formato que queramos")
22
« en: Miércoles 22 de Octubre de 2003, 20:33 »
Puedes vincular una de las tablas en la otra BD, y de esta forma manipularla como si perteneciese a ella. Si no, también puedes abrir dos conexiones distintas, una a cada BD, y manipular cada tabla con su conexión.
23
« en: Lunes 20 de Octubre de 2003, 13:48 »
Si USUARIO NO es de tipo numérico en la BD la orden debería ser: "DELETE FROM USERS WHERE USUARIO='" & USUARIO & "'" Si no deberías quitar igualmente el espacio en blanco que dejas a continuación del "=" Aunque no es necesario, como la BD es access te recomiendo poner el *. es decir "DELETE * FROM USERS WHERE USUARIO='" & USUARIO & "'"
24
« en: Viernes 17 de Octubre de 2003, 18:55 »
Caundo dices "cambiar la BD inicial", ¿Te refieres a la Base de datso o a los datos que muestra?
25
« en: Viernes 17 de Octubre de 2003, 08:25 »
Establece los valores que quieras para las propiedades Top y Left de cada formulario MDIChild y ponle a cada uno la propiedad Style =1 (Fixed Single)
|
|
|
Mostrar Mensajes
