• Viernes 8 de Noviembre de 2024, 07:42

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 - sr.dav

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re: Tablas Relacionadas
« en: Jueves 6 de Marzo de 2008, 12:11 »
Hola

lo que quiero ver son los datos relacionados, pero ando muy perdido en esto por eso pido algun ejemplo para mas o menos saber como hacerlo y tener las ideas claras.

2
Visual Basic 6.0 e inferiores / Tablas Relacionadas
« en: Miércoles 5 de Marzo de 2008, 10:50 »
hola a todos

Tengo una duda bastante grande y no se si se puede hacer, tengo una bases de datos con las tablas relacionadas entre ellas y quiero realizar una aplicacion donde pueda realizar busquedas en esa base de datos y el resultado que obtenga ver la relacion con las otras tablas

Para q quede claro como si fuera access cuando tienes las tablas relacionadas y te deja ver sus relaciones con las demas tablas.

Yo creo q no se puede hacer porque no e visto nada por internet sobre esto, pero si alguno de vosotros sabe algo o tiene algun ejemplo a ver si me lo puede pasar, se lo agradeceria.

saludos

3
Visual Basic 6.0 e inferiores / Re: Problema Combobox + Access
« en: Lunes 3 de Marzo de 2008, 10:04 »
Cita de: "Angel38"
Sino te sabes explicar dudo que alguien tenga la molestia de abrir tu codigo.

Prefiero saber conque te estas conectando a la BD, como te preguntó Quijote, sino sabes eso, ahi debe estar el error.
esta hecho en dao, si tenies dudas sobre lo q e puesto decirmelo y se me olvidaba la base de datos esta hecha en access
Si hay alguna duda mas ya sabeis decirmelo


saludos

4
Visual Basic 6.0 e inferiores / Re: Problema Combobox + Access
« en: Lunes 25 de Febrero de 2008, 20:13 »
bueno creo para que la idea quede mas clara y vosotros sabeis de que hablo os dejo la aplicacion que estoy haciendo servir
Asi seguro entendereis lo q quiero hacer
aviso: el codigo que hay no esta bien son pruebas que voy haciendo yo

saludos

5
Visual Basic 6.0 e inferiores / Problema Combobox + Access
« en: Miércoles 13 de Febrero de 2008, 10:59 »
Hola a todos!!!

Estoy intentado realizar una aplicacion la cual consiste en realizar consultas con lo que tenemos en los combobox, consigo ver las tablas en los combos q tengo para eso, pero en los combo q tengo para ver las columnas no las consigo ver y no se como hacerlo

haber si alguien tiene algun ejemplo o me puede ayudar, se lo agradeceria mucho estoy muy perdido.

Gracias de antemano

saludos

6
Visual Basic 6.0 e inferiores / Re: Problema Con El Buscador Que He Creado
« en: Viernes 18 de Enero de 2008, 09:36 »
ya he conseguido ver el error se tenian q quiatar las comillas, ya q estoy buscando un numerico, tiene q quedar asi:

Código: Text
  1.  
  2. ssql = ssql & " where " & cbocampo.Text & " = " & Text1.Text & ""
  3.  
  4.  

gracias por la ayuda!!!

saludos!!!

7
Visual Basic 6.0 e inferiores / Problema Con El Buscador Que He Creado
« en: Miércoles 16 de Enero de 2008, 10:44 »
Hola a todos!!!

Soy un poco novato en esto del visual y estoy realizando una aplicancion con bases de datos, en la cual realizo un buscador dentro de una tabla. Pero no consigo q me busque nada ya q cuando le doy a buscar me sale el siguiente error "-2147217913 No coinciden los tipos de datos en la expresion de criterios" pero no tengo ni idea donde esta el error y eso q revisao el programa mil veces, lo estado haciendo desde el f8 pero me quedado clavado, no lo consigo ver.

Haber si alguien me puedo ayudar porque yo soy incapaz de verlo, para hacerlo mas facil dejo el codigo aqui para q se entienda un poco la aplicacion:

