Visual Basic.NET - visual .net

   
Vista:

visual .net

Publicado por cesa augusto suarez (1 intervención) el 02/09/2007 23:13:53
si alguien tiene o sabe donde pueda encontrar codigo para hacer un traductor en visual.net le encargo me lo hga saber lo mas pronto posible ya que esoy realizando para mi proyecto de tesis un traductor de lenguaje nativo a sintaxis de motor de base de datos interbase.

Gracias
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

problema con formularios relacionados

Publicado por Manuel Eduardo (1 intervención) el 05/09/2007 23:09:15
Mi problema es que tengo un formulario de tipo proveedor al cual lo tengo relacionado con otra tabla "caja" y no se como guardar los datos del formularios ya que tengo un combo el cual muestra el numero de cajas pero como estoy guardando solo dentro de la tabla proveedor aqui lo tengo como id_caja como clave foranea;
aqui te muestro el codigo del boton guardar:
Dim comando1 As New SqlCommand("insert into proveedor values(@id_proveedor,@id_caja,@nombre,@direccion,@telefono,@cedula,@activo,@ciudad,@observacion) ", conexion1)
comando1.Parameters.Add("@id_proveedor", Data.SqlDbType.Int, 4)
comando1.Parameters.Add("@id_caja", Data.SqlDbType.Int, 4)
comando1.Parameters.Add("@nombre", Data.SqlDbType.VarChar, 50)
comando1.Parameters.Add("@direccion", Data.SqlDbType.VarChar, 50)
comando1.Parameters.Add("@telefono", Data.SqlDbType.VarChar, 50)
comando1.Parameters.Add("@cedula", Data.SqlDbType.VarChar, 50)
comando1.Parameters.Add("@activo", Data.SqlDbType.VarChar, 1)
comando1.Parameters.Add("@ciudad", Data.SqlDbType.VarChar, 50)
comando1.Parameters.Add("@observacion", Data.SqlDbType.VarChar, 50)
comando1.Parameters("@id_proveedor").Value = CInt(Me.txt_codigo.Text)
comando1.Parameters("@id_caja").Value = Me.cmb_caja.
comando1.Parameters("@nombre").Value = Me.txt_nombre.Text
comando1.Parameters("@direccion").Value = Me.txt_nombre.Text
comando1.Parameters("@telefono").Value = Me.txt_telefono.Text
comando1.Parameters("@cedula").Value = Me.txt_cedula.Text
comando1.Parameters("@activo").Value = Me.chk_activo.Text
comando1.Parameters("@ciudad").Value = Me.txt_ciudad.Text
comando1.Parameters("@observacion").Value = Me.txt_observacion.Text
conexion1.Open()
comando1.ExecuteNonQuery()

no estoy seguro de lo que estoy haciendo mal
de antemano muy agradecido a su humilde respuesta
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