FANDOM


Enlaces Editar

Lista de soportes Editar

Imports System.Data.Odbc

Module Program
  Sub Main()

    Dim sCon As String
    sCon = "DSN=Videoteca"

    Dim oCon As New OdbcConnection
    oCon.ConnectionString = sCon
    oCon.Open

    Dim sCmd As String
    sCmd = "SELECT * FROM soporte"

    Dim oCmd As New OdbcCommand
    oCmd.Connection = oCon
    oCmd.CommandText = sCmd

    Dim oReader As OdbcDataReader
    oReader = oCmd.ExecuteReader

    Dim sId As string
    Dim sNombre As String
    Dim sDesc As String

    While oReader.Read

      sId = oReader.GetString(0)
      sNombre = oReader.GetString(1)
      sDesc = oReader.GetString(2)

      Console.Write("(" + sId + ") ")
      Console.Write(sNombre + ": ")
      Console.WriteLine(sDesc + ".")

    End While

    oCon.Close

    Console.Write("Pulse una tecla para continuar...")
    Console.ReadKey(True)

  End Sub
End Module

¡Interferencia de bloqueo de anuncios detectada!


Wikia es un sitio libre de uso que hace dinero de la publicidad. Contamos con una experiencia modificada para los visitantes que utilizan el bloqueo de anuncios

Wikia no es accesible si se han hecho aún más modificaciones. Si se quita el bloqueador de anuncios personalizado, la página cargará como se esperaba.