• Sábado 24 de Febrero de 2024, 11:16

Mostrar Mensajes

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

Páginas: [1] 2 3 ... 7
1
Ese errores porque no encuentra la BD, si has cambiado la ubicación deberías actualizarle la información.
:good:

2
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á
:good:

3
Visual Basic 6.0 e inferiores / Re: En una textbox?
« 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
Visual Basic 6.0 e inferiores / Re: En una textbox?
« 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)
:good:

5
Visual Basic 6.0 e inferiores / Utilizacion de Ucase
« 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
:good:

6
Visual Basic 6.0 e inferiores / Re: datagrid
« 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
:good:

7
Visual Basic 6.0 e inferiores / No consigo actualisar un registro a SQL
« 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
Visual Basic 6.0 e inferiores / Re: No consigo actualisar un registro a SQL
« 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

:good:

9
Visual Basic 6.0 e inferiores / Pasar variables a Crystal Report 4.6
« 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"
:good:

10
Visual Basic 6.0 e inferiores / Re: Jerarquizar formularios
« en: Lunes 3 de Noviembre de 2003, 13:09 »
Fácil.
Menú Proyecto ==> Propiedades de Proyecto1==> Objeto inicial
:good:

11
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 "".

:good:

12
Visual Basic 6.0 e inferiores / Re: Asignar texto de un recorset a un maskedit
« 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
Visual Basic 6.0 e inferiores / fechas
« 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
:good:

14
Visual Basic 6.0 e inferiores / Re: Asignar texto de un recorset a un maskedit
« en: Miércoles 29 de Octubre de 2003, 10:58 »
¿Qué máscara utilizas?
:question:

15
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
:good:

16
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

:good:

17
Visual Basic 6.0 e inferiores / Insert en oracle
« 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');

 :good:

18
Visual Basic 6.0 e inferiores / Re: Insert en oracle
« en: Jueves 23 de Octubre de 2003, 10:07 »
¿Qué error?
:question:

19
Visual Basic 6.0 e inferiores / VB6 y Crystal Report 8.5
« en: Jueves 23 de Octubre de 2003, 08:35 »
Exactamente, pero ¿cual es la consulta sobre eso?
:good:

20
Visual Basic 6.0 e inferiores / Re: VB6 y Crystal Report 8.5
« 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


:good:

21
Visual Basic 6.0 e inferiores / Re: Asignar texto de un recorset a un maskedit
« 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")
:good:

22
Visual Basic 6.0 e inferiores / base de datos
« 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.
:good:

23
Visual Basic 6.0 e inferiores / Ado
« 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 & "'"


:good:

24
Visual Basic 6.0 e inferiores / Crysta y Bd Access.
« 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?
:question:

25
Visual Basic 6.0 e inferiores / Re: Insertar formularios dentro de formulario MDI
« 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)
:good:

Páginas: [1] 2 3 ... 7