Mensajes

que tal buenos días


tu problema esta en la consulta sql "select * from Libros, Prestamos"
lo que pasa es que debes poner que campos tomara de cada tabla, ponla así:

SELECT L.Id_libro, L.Título, L.Autor, P.Nif_socio
FROM Libros L, Prestamos P
WHERE L.id_libro = P.id_Libro


con esto tendras una lista de los libros prestados y ya no es necesario los for anidados
--------------------------------------------------------------------
   ' Procedimiento para obtener los libros prestados
        For i As Integer = 0 To Me.oDataSet.Tables(0).Rows.Count - 1
            oDataRow0 = Me.oDataSet.Tables(0).Rows(i)
            For j As Integer = 0 To Me.oDataSet.Tables(1).Rows.Count - 1
                oDataRow1 = Me.oDataSet.Tables(1).Rows(j)
                If oDataRow0("Id_libro") = oDataRow1("Id_libro") Then
                    oDataTable = (oDataRow1.Table)
                End If
            Next
        Next
-------------------------------------------------------------------------------------------

te dejo un ejemplo ráopido.

si quieres crear la estrucutura

Autos
---Honda
---VW
---Nissan
   ---Altima
---Ford

tendras que hacer lo siguiente:
TreeView1.Nodes.Add , , "NodoPadre", "Autos"
TreeView1.Nodes.Add "NodoPadre", tvwChild, "nodohijo1", "Honda"
TreeView1.Nodes.Add "NodoPadre", tvwChild, "nodohijo2", "VW"
TreeView1.Nodes.Add "NodoPadre", tvwChild, "nodohijo3", "Nissan"
TreeView1.Nodes.Add "nodohijo3", tvwChild, "nodonieto1", "Altima"
TreeView1.Nodes.Add "NodoPadre", tvwChild, "nodohijo4", "Ford"



espero te sirva de algo

Buenas tardes, estoy tratando de hacer una aplicación en Visual 2008 que se conecte a una base de datos del sql server 2008, pero tengo problemas

el codigo que tengo es el siguiente:
        Dim cn As Data.SqlClient.SqlConnection
        Dim ds As Data.DataSet
        Dim da As Data.SqlClient.SqlDataAdapter
        Dim Conexion As String
       
        Conexion = "data source=MSSQL1;" & _
                      "initial catalog=Laboratorio;" & _
                      "integrated security=SSPI;" & _
                      "workstation id=sa;pwd=xxx;"

        Try
            cn = New Data.SqlClient.SqlConnection(Conexion)
            cn.Open()
        Catch ex As Exception
            MessageBox.Show("Error al abrir la conexión:" & vbCrLf & ex.Message)
            Exit Sub
        End Try

hasta alli parece todo bien, el problema es que quiero antenticar con el usuario del SQL (sa), pero me marca error diciendo que el usuario con el que inicio sesión en windows no tiene permisos.


¿alguien sabe como resolver este lio?????????


de antemano gracias

creo que tambien hay que mencionar que cuando se redimensiona un array dinamico pierde los valores que han sido almacenados. para no perderlos basta con usar "Redim preserve"

que tal ricardovinzo como lo dice cΔssiΔnі  ese tema ya se ha tratado aqui varias veces, pero igual hay va una vez más jejeje



lo que puedes hacer es usar la función instr ejemplo

dim pos as long
pos = 1
do
    pos = instr(pos, "Carlos", texto)   ' Localica donde empieza la palabra Carlos
    if pos = 0 then exit do
    RichTextBox1.SelStart = pos    ' seleccionamos la parte del texto
    RichTextBox1.SelLength = 6     ' y la ponemos en negrita
    RichTextBox1.SelBold = True
loop while pos <> 0 ' Repetimos el bucle hasta que no encuentre más parabras



tambien puedes crear un array de palabras a buscar y hacer bucles anidados para que te ahorres codgo,




espero te sirva este pequeño ejemplo......
saludos....

exacto, es por la comilla, lo que podrias hacer es sustituir la comilla por su codigo ascii:

