Errores varios.
Publicado por b0nete (1 intervención) el 12/06/2013 05:37:42
Hola, necesito algo de ayudita con unos problemas..
1) Estoy queriendo cargar datos de 2 tablas distintas y nose como hacerlo, quisiera que me expliquen como.. Leí que había que insertarse los datos por separado, pero no logro dar con el código.
Esto es lo que tengo, también probé con and (INSERT INTO Clientes and Domicilios) y tampoco obtuve resultados..
2)Necesito un botón para buscar una tupla por DNI y me da error de conversión a tipo integer.
Este es el código del botón. (FORM Cliente)
También coloque en ds el valor de txtDNI como tipo de dato entero pero nada.. así lo coloqué: ds = al.CargaGrilla(CInt(txtDNI.Text)) pero no funcionó.
Y la función CargaGrilla (Modulo Clientes)
1) Estoy queriendo cargar datos de 2 tablas distintas y nose como hacerlo, quisiera que me expliquen como.. Leí que había que insertarse los datos por separado, pero no logro dar con el código.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub grabarCliente(ByVal al As Clientes)
Dim sel As String
Try
sel = "INSERT INTO Clientes, Domicilios" & _
"(DNI, Apellido, Nombre, Calle, Numero, Barrio, Localidad, Provincia) " & _
"VALUES ('" & _DNI & "','" & _
_Apellido & "','" & _
_Nombre & "','" & _
_Calle & "'," & _Numero & " " & _
_Barrio & "','" & _Localidad & "','" & _
_provincia & "')"
com.CommandText = sel
com.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
Esto es lo que tengo, también probé con and (INSERT INTO Clientes and Domicilios) y tampoco obtuve resultados..
2)Necesito un botón para buscar una tupla por DNI y me da error de conversión a tipo integer.
Este es el código del botón. (FORM Cliente)
1
2
3
4
Private Sub btnBuscardni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscarDNI.Click
ds = al.CargaGrilla(txtDNI.Text)
DataGridView1.DataSource = ds.Tables(0)
End Sub
También coloque en ds el valor de txtDNI como tipo de dato entero pero nada.. así lo coloqué: ds = al.CargaGrilla(CInt(txtDNI.Text)) pero no funcionó.
Y la función CargaGrilla (Modulo Clientes)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function CargaGrilla() As DataSet
da = New SqlDataAdapter("select * from Clientes", con)
ds = New DataSet dt = New DataTableda.Fill(ds)
'End Try
Return ds
End Function
Public Function CargaGrilla(ByVal DNI As Integer) As DataSet
da = New SqlDataAdapter("select * from Clientes where DNI = ' & DNI & '", con)
ds = New DataSetTry
da.Fill(ds)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
Return ds
End Function
Valora esta pregunta
0
