none
Insertar, editar ,eliminar y mostrar datos utilizando db2 y VB 2010 RRS feed

  • Pregunta

  • Hola tengo el sgte codigo:

    Dim oConexion As SqlConnection
            oConexion = New SqlConnection
            oConexion.ConnectionString = ("Server=MAURICIOHAMAKPC;Database=DAPSA;UID=MauricioHamak;PWD=mau10;")
            Me.oDataAdapter = New SqlDataAdapter("SELECT * FROM ARTICULOS", oConexion)
            Dim oCommBuild As SqlCommandBuilder = New SqlCommandBuilder(oDataAdapter)
            Me.oDataSet = New DataSet
            oConexion.Open()
            Me.oDataAdapter.Fill(oDataSet, "ARTICULOS")
            oConexion.Close()
            Dim oDataRow As DataRow
            oDataRow = Me.oDataSet.Tables("Datos").NewRow()
            oDataRow("Codigo") = Me.TxtCodigo.Text
            oDataRow("Marca") = Me.ComboBox1.Text
            oDataRow("Nombre") = Me.TxtNombre.Text
            oDataRow("Color") = Me.TxtColor.Text
            oDataRow("Talle") = Me.TxtTalle.Text
            oDataRow("Stock") = Me.TxtStock.Text
            oDataRow("Precio") = Me.TxtPrecio.Text
            oDataRow("PrecioLista") = Me.TxtPrecioLista.Text
            Me.oDataSet.Tables("Datos").Rows.Add(oDataRow)
            Me.oDataAdapter.Update(oDataSet, "Datos")
            MsgBox("Estudiante almacenado")

    Y me da un error que no se puede conectar al servidor. Trabajo con db2 9.7 y vb 2010.

    martes, 28 de agosto de 2012 16:00

Todas las respuestas