• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Batista15

[Resolvido]Gravar com o mesmo nome

3 mensagens neste tópico

Alguem tem um tipo de codigo para nao poder gravar com o mesmo nome, por exemplo se gravar um nome "Batista" e outro "batista" nao possa gravar! Preciso da vossa ajuda pessoal!

Arranjei este código mas não percebo la muito

Dim strsql As String = "Select  aviao_classe from aviao where aviao_classe like '" + TextBox4.Text + "%'"
                TextBox5.Text = RetornaValor(strsql)


                If TextBox5.Text = TextBox4.Text Then
                    MsgBox("Pack de viagens já adicionado", MsgBoxStyle.Exclamation, "Agência de viagens")
                    Exit Sub
                End If
Private Function RetornaValor(ByVal strSql) As String
        Try

            Dim db As New OleDbConnection(pap.My.Settings.ligacaodb)
            db.Open()
            Dim cmd As New OleDbCommand

            With cmd
                .Connection = db
                .CommandType = CommandType.Text
                .CommandText = strSql
                Return .ExecuteScalar()
            End With
            cmd.Dispose()
        Catch ex As OleDbException
            Return " "
        End Try


    End Function



0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes reduzir as strings a minúsculas, com a função toLower(), e aí já podes fazer uma comparação sem ter em conta se é frase está em minúsculas ou maiúsculas.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ou podes usar a funçao InString, assim podes compara texto com texto de forma que ele nao liga a maiusculas ou inusculas, o texto é igual..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora