comparar e inserir dados no Sql pelo VB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: comparar e inserir dados no Sql pelo VB

Tati
não registrado

ENUNCIADA !

Postada em 30/06/2012 02:53 hs

Gente uma ajudinha, preciso comparar um campo, pois se ele existe no Banco - Sql nao vou inseri dados nele e se nao existir, ai sim posso inseir dados.
É uma tela pra inserir usuario e senha no BD, mas antes verificar se ja existe o usuario.
'cn = obejto de conexao
esta mais ou menos assim,

Dim da1 As String = "select * from usuarios where nomeusuario='" & Trim(txtusuario.Text) & "'and senhaid='" & Trim(txtsenha.Text) & "'"
Dim cmdcompara As New SqlCommand(da1, cn)

???????? tah ai minha duvida, nao sei mais o que fazer

Comparei, e agora pra inserir???
Grata.

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 30/06/2012 19:39 hs

Tati é assim vc compara, se existe apenas o usuário não precisa comparar senha isso vai dar errrado.

então faça um select para verificar se exist
ex: em ADO

sSQL = "SELECT * FROM tabela WHERE usuario = '" & txtuser.Text "'"
Set RS = CNN.Execute(sSQL)

' agora verifica o que fazer

If (RS.BOF And RS.EOF) Then ' traduzindo se estiver vazio é porque não existe

CNN.Execute("INSERT INTO tabela (usuario, senha) VALUES ('" & txtUser.Text & "'," & txtSenha.Text & "')" ' se estiver vazio o campo criado

Else

Msgbox "Este usário já existe"

End if

este é o caminho

TÓPICO EDITADO

Valério
não registrado

ENUNCIADA !

Postada em 01/07/2012 20:54 hs

Dim connection As New SqlClient.SqlConnection
        Dim command As New SqlClient.SqlCommand
        Dim adaptor As New SqlClient.SqlDataAdapter
        Dim dataset As New DataSet

        connection.ConnectionString = ("Data Source=localhost;Initial Catalog=Bras2012;Integrated Security=SSPI; ")
        command.CommandText = "SELECT NomeUsuario, senhaid FROM Usuario WHERE Nomeusuario='" & Trim(Text1.Text) & "' and senhaid='" & Trim(Text2.Text) & "' "
        connection.Open()

command.Connection = connection

adaptor.SelectCommand = command
adaptor.Fill(dataset, "0")

Dim count = dataset.Tables(0).Rows.Count
If count > 0 Then

'SeuForm.Show()
MsgBox("ok")

        Else
            MsgBox("Login invalido verifique seu login e senha", MsgBoxStyle.Critical)
            Text1.Clear()
            Text2.Clear()
        End If

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR