| |
 Mostrar Mensajes
|
|
Páginas: 1 [2] 3
|
|
11
|
Programación / Programación Visual Basic / Como abrir un archivo TXT
|
en: 16 Mayo 2009, 08:48 am
|
Hola a todos, Quisiera saber como abrir un archivo txt.. tengo lo siguiente: Shell "notepad.exe App.Path & \ archivo.txt \ "" Pero no me funciona, me dice que la ruta no se encuentra.. el tema es que no quiero ponerle la ruta verdadera porque si alguien ejecuta el programita en otro lugar va dar error.. y el archivo txt lo genero de la siguiente manera... Open App.Path & "\archivo.txt" For Output As #1 El otro tema es como hacer para abrirlo y que se vea y no se quede en la barra de abajo.. osea maximisado o algo parecido.. desde antemano muchas gracias saludos a todos |
|
|
|
|
13
|
Programación / Programación Visual Basic / Re: Como rellenar campos en vb
|
en: 19 Septiembre 2008, 05:45 am
|
Hola lo hice pero me sale error que el objeto esta abierto aca dejo el codigo, lo que quiero hacer es que si busca y encuentra, que no grabe, si no encuentra que grabe los datos en num1 que es el unico que no puede ser duplicado.. Private Sub Command1_Click()
Dim Num1 As Byte
Dim Num2 As Byte
Dim Num3 As Byte
Dim Num4 As Byte
Dim Num5 As Byte
Call abrir
Num1 = Int(255 - 1) * Rnd + 0
Num2 = Int(255 - 1) * Rnd + 0
Num3 = Int(255 - 1) * Rnd + 0
Num4 = Int(255 - 1) * Rnd + 0
Num5 = Int(255 - 1) * Rnd + 0
For Num1 = 1 To 100
For Num2 = 1 To 100
For Num3 = 1 To 100
For Num4 = 1 To 100
For Num5 = 1 To 100
'conexion_basedatos.Close
x = "Select * from stock where codigo =" & Val(Num1) & " "
tablas_apertura.Open x, conexion_basedatos
Next Num5
Next Num4
Next Num3
Next Num2
Next Num1
conexion_basedatos.Close
If tablas_apertura.EOF = True And tablas_apertura.BOF = True Then
x = "insert into stock values (" & Val(Num1) & ",'" & Num2 & "'," & Val(Num3) & "," & Val(Num4) & "," & Val(Num5) & ")"
'conexion_basedatos.Execute x
MsgBox "Se grabo correctamente"
Else
End If
End Sub y el modulo es : Public conexion_basedatos As New ADODB.Connection
Public tablas_apertura As New ADODB.Recordset
Global datos As String
Sub abrir()
conexion_basedatos.ConnectionString = App.Path + "\BASE_DATOS_STOCK.mdb"
conexion_basedatos.Provider = "microsoft.jet.oledb.4.0"
conexion_basedatos.Open
End Sub
Sub cerrar()
conexion_basedatos.Close
End Sub Saludos Federico . |
|
|
|
|
16
|
Programación / Programación Visual Basic / Como rellenar campos en vb
|
en: 18 Septiembre 2008, 07:05 am
|
Hola a todos tengo el siguiente codigo x = "insert into stock values (" & Val(Text1) & ",'" & Text2 & "'," & Val(Text3) & "," & Val(Text4) & "," & Val(Text5) & ")"
conexion_basedatos.Execute xQuisiera rellenar los campos no se si se puede con un while y random en cada text, el text1 es numerico nomas.. el text2 es texo, el 3,4,5 son numeros de 3 cifras.. si alguin me da una ayudita.. gracias saludos federico |
|
|
|
|
18
|
Programación / Programación Visual Basic / Mostar resultados en label
|
en: 13 Septiembre 2008, 08:01 am
|
Hola a todos priemro que nada quiero decir que soy nuevo en el tema recien estoy empezaqndo a estudiar vb6, por eso hago alomejor preguntas tontas para lo que es este foro..  x = "Select * from stock where codigo =" & Val(Text1) & " "
tablas_apertura.Open x, conexion_basedatos
Label6.Caption = Val(Text3) Como veran estoy buscando en la tabla stock todos los campos, (codigo, detalle, precio,etc.), esos resultados los quiero mostrar en un label, pero no se como, tambien como puedo hacer para que si busca en estock se guarde en una variable unicamente el codigo?.. Bueno saludos a todos Fede |
|
|
|
|
19
|
Programación / Programación Visual Basic / Re: Como validar estos campos
|
en: 13 Septiembre 2008, 05:11 am
|
perdona por ser duro,pero es la verdad, leete un manual de ADO porque son dudas muy basicas... Hola muchas gracias por tomarce el tiempo y responderme.. es verdad que me falta muchisimo de lo basico por eso posteo y te agradezco tu opinion porque se que es constructiva, hojala algun dia pueda yo ayudar.. muchas gracias federico |
|
|
|
|
20
|
Programación / Programación Visual Basic / Re: Como validar estos campos
|
en: 12 Septiembre 2008, 21:22 pm
|
Hola Gracias por responderme, es un programa para guardar articulos en una base de datos mdb. si los campos estan en blanco y presiono grabar me sale un error que hay campos duplicados, entopnmces lo que quiero hacer es que si o si se rellenen los 5 campos text1..text2..tex5 eso es.. tambien no se como hacer por ejemplo si yo pongo en codigo 55 y otro viene y pone 55 que diga codigo duplicado.. son dos cosas validacion y eso ultimo no se como haccerlo ya recien empiezo a estudiar este lenjuage ,, gracias a todos saludos fede  |
|
|
|
|
|
| |
|
