guardar en variable el resultado de consulta de sql - VB-MUNDO

abdeel · #1 (**permalink**) 19-06-2008, 22:38:48

tengo el siguiente codigo:

ProtectedSub btnnuevo_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles btnnuevo.Click

Dim cn AsNew SqlConnection
cn.ConnectionString = "Data Source=SS1\SQLEXPRESS;" + "Initial Catalog=INTRANET;Integrated Security=True"
Dim cmd AsNew SqlCommand
Dim cons AsInteger = ""
cons = "select (max(idnoproveedor)0)+1 from proveedores"
cmd.CommandText = cons

cmd.Connection = cn

Dim re AsInteger
Using cn
cn.Open()
re = cmd.ExecuteNonQuery()
EndUsing
txtidproveedor.Text = cons.ToString()

txtfecha.Text = ""
txtlegal.Text = ""
txtcomercial.Text = ""
txtfiscal.Text = ""
txtgiro.Text = ""
txtprodyserv.Text = ""
txtrfc.Text = ""
txtfax.Text = ""
txttel.Text = ""
txtweb.Text = ""
txtcontacto.Text = ""
txtpuesto.Text = ""
txtemail.Text = ""
txtnocli.Text = ""
txtcontacto.Text = ""
txtcredito.Text = ""
txtlinea.Text = ""
txtotros.Text = ""

el problema es que no sé como guardar el resultado de una consulta en una variable, para que al momento de presionar en el botón nuevo se cargue automaticamente el numero del nuevo registro.

se que tengo que hecer una consulta que me devuelva el numero mayor del campo idnoproveedor (idnumerodeproveedor), a este resultado le aumento 1 y lo imprimo en la caja de texto, pero sinceramente no soy muy bueno programando y estoy atorado aqui.

de antemano les agradezco la ayuda

sagamoal · #2 (**permalink**) 20-06-2008, 15:43:37

hola que tal, fijate, lo hago de la siguiente manera:

Código:

#Region "Reglas del Negocio"

    Public Function Retorna_Ultimo(ByVal tabla As String, ByVal pktabla As String) As Integer
        Dim Ad As New accesodatos.Operaciones(Command)

        Dim Codigo As Integer
        Command.CommandText = "Select Max(" & pktabla & ") From " & tabla
        Codigo = Command.ExecuteScalar

        Return Codigo

    End Function

#End Region

Suerte.