Tengo la siguiente función para conectarme al SQL Server 2000
Código:
Luego tengo un SUB para actualizar todos los datos de una columna a 0Public Function CadenaConexion() As String Dim csb As New SqlConnectionStringBuilder csb.DataSource = "(local)" csb.InitialCatalog = "BackUP_Test" csb.IntegratedSecurity = True Return csb.ConnectionString End Function
Código:
Esto funciona perfectamente.Public Sub Actualizar_Usuarios() Dim sCon As String = CadenaConexion() Dim sel As String sel = "UPDATE " & "MEMB_STAT" & _ " SET ConnectStat='0'" & _ " WHERE ConnectStat>0" Using con As New SqlConnection(sCon) Dim cmd As New SqlCommand(sel, con) con.Open() Dim t As Integer = cmd.ExecuteNonQuery() con.Close() MsgBox("Había un total de: " & t & ", usuarios conectado. Se ha completado con éxito.", MsgBoxStyle.Information, "Limpiar Usuarios Conectados") End Using End Sub
Ahora mi problema que he estado buscando por todos lados y no he encontrado solución es la siguiente:
Este programa tiene una función que es para "banear" usuarios.
Lo que necesito es que el programa busque el personaje en la tabla
Character la columna Name con Where
Y luego me obtenga el nombre de la cuenta de dicho personaje que la columna se llama AccountID
Ósea, estructura de la tabla
[AccountID - Name]
Ej:
ErCaZa - Pepito
Entonces mi programa tiene que buscar Pepito y darme el nombre de su cuenta.
Luego en otra tabla esta la lista de baneados en la tabla list_banned, en esta lista están todas las cuentas creadas pero la columna estado tienen un 0 y quiero cambiarlo por 1
Estructura de la tabla
[AccountID, Estado]
ErCaZa - 0
Y lo que quiero es que el programa me lo cambie a 1
Ósea en resumidas cuentas lo que quiero es que introduciendo el nombre del personaje me cambie la lista de usuarios baneados con el nombre de la cuenta.
He estado rompiéndome mucho la cabeza y no hay manera :P
Muchas gracias de antemano.