Insertar registros en bases de datos relacionadas
Publicado por Neil (2 intervenciones) el 04/03/2015 00:12:46
Gracias a quien me pueda dar una luz respecto a este asunto. Tengo dos tablas relacionadas como muestra la imagen y aunque ya puedo insertar registros a cada tabla en particular, no he podido actualizar la tabla entrada y que me alimente la tabla que relaciona a entrada y proveedores. No se si me hice entender. Adjunto imagen de uno de los formularios y la imagen de las tablas relacionadas.
Código
Código
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
Imports MySql.DataImports MySql.Data.Types
Imports MySql.Data.MySqlClient
Public Class class_int_entrada
Private _adaptador As New MySqlDataAdapter
Public Function int_datos_entrada(ByVal datos_entrada As class_datos_entrada) As Boolean
Dim estado As Boolean = TrueTry
conexion_global()
_adaptador.InsertCommand = New MySqlCommand("INSERT INTO entrada (numentrada,tipoentrada,fechaentrada) VALUES (@numentrada,@tipoentrada,@fechaentrada)", _conexion)
_adaptador.InsertCommand.Parameters.Add("@numentrada", MySqlDbType.VarChar, 45).Value = datos_entrada.numentrada
_adaptador.InsertCommand.Parameters.Add("@tipoentrada", MySqlDbType.VarChar, 45).Value = datos_entrada.tipoentrada
_adaptador.InsertCommand.Parameters.Add("@fechaentrada", MySqlDbType.VarChar, 45).Value = datos_entrada.fechaentrada
_conexion.Open()
_adaptador.InsertCommand.Connection = _conexion
_adaptador.InsertCommand.ExecuteNonQuery()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
estado = FalseFinally
cerrar()
End Try
Return estado
End Function
End Class
Valora esta pregunta
0
