Visual Basic.NET - como guardar datos de un datagridview vb.net cargados desde excel

   
Vista:

como guardar datos de un datagridview vb.net cargados desde excel

Publicado por Pedro (3 intervenciones) el 09/11/2012 20:06:31
Buenas

Tengo un formulario de vb.net con un datagridview el cual me importa datos desde excel... ahora lo que necesito es guardar estos datos en mi base de datos mysql... vi un codigo que coloco alguien de aqui que fue el siguiente:

Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
For i As Integer = 0 To dgvImportacion.Rows.Count - 1
'use un procedimiento almacenado en sql
produc("ps_producto", "producto", dgvImportacion.Rows(i).Cells(0).Value, dgvImportacion.Rows(i).Cells(1).Value) 'todas las q sean necesarias
Next i
End Sub

Al colocarlo me dice que produc no esta declarado, por lo que no me sirve...

Si alguien me puede ayudar con un codigo para el boton guardar y asi almacenar los registros que se me muestran en el datagrid

MUCHAS GRACIAS DE ANTEMANO
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

como guardar datos de un datagridview vb.net cargados desde excel

Publicado por Xavier (1 intervención) el 09/04/2014 18:25:07
Yo tengo el mismo problema, pudiste resolverlo??
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

como guardar datos de un datagridview vb.net cargados desde excel

Publicado por Diana (2 intervenciones) el 11/04/2014 16:28:03
Puedes usar el siguiente ejemplo:

Puedes usar este ciclo para barrer las celdas y despues haces tu string Insert como el siguiente ejemplo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
ry
For s = 0 To dgvWork.RowCount() - 2
If dgvWork.Rows(s).Cells(0).Value.ToString <> "" Then
msClNe_Id = dgvWork.Rows(s).Cells(0).Value.ToString.Trim
Else
msClNe_Id = " "
End If
If dgvWork.Rows(s).Cells(1).Value.ToString <> "" Then
msClNe_Code = dgvWork.Rows(s).Cells(1).Value.ToString.Trim
Else
msClNe_Code = " "
End If
If dgvWork.Rows(s).Cells(2).Value.ToString <> "" Then
msClNe_Name = dgvWork.Rows(s).Cells(2).Value.ToString.Trim
Else
msClNe_Name = " "
End If
If dgvWork.Rows(s).Cells(3).Value.ToString <> "" Then
msLink_Id = dgvWork.Rows(s).Cells(3).Value.ToString.Trim
Else
msLink_Id = " "
End If
If dgvWork.Rows(s).Cells(4).Value.ToString <> "" Then
msClNe_Sts = dgvWork.Rows(s).Cells(4).Value.ToString.Trim
Else
msClNe_Sts = "A"
End If
'/-------------------------------------------------------------
Try
Dim msInsertSQL As String = "Insert into clnem(" & _
"cclne_id, " & _
"cclne_code, " & _
"cclne_name, " & _
"clink_id, " & _
"cclne_status " & _
") values('" & _
msClNe_Id & "', '" & _
msClNe_Code & "', '" & _
msClNe_Name & "', '" & _
msLink_Id & "', '" & _
msClNe_Sts & _
"')"
Dim cmdInsertSQL As New SqlCommand(msInsertSQL, psConnectionSQL)
cmdInsertSQL.ExecuteNonQuery()
Catch oMsg As Exception
MsgBox(oMsg.Message, MsgBoxStyle.Critical)
End Try


--solo adaptalo para lo que ocupas a mi me sirvio ..

que tengas buen dia
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