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
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


0