Código: Text
  1.  
  2. Public ssql As String
  3. Public mysql As String
  4. Public myrcs As Recordset
  5. Public cnn As Connection
  6. Public rcs As Recordset
  7. Public datos As String
  8.  
  9. Dim i As Integer
  10. Dim j As Integer
  11. Dim tablatype() As String
  12. Dim tablaname() As String
  13.  
  14. Private Sub Command1_Click()
  15.     CommonDialog1.CancelError = True
  16.     On Local Error GoTo errhandler
  17.     CommonDialog1.Flags = cdOFNHideReadOnly
  18.     CommonDialog1.DialogTitle = "Escoge la base de datos que quieres utilizar"
  19.     CommonDialog1.Filter = "Archivos de Microsoft Access" & "(*.mdb)|*.mdb|"
  20.     CommonDialog1.FilterIndex = 2
  21.     CommonDialog1.ShowOpen
  22.     datos = CommonDialog1.FileName
  23.     Text1 = Empty
  24.     abrir
  25.     i = Empty
  26.     Grid.Clear
  27.     cbotabla.Clear
  28.     cbocampo.Clear
  29.     cbotabla.SetFocus
  30.     Set vertabla = cnn.OpenSchema(adSchemaTables)
  31.     ReDim Preserve tablaname(0)
  32.     ReDim Preserve tablatype(0)
  33.     Do While Not vertabla.EOF
  34.         If vertabla!TABLE_TYPE = "TABLE" Then
  35.             tablaname(i) = vertabla!TABLE_NAME
  36.             i = i + 1
  37.             ReDim Preserve tablaname(i)
  38.         End If
  39.         vertabla.MoveNext
  40.     Loop
  41.     For j = 0 To i - 1
  42.         cbotabla.AddItem tablaname(j)
  43.     Next j
  44.     cnn.Close
  45.     Exit Sub
  46. errhandler:
  47.     MsgBox Err.Number & Err.Description
  48.     Exit Sub
  49. End Sub
  50. Private Sub Command2_Click()
  51.     Unload Me
  52. End Sub
  53. Private Sub Command3_Click()
  54.     busca
  55. End Sub
  56. Sub busca()
  57.     On Local Error GoTo tu
  58.     Grid.Clear
  59.     Grid.Cols = 1
  60.     Grid.Rows = 1
  61.     abrir
  62.     ssql = "select * from " & cbotabla.Text
  63.     If Trim(cbocampo.Text) <> "" And Trim(Text1.Text) <> "" Then
  64.         ssql = ssql & " where " & cbocampo.Text & " = '" & Text1.Text & "'"
  65.     End If
  66.     Set rcs = New Recordset
  67.     rcs.Open ssql, cnn
  68.     If rcs.BOF Then Exit Sub
  69.     rcs.MoveFirst
  70.     With Grid
  71.         .Clear
  72.         .Cols = cbocampo.ListCount + 1
  73.         For p = 0 To cbocampo.ListCount - 1
  74.             .Row = 0
  75.             .Col = p + 1
  76.             .Text = rcs.Fields(p).Name
  77.         Next p
  78.         r = 1
  79.         Do While Not rcs.EOF
  80.         .Rows = r + 1
  81.         .Row = r
  82.             For p = 0 To cbocampo.ListCount - 1
  83.                 .Col = p
  84.                 If IsNull(rcs(rcs.Fields(p).Name)) Then
  85.                     .Text = "nulo"
  86.                 Else
  87.                     .Text = rcs(rcs.Fields(p).Name)
  88.                 End If
  89.             Next p
  90.             r = r + 1
  91.             rcs.MoveNext
  92.         Loop
  93.     End With
  94.     Set rcs = Nothing
  95.     Exit Sub
  96. tu:
  97.     MsgBox Err.Number & Err.Description
  98.     Exit Sub
  99. End Sub
  100. Private Sub cbocampo_GotFocus()
  101.     On Local Error GoTo gg
  102.     cbocampo.Clear
  103.     mysql = "select * from " & cbotabla.Text
  104.     abrir
  105.     Set myrcs = New Recordset
  106.     myrcs.Open mysql, cnn
  107.     For m = 0 To myrcs.Fields.Count - 1
  108.         cbocampo.AddItem myrcs.Fields(m).Name
  109.     Next m
  110.     myrcs.Close
  111.     Exit Sub
  112. gg:
  113.     MsgBox Err.Number & Err.Description
  114.     myrcs.Close
  115.     Exit Sub
  116. End Sub
  117. Public Function abrir()
  118.     On Local Error Resume Next
  119.     cnn.Close: Set cnn = Nothing
  120.     Set cnn = New Connection
  121.     On Local Error GoTo licen
  122.     cnn.Open ("provider = microsoft.jet.oledb.4.0;data source=" & datos)
  123.     Exit Function
  124. licen:
  125.     MsgBox Err.Number & Err.Description
  126.     Exit Function
  127. End Function
  128. Private Sub Form_Unload(Cancel As Integer)
  129.     On Local Error Resume Next
  130.     cnn.Close: Set cnn = Nothing
  131.     rcs.Close: Set rcs = Nothing
  132.     myrcs.Close: Set myrcs = Nothing
  133. End Sub
  134.  
  135.  

Gracias de antemano

Páginas: [1]