Hola de nuevo compañeros de solocodigo, verán, tengo un programita que muestra las tablas sql, las borra y supuestamente ha de insertarlas. El codigo para insertarlas lo hice...pero peta de una manera vil y diabolica...espero que me ayuden com mi pequeño programa. Gracias de antemano
A continuacion les adjunto el public de insercion
Private Sub btinsertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btinsertar.Click
Dim conexion2 As OracleConnection
Dim consulta2 As String
Dim cmd2 As OracleCommand
Dim i As Integer = 0
Dim j As Integer = 0
Dim resultado2 As OracleDataReader
Dim valores As String = ""
Dim atri As String = ""
valores = Rellenar(dgresultado2)
atri = Rellenar1(dgresultado2)
Try
If (MessageBox.Show("Desea insertar una la fila?" & Lbsalida.SelectedItem, "Atención", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes) Then
conexion2 = New OracleConnection(Form2.cadena)
conexion2.Open()
consulta2 = "insert into " & Lbsalida.SelectedItem & " (" & atri & ") " & "values (" & valores & ")"
cmd2 = New OracleCommand(consulta2, conexion2)
resultado2 = cmd2.ExecuteReader()
resultado2.Close()
conexion2.Close()
MessageBox.Show("La fila fue añadida con éxito", "Atención")
End If
Catch ey As OracleException
MsgBox(ey.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Function Rellenar(ByVal dgresultado2)
Dim i As Integer = 0
Dim j As Integer = 0
Dim x As String
Dim res1 As String = ""
While (i < dgresultado2.ColumnCount - 1)
For i = 0 To dgresultado2.ColumnCount - 1
For j = 0 To dgresultado2.RowCount - 1
x = dgresultado2.Columns.Item(i).Name
res1 = res1 & x & ","
Next
j = +1
Next
i = +1
End While
Return res1
End Function
Private Function Rellenar1(ByVal dgresultado2)
Dim i As Integer = 0
Dim j As Integer = 0
Dim y As String
Dim res2 As String = ""
While (i < dgresultado2.rowcount - 1)
For i = 0 To dgresultado2.ColumnCount - 1
For j = 0 To dgresultado2.RowCount - 1
y = dgresultado2.Rows(j).Cells(i).Value
res2 = res2 & "'" & y & "'" & ","
Next
j = +1
Next
i = +1
End While
Return res2
End Function
End Class
