none
como trabajar con sql server con visual basic

    Pregunta

  • hola, ya an de decir ke como doi lata en este foro, pero me temo que aun estoi debasiado puberto en este rollo, aora el problema que tengo eske me an cambiado el lenguaje a visual basic, pork se le esta dando mantenimiento a un viejo sistema y si alguien me puede salvar de este apuro se lo agradeceria bastante, tengo este pekeño padazo de  kodigo:

    Public Function asignar_id(ByVal mvs_tabla_name As String, ByVal mvs_columna_name As String, ByVal mvi_indice As Integer) As Integer

            Dim DR_FOLIO As DataRow
            ID_C_Origen = New SqlConnection
            Dim strSQL As String
            Dim ID_DA_Origen As New SqlDataAdapter()
            Dim dataSet As DataSet

            ID_C_Origen.ConnectionString = "Initial Catalog=dbBienes; Data Source=localhost;Integrated Security=SSPI;"
            strSQL = "SELECT * FROM TABLA WHERE FOLIOS.TABLA =" + mvs_tabla_name

            ID_DA_Origen.SelectCommand = New SqlCommand(strSQL, ID_C_Origen)
            ID_DA_Origen.Fill(dataSet)

            ' Dim CB_Origen As New SqlCommandBuilder(ID_DA_Origen)
            'Dim SQL_Command As SqlClient.SqlCommand = New SqlClient.SqlCommand(strSQL)
            'Dim daCentroDist As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(strSQL, ID_C_Origen)

            ID_C_Origen.Open()
            ID_DT_Origen = New DataTable
            ID_DT_Origen.Columns.Add("TABLA")
            ID_DT_Origen.Columns.Add("FOLIO")
            'Dim dr As DataRow = ID_DT_Origen.NewRow
            'dr("TABLA") = mvs_tabla_name
            'dr("FOLIO") = 10000

            'ID_DT_Origen.Rows.Add(dr)
            'ID_DT_Origen.AcceptChanges()
            'daCentroDist.Fill(ID_DT_Origen)
            'ID_DA_Origen.Fill(ID_DT_Origen)
            DR_FOLIO = ID_DT_Origen.Rows(0)

            Dim mvi_mayor, mvi_cont_ai As Integer
            mvi_mayor = DR_FOLIO("FOLIO") 'ya que se tiene el mayor le suma 1 y tenemos el Id que se necesita para dar continuidad
            Return mvi_mayor 'lo ratorna    
        End Function

     

    el chiste de esta funcion es que me tiene que regresar el folio que tenga x tabla, pero me marca un error de que no es valido el valor de la fila ke le estoi mandando, si alguien sabe si ai una manera mas simple de acerlo sin necesidad de usar el data set , estare mui agradecido si me pasan un ejemplo

     

    p.d. estoy trabajando con el visual studio 2008, como ya abia comentado es un sistema viejo y probablemente no funcionen algunas funciones del frameworks que biene con el visual studio 2010

    martes, 17 de mayo de 2011 16:58