Autor
Tengo una BD (abajo el condigo de la misma) en el que tiene 2 columnas IdClan y Premium. El IdClan sera 3 caracteres, aqui el problema puede ser CUALQUIERA! leyendo me dijeron que lo ponga nvarchar (que mysql a hora me lo cambia a varchar y le agrega utf 8 unicode) el punto es que mediante este codigo (presentado abajo) es como si no lo reconociera
Tengo 2 textbox y 1 boton
En el primer TextBox introdusco uno, dos o 3 caracteres ejemplo: ≈ΔИ
Aprieto el boton
Y me tendria que decir el textbox2: Si (Ya que SI fue el valor que le puse a ese IdClan previamente desde la base de datos) todo esto siemprep oniendo los datos previamente desde la bd ya que al no reconocerlos no los podia poner mediante el programa xD jajaja.... pero ta el punto es que le textbox2 no me dice nada... porque no lee
Pero si pongo digamos el IdClan A en el textbox1 y le doy al boton si me sale que es premium... son con ciertos caracteres especiales
ayudaa!!!Código:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim unGuildenIdent As New clsGuildenIdent
Dim unClan As New clsClan
unClan.IdClan = txttag.Text
unClan = unGuildenIdent.darUnClan(txttag.Text)
txtpremium.Text = unClan.Premium
End Sub
End Class
Código:
Public Class clsClan
Private mIdClan As String
Public Property IdClan() As String
Get
Return mIdClan
End Get
Set(ByVal value As String)
mIdClan = value
End Set
End Property
Private mPremium As String
Public Property Premium() As String
Get
Return mPremium
End Get
Set(ByVal value As String)
mPremium = value
End Set
End Property
Public Function darUnClan(ByVal IdClan As String) As clsClan
Dim unClan As New clsPClan
Return unClan.darUnClan(IdClan)
End Function
End Class
Código:
Imports MySql.Data.MySqlClient
Public Class clsPClan
Inherits clsPersistencia
Public Function crearClan(ByVal datosClan As MySqlDataReader) As clsClan
Dim unClan As New clsClan
unClan.Premium = datosClan.Item("Premium").ToString
Return unClan
End Function
Public Function darUnClan(ByVal IdClan As String) As clsClan
Dim unClan As New clsClan
Dim sql As String
sql = "SELECT Premium FROM clan WHERE IdClan='" & IdClan & "'"
Dim resultados = ejecutarYdevolver(sql)
If resultados.HasRows Then
resultados.Read()
unClan = crearClan(resultados)
End If
Return unClan
End Function
End Class
Código:
DROP TABLE IF EXISTS `clan`;
CREATE TABLE `clan` (
`IdClan` varchar(3) CHARACTER SET utf8 NOT NULL,
`Premium` varchar(2) NOT NULL DEFAULT 'No',
PRIMARY KEY (`IdClan`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
En línea
