hola espero que me puedan ayudar soy nueva en este foro
tengo un problema les explico
estoy trabajando con sqlserver y visual Basic6 tengo un formulario donde ingreso un folio de nota y necesito que cuando me busque ese folio en mi tabla de SQL me inserte otros registros en otras columnas.

esto es mi consulta para buscar el folio en mi tabla pero como le puedo insertar mas datos cuando busque el folio que se le ingresa?

If Len(TxtFolioTicket1.Text) > 10 Then
strSQL = "select * " & _
"from backOfficeMPB.dbo.vencab as vencab " & _
"inner join backofficecatalogos.dbo.catclientes as catclientes on vencab.cliente = catclientes.codigo " & _
" where vencab.folio = '" & TxtFolioTicket1 & "' and vencab.tipoventa = 'R'"

gracias por adelantado ....

Hola
Pues mira...si no pones un poco mas de informacion no te van a poder ayudar.
Estari bien que explicaras un poco mas cosas como:

1. Primero es tu consulta y despues quieres guardar?
2. Los datos que vas a guardar son de otra tablas o el ususario los va a introducir?
3.En que tabla quieres guardar los otros registros, en la misma de tu nota o en otra tabla?.
4.Si solo quieres insertar un registro, usa el INSERT INTO mi_tabla VALUES (value1,value2,......,valuex)

ok gracias:
efectivamente primero quero que me busque el folio de la nota con la consulta que e puesto (arriba) eso ya me funciona y luego el usuario entroducira un registro que quiero que se guarda en la misma tabla donde se localiza el folio que se encontro en su columna "label4" despues de que ingrese ese registro le click en el bopton guardar para que el registro que halla capturado se guarde en la misma tabla donde se localizo el folio

gracias por sus aportes!!!!!

Ok mira....


Yo no uso sql, uso access y si entiendo bien que es lo que quieres, lo que debes de hacer es hacer que el boton guardar se active despues de hacer la consulta de tu folio.
en el codigo de este boton recupera con variables los valores de los datos que se introdujeron y despues usas un insert into nombre_tabla values (variable1,variable2....,variable final);
Con access yo lo hago mas o menos asi
[color=#0000ff size=2][color=#0000ff size=2]


Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] BGuardar_Click([color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] sender [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.Object, [color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] e [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.EventArgs) [color=#0000ff size=2][color=#0000ff size=2]Handles[/color][/color] BGuardar.Click


[color=#008000 size=2][color=#008000 size=2]Dim dt As New DataTable[/color][/color]


[color=#008000 size=2][color=#008000 size=2]Dim intCve = TBclave.Text[/color][/color]


[color=#008000 size=2][color=#008000 size=2]Dim strSQL As String = "SELECT * FROM MUSEOS where [Clave de Museo]=" & intCve & ";"[/color][/color]


[color=#008000 size=2][color=#008000 size=2]Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, strConexion)[/color][/color]


[color=#008000 size=2][color=#008000 size=2]dataAdapter.Fill(dt)[/color][/color]


[color=#008000 size=2][color=#008000 size=2]If intCve <> (dt.Rows(intFila)("Clave de Museo")) Then[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] cnAccess [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] OleDb.OleDbConnection([color=#a31515 size=2][color=#a31515 size=2]"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chavo\Desktop\ProjectsVisual\SISIN V\SISINV\inventarioXP.mdb"[/color][/color])


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] sInsertSQL [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color]


sInsertSQL = [color=#a31515 size=2][color=#a31515 size=2]"INSERT INTO MUSEOS ([Número de contrato],Entidad,[Clave de museo],[Nombre de museo],Direccion,Director,Cargo) VALUES ('"[/color][/color] & TBcontrato.Text & [color=#a31515 size=2][color=#a31515 size=2]"', '"[/color][/color] & TBentidad.Text & [color=#a31515 size=2][color=#a31515 size=2]"', '"[/color][/color] & TBclave.Text & [color=#a31515 size=2][color=#a31515 size=2]"', '"[/color][/color] & TBnombre.Text & [color=#a31515 size=2][color=#a31515 size=2]"', '"[/color][/color] & TBdireccion.Text & [color=#a31515 size=2][color=#a31515 size=2]"', '"[/color][/color] & TBdirector.Text & [color=#a31515 size=2][color=#a31515 size=2]"', '"[/color][/color] & TBcargo.Text & [color=#a31515 size=2][color=#a31515 size=2]"');"[/color][/color]


cnAccess.Open()


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] cmdInsert [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] OleDb.OleDbCommand(sInsertSQL, cnAccess)


[color=#0000ff size=2][color=#0000ff size=2]Try[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] ((cmdInsert.ExecuteNonQuery()) <> 0) [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


MsgBox([color=#a31515 size=2][color=#a31515 size=2]"Nuevo Registro"[/color][/color], MsgBoxStyle.OkOnly, [color=#a31515 size=2][color=#a31515 size=2]"HolA"[/color][/color])


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Catch[/color][/color] ex [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] Exception


MsgBox([color=#a31515 size=2][color=#a31515 size=2]"No se pudo insertar"[/color][/color], MsgBoxStyle.OkOnly)


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Try[/color][/color]


cnAccess.Close()


[color=#008000 size=2][color=#008000 size=2]Else[/color][/color]


[color=#008000 size=2][color=#008000 size=2]MsgBox("Esa clave ya esta asignada a otro Museo" & (Chr(13)) & " Porfavor asigne otra clave para este museo ", MsgBoxStyle.OkOnly, "Registro existente")[/color][/color]


[color=#008000 size=2][color=#008000 size=2]End If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub






Espero que te sirva
[/color][/color]

Ups en la consulta me falto algo jejejeje
Me falto decirte que el insert debes de validarlo....
Es decir que lo ejecutes siempre y cuando el numero de folio sea igual al numero de foliosobre el que hiciste la consulta ok?

insert into tabla (campo1,campo2....etc)values (valor1, valor2... etc) where num_folio = el numero de folio que buscaste.

muchas gracias Yumiles me sirvio de mucho tu ayuda