SoloCodigo

Se me olvidaron las otras dos, en el primer mensaje Vata es igual a Vaya.
Meti mal el dedo . Epa, no piensen mal.

2-A las cuantas vueltas se acuesta un perro?

3-Hay un árbol, ese arbol tiene tres ramas, cada rama  con 5 palomas, un cazador con su escopeta dispara y mata a 2 palomas.

Cuantas quedan en el árbol????

Segun los datos anteriormente suministrados y con poco más de 0.5 milisegundos de tiempo, he llegado a la conclusión que efectivamente la persona se suicidó.

Se montó en un gran bloque de Hielo

Una más difícil por favor.

Aja la de los sapitos que????

Respondan que tengo otras más interesantes.

Bueno vamos a ver que tan astutos son los de solocodigo.

Voy a decir tres adivinanzas y dentro de una semana las respondo a ver quien se acerca más a la respuesta correcta.

1- Lana Sube, Lana Baja.

2-Tres sapitos cayerón en un hoyo muy profundo, saltaban y saltaban y no alcanzaban a salir, todos los animales que pasaban les decian que se iban a morir alli, puesto que no habia forma de salir.

Al tercer dia se murio uno.
Al quinto dia se murio el otro
Al septimo dia el tercer sapito respiro hondo y se salio de un brinco.

¿Porque se salio el tercer sapito?

3-Dos policias estaban escondidos en la puerta de la guarida de unos ladrones, no podian entrar porque necesitaban la clave.

esperaron y en eso  llegó un ladrón, adentro gritarón 14 y el ladron gritó 7 y entró, luego llegó otro y adentro gritarón 18 y ratero gritó 9 y entro.

Los policias dijeron , Hayyyyyy nos las pillamos ellos te gritan el numero y tu dices la mitad del número, entremos.

Llego el primer policia y adentro gritaron 4, el policia grito 2, pero lo mataron en la entrada, el segundo llegó, adentro gritarón 0(cero) y el policia se quedo pensando que cero es indivisible y lo mataron.
¿Que paso?

Nos vemos en una semana:hola:

Mi avatar es un angel como yo.

No mentira, lo que pasa es que ese es mi apellido.
Mi nombre de pila es Isidro. No se burlen.


PORQUUUEEEE  PORQUEEEEEE A MIIII.

Las mujeres ni se me hacercan cuando les digo mi nombre,  
Buuuaaajaaaa

Asi que me toco cambiar mi nombre por mi apellido.

Claro que demande a mis padres por daños sicologicos y gane una buena suma de dinero.

Bueno, se le agradece la preocupacion.

Ok. Viejo yo se como es eso de tener trabajo para rato asi que no te preocupes. Yo espero.



Pero recuerda que el año se va rapido.

OK.

Espero la ayuda.

Hola Coldizt.

Como mi estudios se basaron en Analisis y Programación de sistemas , la parte de adivino se la dejo a las personas con Estudios Esotericos.

Explicate mejor.

Una respuesta generalizada podria ser que llenes los registros que necesitas desde el primer Formulario que se Carga en el evento Load de este.


Pero si no adivine es porque como te dije no estudié Voodismo.

Hola Sergio, gracias por la informacion, actualmente estoy aprendiendo a crear paginas Gueb y me parece de buena ayuda, ya que mi inglis not is gud.

Te tengo unas pequeñas preguntas.

Cuanto te paga la pepsi?, programas para la pepsi?, porque la propaganda para la pepsi?, no es mejor la Coca Cola?, el agua de panela es mas saludable?  

Ok. siempre se aprende algo nuevo.
Gracias

Pero me quedo con ADO

Hola Erick

Espero te encuentres bien.

No se en realidad que tanto conocimiento tengas de DAO, la ayuda que te voy a dar es solo si conoces sobre codigo SQL.

Puedes hacer esto.

[CODE]
Private Sub btnguardar_Click()
on error goto error
Set conexion = New ADODB.Connection
Set registro = New ADODB.Recordset

conexionbd.Open "c:/Base de datos"
'truco para generar el codigo iniciado desde 1
sql1 = "select max(codigo) as maximo from nombre_tabla"
registrobd.Open sql1, conexionbd
error:
If Err = 94 Then
   ID = 1
End If
ID = CInt(registrobd!maximo) + 1
'grabar en la bd
SQL = "insert into nombre_tabla " & _
"values ('" + Str(ID) + "','" + texnombre + "','" + texapellidos + "','" + texttelefono + "')"

conexionbd.Execute SQL
conexionbd.Close
MsgBox "Datos guardados Satisfactoriamente", vbInformation
End If
End Sub

private sub btnbuscar_click()
Set conexion = New ADODB.Connection
Set registro = New ADODB.Recordset
conexionbd.Open "c:/Base de datos"
'debes selleccionar el codigo, aunque te sugiero que lo busques por el nombre ya que se memoriza mejor

SQL="Select * nombre_tabla where codigo =txtcodigo.text"
conexionbd.Execute SQL

While not registro.EOF
     txtnombre.text=!Nombre
     txtapellidos.text=!Apellido
     txttelefono=!telefono
movenext
end while
conexionbd.Close


end sub


No se si te funcione a la primera, alguna duda dejame un mensaje en este foro.

Lo que quiero es hacer una aplicacion que lo haga desde Visual Basic 6.0 con una base de Datos Access

 
 
 
 

 Ok. Disculpen por no averme echo emtemdeR.

Es que yo ya decir que ser vien vruto.

Un saludo para juanka y jrsmith por tener la delicadeza de aclararme mi error en formulación de preguntar preguntas.

Quiero pasar la informacion de Usuarios, es decir, llenar la tabla que esta recibiendo la información con datos.

Ejemplo:
Tengo mi base de datos, la quemo en un Cd, en ella tengo el nombre de Usuario JUAN PEREZ en una tabla, luego quiero solo grabar ese nombre en otra base de datos.

Nota: para entender lo que quiero, hagamos de cuenta que la base de datos solo tiene ese nombre y mas Ná.

Espero hacerme entender.

No pido que me digan todo, si es muy extensa la Info, por favor decirme donde puedo conseguir un tutorial o manual.
Y Juanka... Si me puedes decir donde consigo para poder pasar todo lo que me dijiste: Tablas,Procedimientos Ect... No me quedaria nada mal .

Que conste que no soy flojo.
Solo un eterno cansado.