bases de datos de access

[Belial & Grimoire]

hola

tengo un problema... estoy haciendo en un programa de visual basic 6.0 quee se puedan ver archivos access desde datagrid... pero tengo un problema... como hago operaciones...

por ejemplo..

si yo tuviera algo asi...

NOMBRE   CANTIDAD

    XX               23
    XX               45
    XX              123
    XX               15


cuando hago click sobre data grid en la parte de arriba de cantidades... todo keda marcado... pero cuando eso pasa como hago para hacer una operacion.... por ejemplo si yo al marcar CANTIDADES y todo se marca... al hacer eso, como podria sumar esas cantidades ( 23, 45, 123, 15)

alguien podria ayudarme

gracias   

[ActiveSheet]

Lastima chico, nadie sabe DataBase en VB 

[R41N-W4R3]

  Mira en las propiedades y metodos del dbgrid. De todas formas no se si ese componenete permite lo que comentas o si has de ingeniartelas haciendolo tu.

   Si quieres unas nuenas referencias de VB visita la web de guille en la que recuerdo algo como lo que preguntas.

[Belial & Grimoire]

hola

lo que pasa es que si puedo sumarlas... pero solo una por una... ya que si selecciono una se marca y puedo hacer una operacion con ella.... pero para sumar todas al mismo tiempo no se como... pero a ver si puedo hacer algo...

nos vemos 

[Belial & Grimoire]

hola

ya lo logre... pero tengo un problema.. cuando selecciono todos... y por ejemplo coloco todos los que marque en un label... como puedo hacer operaciones con ellos...

por ejemplo en un label tengo asi...

al seleccionarlos... se colocan en un label

            23
            45
            123
            15

kedan asi... pero como hago operaciones... algo sencillo como sumarlos...

23 + 45 + 123 + 15

espero me puedan ayudar

nos vemos... gracias 

[Belial & Grimoire]

hola

estaba pensando hacer esto...

Código [Seleccionar] Expandir



Private Sub Command1_Click()
Dim dato As String
Dim cadena As String
Dim junta(1 To 4) As String
cadena = Join(junta)
junta(1) = "23"
junta(2) = "45"
junta(3) = "123"
junta(4) = "15"
dato = Val(junta(1)) + Val(junta(2)) + Val(junta(3)) + Val(junta(4))
Label1.Caption = dato
End Sub




Con esto ya podria sumar lo que necesito... y hacer cualquier tipo de operacion...

Pero hay alguna forma de hacer que no tenga que determinar esto...

Dim junta(1 To 4) As String

ya que talvez tenga que hacer mas operaciones... y no quiero estar definiendo esto... hay forma de hacer esto dependiendo de cuantos numeros tenga

por ejemplo... si tengo en una caja de texto 5 numeros

23
43
12
34
65

como puedo hacer para que visual cuente cuantos son y en un label me ponga... 5

y como le haria para que en vez de poner en un label 5... me lo coloque aki...

Dim junta(1 To 5) As String

y asi lograr adaptar la matriz siempre... dependiendo de la cantidad de numeros que tenga en una caja de texto...

espero haber explicado esto bien... en pocas palabras kisiera que se identificara cuantos numero hay en una caja de texto en forma de lista... para que la matriz se adapte a la cantidad de numeros u objetos que hay en la caja de texto...

espero su ayuda...

gracias 

[CeLaYa]

pues creo que tus problemas se resolverían si usas SQL

para abrir la BD

Código [Seleccionar] Expandir


Dim BD as Database
Dim Tb as Recrdset

Set BD = Workspaces(0).OpenDatabase("c:\tu_bd.mdb", Exclusivo, SoloLectura, ";pwd=passwrod;")

Set TB = BD.Openrecorset("nombre tabla o consulta SQL;")



para cerrar y liberar memoria

Código [Seleccionar] Expandir


tb.close
BD.close
Set tb = nothing
Set BD = Nothing


para contar registros, sumarlos y cosas asi el SQL te proporciona ya instrucciones que hacen eso:

Código [Seleccionar] Expandir


para sumar
Set TB = BD.Openrecorset("SELECT Campo1, SUM(campo2) FROM Tabla WHERE Campo1 = algo;")

para contar
Set TB = BD.Openrecorset("SELECT COUNT(campo1) FROM Tabla WHERE Campo1 = algo;")