ATRIBUIR VALOR DE UM SELECT A UMA VARIAVEL

BORTHOLETTO 28/10/2011 10:44:49
#387993
Bom dia,

fiz um select para pegar um codigo identity de uma tabela atraves do nome que consta no combobox, gostaria de pegar esse valor que por exemplo retornara o código 1 e atribuir em uma variavel, para depois fazer um insert em outra tabela com o valor da variavel.


Obrigado
PHOENIX209E 28/10/2011 10:51:52
#387994 Resposta escolhida 
Dim Variavel as String

Sub Carrega_Variavel()
Try
Using Comando as new SqlCommand([Ô]SELECT * FROM TABELA[Ô],Conexao)
   Using DR = Comando.ExecuteReader
          DR.Read
          If(DR.HasRow) Then
              If(DR.IsDbNull(0)) Then
                 Variavell = Nothing
              Else
                  Variavel = Dr.GetInt32(0)
              End If
            End If
     End Using
End Using
Catch ex as Exception
Msgbox([Ô]Erro: [Ô] & err.descrotion)
Finally
Conexao.Close()
End Try
End Sub

Sub Insere_Valor()
Try
Using Comando as New SqlCommand([Ô]INSERT INTO TABELA(VALOR) VALUES(Variavel)[Ô],Conexao)
        Dim Contador as Integer = Comando.executenonquery
        If(Contador >0) Then
           Msgbox([Ô]Valor inserido com sucesso[Ô])
        Else
           Msgbox([Ô]Nenhum valor inserido![Ô])
        End If
End Using
Catch ex as Exception
msgbox([Ô]Erro: [Ô] & err.description)
Finally
Conexao.Close
End Try


Ta me devendo uma Breja ;)
BORTHOLETTO 28/10/2011 10:55:31
#387995
o doidão vo testar aqui, só quero ver se vai dar certo




Citação:

:

Dim Variavel as String

Sub Carrega_Variavel()
Try
Using Comando as new SqlCommand([Ô]SELECT * FROM TABELA[Ô],Conexao)
   Using DR = Comando.ExecuteReader
          DR.Read
          If(DR.HasRow) Then
              If(DR.IsDbNull(0)) Then
                 Variavell = Nothing
              Else
                  Variavel = Dr.GetInt32(0)
              End If
            End If
     End Using
End Using
Catch ex as Exception
Msgbox([Ô]Erro: [Ô] & err.descrotion)
Finally
Conexao.Close()
End Try
End Sub

Sub Insere_Valor()
Try
Using Comando as New SqlCommand([Ô]INSERT INTO TABELA(VALOR) VALUES(Variavel)[Ô],Conexao)
        Dim Contador as Integer = Comando.executenonquery
        If(Contador >0) Then
           Msgbox([Ô]Valor inserido com sucesso[Ô])
        Else
           Msgbox([Ô]Nenhum valor inserido![Ô])
        End If
End Using
Catch ex as Exception
msgbox([Ô]Erro: [Ô] & err.description)
Finally
Conexao.Close
End Try


Ta me devendo uma Breja ;)
PHOENIX209E 28/10/2011 10:58:06
#387996
Se der certo encerre o topico e HOJE Sexta,voce terá o DEVER e bola um LITRAO no intervalo,estamos entendidos?!
BORTHOLETTO 28/10/2011 10:59:12
#387997
o passa seu msn ai

Citação:

:
Se der certo encerre o topico e HOJE Sexta,voce terá o DEVER e bola um LITRAO no intervalo,estamos entendidos?!
PHOENIX209E 28/10/2011 11:04:55
#388000
To sem msn

Lembrando que o metodo Getint32(),IsDbNull() trata-se do campo.
GetInt32(CAMPO) voce vai la no SQL Server (Tabela) e conta..campo 0 campo 1 campo 2 campo 3 ......
Então se o campo for Numerico e eu quero o campo 2 por exemplo,fica GetInt32(2) sako?
BORTHOLETTO 28/10/2011 13:37:54
#388022
doidão deu esse erro na hora de inserir:


ERRO: INCORRECT SYNTAX NEAR [ô]1[ô]


Citação:

:
To sem msn

Lembrando que o metodo Getint32(),IsDbNull() trata-se do campo.
GetInt32(CAMPO) voce vai la no SQL Server (Tabela) e conta..campo 0 campo 1 campo 2 campo 3 ......
Então se o campo for Numerico e eu quero o campo 2 por exemplo,fica GetInt32(2) sako?
BORTHOLETTO 28/10/2011 13:42:26
#388023
DA UMA OLHADA NO CODIGO:



Private Sub btn_Salvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Salvar.Click





Try
Using comando As New SqlCommand([Ô]SELECT Cod_PerfilUsuario FROM PerfilUsuario WHERE Descricao_PerfilUsuario = [ô][Ô] + cbo_ConsultaCliente.Text + [Ô][ô][Ô], conexao)

Using DR = comando.ExecuteReader
DR.Read()
If (DR.HasRows) Then
If (DR.IsDBNull(0)) Then
codigo = Nothing

Else
codigo = DR.GetInt32(0)
MsgBox(codigo)

End If
End If
End Using
End Using

Catch ex As Exception
MsgBox([Ô]Erro: [Ô] & Err.Description)
Finally
End Try

Try
Using comando As New SqlCommand([Ô]INSERT INTO PERMISSAO (acessoo) VALUES [ô][Ô] + (codigo) + [Ô][ô][Ô], conexao)

Dim contador As Integer = comando.ExecuteNonQuery()

If (contador > 0) Then
MsgBox([Ô]inserido com sucesso[Ô])
Else
MsgBox([Ô]nenhum valor inserido[Ô])
End If
End Using
Catch ex As Exception
MsgBox([Ô]Erro: [Ô] & Err.Description)
End Try
BORTHOLETTO 28/10/2011 14:16:00
#388028
valeu doidão deu certo
Tópico encerrado , respostas não são mais permitidas
Voltar