Visual Basic.NET - insert en visual basic net

 
Vista:

insert en visual basic net

Publicado por Aurora (4 intervenciones) el 11/03/2009 19:36:11
Hola! estoy desarrollando una aplicacion en Visual Basic .Net 2008 en la que necesito insertar varios registros a una tabla en oracle..

Lo que no se como hacer es insertar todos los registros... uno por uno si me los inserta pero no tengo idea de como agregar mas... ya que cada registro es diferente...

Este es el codigo que tengo:

Dim strTmp2 As String = "Provider=MSDAORA.1; User ID=floorstation; Password=go_team; Data Source=seapack_liberty.world"
Dim cn = New OleDb.OleDbConnection(strTmp2)
Dim cmd As OleDb.OleDbCommand = cn.CreateCommand

cmd.CommandText = "insert into station_env " & _
"values(?,'ALLOW_END_SHORT','ON','DBA')"

cmd.Parameters.Add("@PC", OleDb.OleDbType.VarChar).Value = Me.txtpcname.Text

Try
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
cn.Dispose()

Catch err As Exception
MsgBox(err.Message)
End Try

**** Intente lo siguiente pero no me dio resultado, me envia error: (separe los insert con punto y coma)

cmd.CommandText = "insert into station_env " & _
"values(?,'ALLOW_END_SHORT','ON','DBA'); " & _
"insert into station_env " & _
"values(?,'ALLOW_END,'OFF','DBA'

cmd.Parameters.Add("@PC", OleDb.OleDbType.VarChar).Value = Me.txtpcname.Text
cmd.Parameters.Add("@PC2", OleDb.OleDbType.VarChar).Value = Me.txtpcname.Text

Espero puedan ayudarme...

Gracias!

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:insert en visual basic net

Publicado por jb (53 intervenciones) el 11/03/2009 21:51:57
no entiendo, xq vas a hacer q en uin textbozx se ingrese variosm registros, si es un mantenimiento de algo, no se podria hacer asi ps xq el mantenimiento es para un solo dato a la vez, pero si lo quieres hacer asi prodrias hacer un for, seria algo asi:

for i=0 to ubound(variable) ------> arraylist
cmd.CommandText = "insert into station_env " & _
"values(variable(i))"

cmd.Parameters.Add("@PC", OleDb.OleDbType.VarChar).Value = variable(i)
next

espero q te sirva de ayuda, ps esto es lo q me imagino lo q quieres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar