Ver Mensaje Individual
  #5 (permalink)  
Antiguo 08/04/2010, 08:37
heroe_jcdh
 
Fecha de Ingreso: abril-2010
Mensajes: 2
Antigüedad: 14 años
Puntos: 0
Respuesta: mostrar datos en un datagridview

Disculpa amigo me podrias ayudar Yo quiero Hacer algo similar pero con sql (Eso es lo de menos) pero con una clase mira el codiogo de inseertar de mi clase es:
Public Function InsertarFisico(ByRef Nombre As String, ByRef ApPaterno As String, ByRef ApMaterno As String, ByRef RFC As String, ByRef Sexo As String, ByRef Fecha_Nac As String, ByRef Estado_Civil As String, ByRef Direccion As String, ByRef Ciudad As String, ByRef Estado As String, ByRef Codigo_Post As String, ByRef Telefono As String) As Boolean
Try
Dim Conexion As New SqlConnection("pooling = false; integrated security=true; data source= SIST\SQLEXPRESS; initial catalog= BDCYC")
Conexion.Open()
Dim Comando As New SqlCommand("insert into ClienteFisico(Nombre,ApPaterno,ApMaterno,RFC,Sexo, Fecha_Nac,Estado_Civil,Direccion,Ciudad,Estado,Cod igo_Post,Telefono)Values('" & Nombre & "', '" & ApPaterno & "','" & ApMaterno & "','" & RFC & "','" & Sexo & "','" & Fecha_Nac & "','" & Estado_Civil & "', ' " & Direccion & " ','" & Ciudad & "', '" & Estado & "','" & Codigo_Post & "', '" & Telefono & "' )", Conexion)
Dim Ejecuat As Integer = Comando.ExecuteNonQuery
Conexion.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
End Class

y el de el boton de la forma es:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (TB1.Text <> "") And (TB2.Text <> "") And (TB3.Text <> "") And (TB4.Text <> "") And (TB8.Text <> "") And (TB9.Text <> "") And (TB10.Text <> "") And (TB11.Text <> "") And (TB12.Text <> "") Then
Dim inserta As New Clase
Dim x As Boolean
x = inserta.InsertarFisico(TB1.Text, TB2.Text, TB3.Text, TB4.Text, TB5.Text, TB6.Text, TB7.Text, TB8.Text, TB9.Text, TB10.Text, TB11.Text, TB12.Text)
If x = True Then
MsgBox("Datos agregados")
Else
MsgBox("Fallo conexion")
End If
Me.Close()
Form1.Visible = True
Else
MsgBox("Llene los datos correctamente")
End If
End Sub

Ahora lo que quiero es sacar datos y ponerlos en un DataGridView si mpe pudieras ayudar te lo agradeceria mucho.
Estoy trabajando en V.B.2008