ASP.NET连SQL7接口源代码
你当前的位置:烁空 --> 技术文档全集
THE FOLLOWING EXAMPLE SHOWS WHAT A SIMPLE ADO.NET APPLICATION THAT CONNECTS TO THE NORTHWIND DATABASE AND RETURNS A LIST OF CATEGORIES WOULD LOOK LIKE. THE EXAMPLE WRITES THE OUTPUT TO THE CONSOLE, OR COMMAND PROMPT.

THE FOLLOWING EXAMPLE SHOWS WHAT A SIMPLE ADO.NET APPLICATION THAT CONNECTS TO THE NORTHWIND DATABASE AND RETURNS A LIST OF CATEGORIES. THE EXAMPLE WRITES THE OUTPUT TO THE CONSOLE, OR COMMAND PROMPT.

SQLCLIENT
[VISUAL BASIC]
IMPORTS SYSTEM
IMPORTS SYSTEM.DATA
IMPORTS SYSTEM.DATA.SQLCLIENT
IMPORTS MICROSOFT.VISUALBASIC

PUBLIC CLASS SAMPLE

  PUBLIC SHARED SUB MAIN()
    DIM NWINDCONN AS SQLCONNECTION = NEW SQLCONNECTION("DATA SOURCE=LOCALHOST;" & _
                                                       "USER ID=SA;PASSWORD=PWD;INITIAL CATALOG=NORTHWIND")

    DIM CATCMD AS SQLCOMMAND = NWINDCONN.CREATECOMMAND()
    CATCMD.COMMANDTEXT = "SELECT CATEGORYID, CATEGORYNAME FROM CATEGORIES"

    NWINDCONN.OPEN()

    DIM MYREADER AS SQLDATAREADER = CATCMD.EXECUTEREADER()

    DO WHILE MYREADER.READ()
      CONSOLE.WRITELINE(VBTAB & "{0}" & VBTAB & "{1}", MYREADER.GETINT32(0), MYREADER.GETSTRING(1))
    LOOP

    MYREADER.CLOSE()
    NWINDCONN.CLOSE()
  END SUB
END CLASS
[C#]
USING SYSTEM;
USING SYSTEM.DATA;
USING SYSTEM.DATA.SQLCLIENT;

CLASS SAMPLE
{
  PUBLIC STATIC VOID MAIN()
  {
    SQLCONNECTION NWINDCONN = NEW SQLCONNECTION("DATA SOURCE=LOCALHOST;USER ID=SA;PASSWORD=PWD;INITIAL CATALOG=NORTHWIND");

    SQLCOMMAND CATCMD = NWINDCONN.CREATECOMMAND();
    CATCMD.COMMANDTEXT = "SELECT CATEGORYID, CATEGORYNAME FROM CATEGORIES";

    NWINDCONN.OPEN();

    SQLDATAREADER MYREADER = CATCMD.EXECUTEREADER();

    WHILE (MYREADER.READ())
    {
      CONSOLE.WRITELINE(" {0} {1}", MYREADER.GETINT32(0), MYREADER.GETSTRING(1));
    }

    MYREADER.CLOSE();
    NWINDCONN.CLOSE();
  }
}
OLEDB
[VISUAL BASIC]
IMPORTS SYSTEM
IMPORTS SYSTEM.DATA
IMPORTS SYSTEM.DATA.OLEDB
IMPORTS MICROSOFT.VISUALBASIC

PUBLIC CLASS SAMPLE

  PUBLIC SHARED SUB MAIN()
    DIM NWINDCONN AS OLEDBCONNECTION = NEW OLEDBCONNECTION("PROVIDER=SQLOLEDB;DATA SOURCE=LOCALHOST;" & _
                                                           "USER ID=SA;PASSWORD=PWD;INITIAL CATALOG=NORTHWIND")

    DIM CATCMD AS OLEDBCOMMAND = NWINDCONN.CREATECOMMAND()
    CATCMD.COMMANDTEXT = "SELECT CATEGORYID, CATEGORYNAME FROM CATEGORIES"

    NWINDCONN.OPEN()

    DIM MYREADER AS OLEDBDATAREADER = CATCMD.EXECUTEREADER()

    DO WHILE MYREADER.READ()
      CONSOLE.WRITELINE(VBTAB & "{0}" & VBTAB & "{1}", MYREADER.GETINT32(0), MYREADER.GETSTRING(1))
    LOOP

    MYREADER.CLOSE()
    NWINDCONN.CLOSE()
  END SUB
END CLASS
[C#]
USING SYSTEM;
USING SYSTEM.DATA;
USING SYSTEM.DATA.OLEDB;

CLASS SAMPLE
{
  PUBLIC STATIC VOID MAIN()
  {
    OLEDBCONNECTION NWINDCONN = NEW OLEDBCONNECTION("PROVIDER=SQLOLEDB;DATA SOURCE=LOCALHOST;USER ID=SA;PASSWORD=PWD;INITIAL CATALOG=NORTHWIND");

    OLEDBCOMMAND CATCMD = NWINDCONN.CREATECOMMAND();
    CATCMD.COMMANDTEXT = "SELECT CATEGORYID, CATEGORYNAME FROM CATEGORIES";

    NWINDCONN.OPEN();

    OLEDBDATAREADER MYREADER = CATCMD.EXECUTEREADER();

    WHILE (MYREADER.READ())
    {
      CONSOLE.WRITELINE(" {0} {1}", MYREADER.GETINT32(0), MYREADER.GETSTRING(1));
    }

    MYREADER.CLOSE();
    NWINDCONN.CLOSE();
  }
}