Código [Seleccionar] Expandir


consultaSQL = "INSERT INTO Datos (Apellido) VALUES (" & chr(39) & "D" & chr(39) & "Marco" & chr(39) & ")"


con eso debe trabajar

dale en buscar, hace tiempo puse un post sobre como alinear clumnas en los listbox

puedes usar el evento DateClick, esto es cunado haces click en algun día te guarda la fecja en una variable y puedes usarla para hacer el filtrado que necesitas.

Código [Seleccionar] Expandir



Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    MsgBox DateClicked
End Sub


Buenas tardes, abusando de su conocimientos, quiesiera preguntarles si alguien sabe como obtener el nombre de una pc por medio de su dirección IP, es decir si tengo: 169.58.36.48, como saber el nombre de esa PC???

pues podrias "jugar" con una cadena de texto que vaya formando la consulta, por ejemplo al cargar el form pon el inicio de la sentencia SQL

Código [Seleccionar] Expandir


'variable global en el form
Dim Consulta as String
dim Cons1 as string
dim Cons2 as String
dim Cons3 as string
dim Cons4 as string

Private sub  Form_Load()
    Consulta = "SELECT * FROM tbl_Empleados WHERE "
end sub



en caso de que deshabilites un check quitas cosas

Código [Seleccionar] Expandir


Private Sub Check1_Click()
     if check1.value = 0 then cons1 = ""
End Sub

Private Sub Check2_Click()
     if check2.value = 0 then cons2 = ""
End Sub

Private Sub Check3_Click()
     if check3.value = 0 then cons3 = ""
End Sub

Private Sub Check4_Click()
     if check1.value = 0 then cons4 = ""
End Sub


y en cada Combo le pones le pones cosas

Código [Seleccionar] Expandir


Private sub Combo1_Click()
    Cons1 = "categoria = " & mid(combo1, 1, 3) 
end sub

Private sub Combo2_Click()
    Cons2 = "Otracategoria" & mid(combo2, 1, 3)
end sub

Private sub Combo3_Click()
    Cons3 = "Otracategoria" & mid(combo3, 1, 3)
end sub

Private sub Combo4_Click()
    Cons4 = "Otracategoria" & mid(combo4, 1, 3)
end sub


y ya en el procedimiento de filtrar pegas todo.

Código [Seleccionar] Expandir



if cons1 <> "" then consulta = consulta & cons1 & " AND "
if cons1 <> "" then consulta = consulta & cons2 & " AND "
if cons1 <> "" then consulta = consulta & cons3 & " AND "
if cons1 <> "" then consulta = consulta & cons4

' Esto es por si la cadena terminara en " AND "
if right(Consulta, 5) = " AND " then consulta = left(Consulta, len(consulta)-5)

consulta = consulta & " ORDER BY uncampo;"

' y ahora si haces la consulta
Dbpath = App.Path & "\" & DirectorioBase & "\" & Db_A_Name
Set Db = DBEngine.OpenDatabase(Dbpath, False, False, ";pwd=" & StrPass)
Set Rst = Db.OpenRecordset(Consulta)
             
While Not Rst.EOF     
          Set Item = Me.ListView2.ListItems.Add(, , Rst!legajo)
          Item.SubItems(1) = Rst!nombres '& ", " & Rst!Apelldos
          Rst.MoveNext
Wend
       
Hay_err_exit:
   
Rst.Close
Db.Close

Set Rst = Nothing
Set Db = Nothing

Hay_err_err:
   
Select Case Err.Number
Case 3024

            MsgBox "Es imposible encontrar la base de datos. " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la ruta:" & App.Path & "\bases" & "  e intente nuevamente", vbInformation + vbOKOnly, "Aviso!"
'            Exit Function
           
Case 3078
            MsgBox "Es imposible encontrar la tabla: " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la base de datos" & "Base_Actual.mdb" & "e intente nuevamente", vbInformation + vbOKOnly, "Aviso!"
            'Exit Function
End Select

End Sub