Hola buenas tardes...lo que pasa es que estoy estudiando una carrera tecnica en informatica y me gustaria aprender a programar. en estos momentos tengo que hacer un sistema con visual studio 2008 y SQL la profesora nos paso un codigo para "cargar la base de datos"y funciona pero no se que demonios hacen las lineas que copie y queria ver si podian hacerme el favor de explicarme que hacen las lineas para entenderlo ya que la profesora no sabe programar y los codigos que nos trae son hechos por su esposo...xD
Aqui esta mi codigo:
Imports System.Data
Imports System.Data.SqlClient
Public Class frmModificaciones
#Region "Buscar"
Dim variable As String
Dim nombre As String
Dim numero As Integer
Dim user As Integer
Public Sub Consultar(ByVal Codigo As String)
Try
Dim Conexion As New SqlConnection(conectar("EVE\SQLEXPRESS", "pollo"))
Dim sql As String = "Select * from contraseña"
Dim sql1 As String = "Select * from numusuarios"
Dim DA As New SqlDataAdapter(sql, Conexion)
Dim DE As New SqlDataAdapter(sql1, Conexion)
Dim DS As New DataSet
Dim Dg As New DataSet
DA.Fill(DS, "contraseña")
DE.Fill(Dg, "numusuarios")
Dim fila As DataRow
fila = Dg.Tables("numusuarios").Rows(0)
user = fila("numero")
If DS.Tables("contraseña").Rows.Count > 0 Then
For i = 0 To user
fila = DS.Tables("contraseña").Rows(i)
variable = fila("usuario")
If variable = ComboBox1.Text Then
variable = fila("contra")
nombre = fila("usuario")
numero = i
If Codigo = 2 Then
If variable = TextBox2.Text Then
Me.Hide()
Form2.Show()
Else
MessageBox.Show("CONTRASEÑA INCORRECTA")
End If
End If
End If
Next
End If
Catch ex As Exception
End Try
End Sub
#End Region
Private Function conectar(ByVal servidorsql As String, ByVal basedatos As String) As String
Dim cnn As String
cnn = "data source = '" & servidorsql & "'; initial catalog = '" & basedatos & "'; INTEGRATED SECURITY = TRUE "
Return cnn
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Consultar(2)
End Sub
Private Sub frmModificaciones_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub ComboBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.LostFocus
Consultar(1)
TextBox3.Text = numero
End Sub
End Class
Cita de: sagoky en 10 Mayo 2012, 22:53 PM
la profesora no sabe programar y los codigos que nos trae son hechos por su esposo...xD
EPIC FAIL, que te enseñe alguien que no sabe lo que esta enseñando, es hasta una paradoja.
lo unico que veo en el codigo, un tanto desprolijo, por lo menos no es como lo haria yo, es un login de usuario.
saludos.
Como alguien que no sabe programar da clase de programación. y pues se ve que ni el esposo sabe programar tampoco jeje.
Como ya te lo dijeron es un logueo lo que hace (hay mejores maneras de hacerlo).
Bueno pues depus de leer y leer el codigo ya me imagino que hace cada linea y lo hice mas corto solo hay dos lineas que no entendi muy bien que hacen...
Dim DA As New SqlDataAdapter(sql, Conexion) 'esta me imagino que...manda la consulta al sql??? porque el valor de la variable sql es select * from contraseña pero no se exactamente que hace'
DA.Fill(DS, "contraseña") '... :xD em...creo que no se...'
queria ver si me podian ayudar con esas 2 lineas......
y asi me quedo el codigo:(las variables como sql,ds,fila y conexion busque como poder usarlas en varios formularios y encontre que se podian hacer declarandolas en un modulo y pues... las declare en modulos...)
Imports System.Data
Imports System.Data.SqlClient
Public Class Contra
Dim Numero_campos As Integer
Dim usuario_y_contra As String
Dim repetir As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
encontrar()
End Sub
Public Sub encontrar()
Try
Dim DA As New SqlDataAdapter(sql, Conexion)
DA.Fill(DS, "contraseña")
For i = 0 To DS.Tables("contraseña").Rows.Count
fila = DS.Tables("contraseña").Rows(i)
Txtusuario.Items.Add(fila("usuario"))
Next
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Aceptar.Click
Dim DA As New SqlDataAdapter(sql, Conexion)
DA.Fill(DS, "contraseña")
Numero_campos = DS.Tables("contraseña").Rows.Count
Numero_campos = Numero_campos - 1
repetir = True
For i = 0 To Numero_campos
fila = DS.Tables("contraseña").Rows(i)
usuario_y_contra = fila("usuario")
If usuario_y_contra = Txtusuario.Text Then
usuario_y_contra = fila("contra")
If repetir = True Then
If usuario_y_contra = Txtcont.Text Then
Me.Hide()
Form1.Text = Txtusuario.Text
Form1.Show()
Else
repetir = False
MessageBox.Show("Contraseña equivocada")
End If
End If
End If
Next
End Sub
End Class