Importar de un datagrid a mysql
Disculpa pero tengo problemas con insertar datos en mi tabla en mysql tengo el siguiente código el cual recorre mi datagrid el cual contiene lo datos que voy a insertar
'Definimos dos arrays de String, C,f y t, que contendrn, respectivamente, los
'campos(fields), las filas que la consulta devolver y la tablas sobre las que se ejecutar.
Dim C As String = "", f As String = ""
Dim t As String = TABLASBD.Text ' un combobox donde seleccionamos la tabla de mi bd
' Cuantas columnas y cuantas filas?
Dim NCol As Integer = DataGrid1.ColumnCount
Dim NRow As Integer = DataGrid1.RowCount
Dim da As New MySQLDataAdapter("SELECT * FROM" & t, conexion)
'Aqui recorremos todas las filas, y por cada fila todas las columnas y vamos escribiendo.
For i As Integer = 1 To NCol
If i - 1 = 0 Then
C = C + DataGrid1.Columns(i - 1).Name.ToString() 'esto es para nombre de las columnas
Else
C = C + "," + DataGrid1.Columns(i - 1).Name.ToString() 'esto es para las columnas pero a partir de la segunda
End If
Next
For Fila As Integer = 0 To NRow - 1 'recorre cada fila
For Col As Integer = 0 To NCol - 1 'recorre la columna n de la fila x
If Col = 0 Then
f = f + DataGrid1.Rows(Fila).Cells(Col).Value.ToString ' esto es para los datos de las filas Else
f = f + DataGrid1.Rows(Fila).Cells(Col).Value.ToString ' esto es para los datos de las filas 'partir de la segunda col
End If
Next
'aqui ira el "INSERT INTO " & t & "(" & C & ") VALUES ("& f &")"
Next
conexion.Close() 'Cerramos la conexin con el servidor
pero me marca problemas en f = f + DataGrid1.Rows(Fila).Cells(Col).Value.ToString lo que marca es esto "Referencia a objeto no establecida como instancia de un objeto." y ademas no se como implementar mi comando de insert para mi tabla de mysql.
'Definimos dos arrays de String, C,f y t, que contendrn, respectivamente, los
'campos(fields), las filas que la consulta devolver y la tablas sobre las que se ejecutar.
Dim C As String = "", f As String = ""
Dim t As String = TABLASBD.Text ' un combobox donde seleccionamos la tabla de mi bd
' Cuantas columnas y cuantas filas?
Dim NCol As Integer = DataGrid1.ColumnCount
Dim NRow As Integer = DataGrid1.RowCount
Dim da As New MySQLDataAdapter("SELECT * FROM" & t, conexion)
'Aqui recorremos todas las filas, y por cada fila todas las columnas y vamos escribiendo.
For i As Integer = 1 To NCol
If i - 1 = 0 Then
C = C + DataGrid1.Columns(i - 1).Name.ToString() 'esto es para nombre de las columnas
Else
C = C + "," + DataGrid1.Columns(i - 1).Name.ToString() 'esto es para las columnas pero a partir de la segunda
End If
Next
For Fila As Integer = 0 To NRow - 1 'recorre cada fila
For Col As Integer = 0 To NCol - 1 'recorre la columna n de la fila x
If Col = 0 Then
f = f + DataGrid1.Rows(Fila).Cells(Col).Value.ToString ' esto es para los datos de las filas Else
f = f + DataGrid1.Rows(Fila).Cells(Col).Value.ToString ' esto es para los datos de las filas 'partir de la segunda col
End If
Next
'aqui ira el "INSERT INTO " & t & "(" & C & ") VALUES ("& f &")"
Next
conexion.Close() 'Cerramos la conexin con el servidor
pero me marca problemas en f = f + DataGrid1.Rows(Fila).Cells(Col).Value.ToString lo que marca es esto "Referencia a objeto no establecida como instancia de un objeto." y ademas no se como implementar mi comando de insert para mi tabla de mysql.
1 respuesta
Respuesta de emperador20
1