| |
|
11
|
Programación / .NET (C#, VB.NET, ASP) / Re: Consultar 2 tablas en 1 DataSet
|
en: 26 Marzo 2010, 18:12 pm
|
|
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
-------------------------------------------------------------------------------------------
|
|
|
|
|
12
|
Programación / Programación Visual Basic / Re: Cargar Datos en Treeview
|
en: 19 Febrero 2009, 23:02 pm
|
|
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
|
|
|
|
|
13
|
Programación / .NET (C#, VB.NET, ASP) / Visual 2008 + SQL Server 2008
|
en: 19 Febrero 2009, 22:40 pm
|
|
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
|
|
|
|
|
15
|
Programación / Programación Visual Basic / Re: duda con un richtextbox
|
en: 9 Junio 2008, 21:39 pm
|
|
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....
|
|
|
|
|
18
|
Programación / Programación Visual Basic / Re: dudas con MonthView y dbGrid
|
en: 31 Octubre 2007, 03:10 am
|
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.
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
MsgBox DateClicked
End Sub
|
|
|
|
|
19
|
Programación / Programación Visual Basic / Saber Nombre de PC
|
en: 22 Octubre 2007, 19:06 pm
|
|
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???
|
|
|
|
|
20
|
Programación / Programación Visual Basic / Re: Criterios en Sql.
|
en: 19 Octubre 2007, 03:03 am
|
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 '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 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 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.
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
|
|
|
|
|
|
| |
|
Mostrar Mensajes
