[SOLUCIONADO] guardar valores de consulta sql en variables

[shaka025]

Buen día.

Necesito de su ayuda, lo que pasa es que estoy haciendo una consulta para que me regrese el ultimo Id de una tabla
(SELECT max(id) FROM cuentas)

Quisiera saber el código para que el resultado me lo guarde en una variable.

En espera de respuesta envío un cordial saludo.

Esto es lo que tengo hasta ahorita.

Public conec As SqlConnection
Public queri As SqlCommand
Public tabla As SqlDataAdapter
Public datos As DataTable
Public consulta, dato2 As String

conec = New SqlConnection("data source = AFULLSERVER\EXPRESS; initial catalog =" & factory & "; user id = sa; password = server123")
conec.Open()
If conec.State <> ConnectionState.Open Then
MsgBox("No conectado")
End If
consulta = "SELECT max(id) FROM cuentas"
queri = New SqlCommand
queri.Connection = conec
queri.CommandText = consulta
queri.CommandType = CommandType.Text
queri.ExecuteNonQuery()
tabla = New SqlDataAdapter(queri)
datos = New DataTable
tabla.Fill(datos)

NOTA: SI ME TRAE EL RESULTADO DE LA CONSULTA PERO NO SE COMO ASIGNARLO EN UNA VARIABLE.

En espera de respuesta envío un cordial saludo

[cristiantorres]

Yo lo haría en una función así.

Código vb.net:

Public Function RecuperarId() As Integer
    Using conn As New SqlConnection("data source = AFULLSERVER\EXPRESS; initial catalog =" & factory & "; user id = sa; password = server123")
         Dim query = "SELECT max(id) FROM cuentas"
         Dim cmd As New SqlCommand(query, conn)
         conn.Open()
 
         Return Convert.ToInt32(cmd.ExecuteScalar())
   End Using
End Function
 

Y para guardar el dato en una variable arias asi.

Código vb.net:

Dim id As Integer = RecuperarId()
 

Como veras el codigo queda mejor estructurado.

Puedes encontrar un ejemplo sobre este tema en un articulo de mi blog.
Comprobar si Existe Registro en BD C# - VB.Net

[shaka025]

Iniciado por cristiantorres

Yo lo haría en una función así.

Código vb.net:

Public Function RecuperarId() As Integer
    Using conn As New SqlConnection("data source = AFULLSERVER\EXPRESS; initial catalog =" & factory & "; user id = sa; password = server123")
         Dim query = "SELECT max(id) FROM cuentas"
         Dim cmd As New SqlCommand(query, conn)
         conn.Open()
 
         Return Convert.ToInt32(cmd.ExecuteScalar())
   End Using
End Function
 

Y para guardar el dato en una variable arias asi.

Código vb.net:

Dim id As Integer = RecuperarId()
 

Como veras el codigo queda mejor estructurado.

Puedes encontrar un ejemplo sobre este tema en un articulo de mi blog.
[URL="http://cristiantorresalfaro.blogspot.com/2012/07/comprobar-si-existe-registro-en-bd-c.html"]Comprobar si Existe Registro en BD C# - VB.Net[/URL]

Muchas Gracias.... Ya lo probé y salio de lujo... Ahora si podre utilizar el dato para mis operaciones. que tengas excelente dia.

Saludos cordiales