Gerar Código (ID) de Usuário automático e Pegar o Código.
25/09/2009
0
Estou iniciando no mundo da programação e comecei com VB.NET, mais depois que conheci o C# fiquei maravilhado, nada contra o VB.
Contudo estou tentando passar os códigos do VB.NET para C e estou esbarrando em alguns problemas por exemplo essas duas Funções (Function) em VB.Net.
Uma para Pegar o Código do usuário e a outra para gerar o código automático e jogar no TextBox e depois gravar no banco(SQLServer), eu convertir mais esta dando erro quem pode me ajudar, segue os códigos.
----VB.NET
Function PegaCod()
DBcon.Open()
DCom1 = New SqlCommand(´SELECT * FROM TCEI_USUARIOS´, DBcon)
DR = DCom1.ExecuteReader()
While DR.Read
TextBox1.Text = DR(´ID´)
End While
If TextBox1.Text = ´´ Then
TextBox1.Text = ´User-000´
End If
DBcon.Close()
DR.Close()
DCom1.Dispose()
End Function
----C#
public object PegaCod()
{
DBcon.Open();
DCom1 = new SqlCommand(´SELECT * FROM TCEI_USUARIOS´, DBcon);
DR = DCom1.ExecuteReader();
while (DR.Read)
{
TextBox1.Text = DR(´ID´);
}
if (string.IsNullOrEmpty(TextBox1.Text))
{
TextBox1.Text = ´User-000´;
}
DBcon.Close();
DR.Close();
DCom1.Dispose();
}
----VB.NET
Function GeraCodigo()
Dim Soma = TextBox1.Text
Dim Anotar As Integer
Dim NovoSlip As String = ´User-000´
Dim Numero As String
Try
Anotar = CInt(Soma.TrimStart(´U´, ´s´, ´e´, ´r´, ´-´))
Anotar += 1
Numero = Anotar.ToString()
Return NovoSlip + Numero
Catch ex As Exception
MessageBox.Show(ex.Message, ´error´)
End Try
End Function
----C#
public object GeraCodigo()
{
var Soma = TextBox1.Text;
int Anotar = 0;
string NovoSlip = ´User-000´;
string Numero = null;
try
{
Anotar = (int)Soma.TrimStart( ´U´, ´s´, ´e´, ´r´, ´-´ );
Anotar += 1;
Numero = Anotar.ToString();
return NovoSlip + Numero;
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, ´error´ );
}
}
Contudo estou tentando passar os códigos do VB.NET para C e estou esbarrando em alguns problemas por exemplo essas duas Funções (Function) em VB.Net.
Uma para Pegar o Código do usuário e a outra para gerar o código automático e jogar no TextBox e depois gravar no banco(SQLServer), eu convertir mais esta dando erro quem pode me ajudar, segue os códigos.
----VB.NET
Function PegaCod()
DBcon.Open()
DCom1 = New SqlCommand(´SELECT * FROM TCEI_USUARIOS´, DBcon)
DR = DCom1.ExecuteReader()
While DR.Read
TextBox1.Text = DR(´ID´)
End While
If TextBox1.Text = ´´ Then
TextBox1.Text = ´User-000´
End If
DBcon.Close()
DR.Close()
DCom1.Dispose()
End Function
----C#
public object PegaCod()
{
DBcon.Open();
DCom1 = new SqlCommand(´SELECT * FROM TCEI_USUARIOS´, DBcon);
DR = DCom1.ExecuteReader();
while (DR.Read)
{
TextBox1.Text = DR(´ID´);
}
if (string.IsNullOrEmpty(TextBox1.Text))
{
TextBox1.Text = ´User-000´;
}
DBcon.Close();
DR.Close();
DCom1.Dispose();
}
----VB.NET
Function GeraCodigo()
Dim Soma = TextBox1.Text
Dim Anotar As Integer
Dim NovoSlip As String = ´User-000´
Dim Numero As String
Try
Anotar = CInt(Soma.TrimStart(´U´, ´s´, ´e´, ´r´, ´-´))
Anotar += 1
Numero = Anotar.ToString()
Return NovoSlip + Numero
Catch ex As Exception
MessageBox.Show(ex.Message, ´error´)
End Try
End Function
----C#
public object GeraCodigo()
{
var Soma = TextBox1.Text;
int Anotar = 0;
string NovoSlip = ´User-000´;
string Numero = null;
try
{
Anotar = (int)Soma.TrimStart( ´U´, ´s´, ´e´, ´r´, ´-´ );
Anotar += 1;
Numero = Anotar.ToString();
return NovoSlip + Numero;
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, ´error´ );
}
}
Pra_santos
Curtir tópico
+ 0
Responder
Posts
25/09/2009
Crosjunior
Veja o site
www.DevCursos.com.br
Lá você aprende tudo sobre isso e muito mais !
www.DevCursos.com.br
Lá você aprende tudo sobre isso e muito mais !
Responder
Clique aqui para fazer login e interagir na Comunidade :)