Campo de consulta a variable vb.net
Buenas tardes experto
Vengo de VFP y tengo algunas dudas, uso VB.NET con un motor de base de datos Firebird y lo que estoy haciendo es un selec a una tabla, pero quiero que el resultado de la consulta los pueda tener en variables para realizar un insert
Algo así
select clave, nombre, precio form productos
y el resultado usarlo, para realizar un insert
insert ejemplo(clave, nombre, precio) values (productos,clave, productos.nombre, productos.precio)
asi lo hacia en VFP, pero aqui no se como hacerlo, tengo este codigo:
Dim ADPT As New FbDataAdapter("select nombre, cantidad, precio, total from productos", myConn.ConnectionString)
ADPT.Fill(AllTablas, "ARTICULOS")
Pero como recupero los campos del resultado
Artículos. Nombre
articuos. Cantidad
Artículos. Precio
Artículos. Total
Muchas gracias,
Vengo de VFP y tengo algunas dudas, uso VB.NET con un motor de base de datos Firebird y lo que estoy haciendo es un selec a una tabla, pero quiero que el resultado de la consulta los pueda tener en variables para realizar un insert
Algo así
select clave, nombre, precio form productos
y el resultado usarlo, para realizar un insert
insert ejemplo(clave, nombre, precio) values (productos,clave, productos.nombre, productos.precio)
asi lo hacia en VFP, pero aqui no se como hacerlo, tengo este codigo:
Dim ADPT As New FbDataAdapter("select nombre, cantidad, precio, total from productos", myConn.ConnectionString)
ADPT.Fill(AllTablas, "ARTICULOS")
Pero como recupero los campos del resultado
Artículos. Nombre
articuos. Cantidad
Artículos. Precio
Artículos. Total
Muchas gracias,
1 Respuesta
Respuesta de Eduardo Saligari
1
No necesitarías eso si lo hicieras como INSERT de un SELECT, pero bueno.
ALLTABLAS imagino que es tu DataSet, así que para obtener el valor de un campo deberás hacer algo así:
AllTablas.Tables("ARTICULOS").Rows(0)("NombreCampo").ToString()
El 0 de Rows(0) para decirle que es la primera fila, podrías aumentar ese número para ir barriendo los siguientes registros y sacas el contenido con el "NombreCampo" que corresponda.
Digamos algo así:
Dim Query as String
Query = "insert ejemplo(clave, nombre, precio) values ('" & AllTablas.Tables("ARTICULOS").Rows(0)("clave").ToString() & "','" & AllTablas.Tables("ARTICULOS").Rows(0)("nombre").ToString() & "','" & AllTablas.Tables("ARTICULOS").Rows(0)("precio").ToString() & "')"
ALLTABLAS imagino que es tu DataSet, así que para obtener el valor de un campo deberás hacer algo así:
AllTablas.Tables("ARTICULOS").Rows(0)("NombreCampo").ToString()
El 0 de Rows(0) para decirle que es la primera fila, podrías aumentar ese número para ir barriendo los siguientes registros y sacas el contenido con el "NombreCampo" que corresponda.
Digamos algo así:
Dim Query as String
Query = "insert ejemplo(clave, nombre, precio) values ('" & AllTablas.Tables("ARTICULOS").Rows(0)("clave").ToString() & "','" & AllTablas.Tables("ARTICULOS").Rows(0)("nombre").ToString() & "','" & AllTablas.Tables("ARTICULOS").Rows(0)("precio").ToString() & "')"
