Конвертация VB6 в .NET.Я застрял - PullRequest
Новая
       2

Конвертация VB6 в .NET.Я застрял

0 голосов
/ 08 сентября 2010

У меня есть это, и я возился с этим некоторое время, но я полностью застрял.Может ли кто-нибудь помочь мне понять это.Я пытаюсь переписать это в .NET.спасибо. 

Set objCmd = Server.CreateObject("ADODB.Command")
 Set objRS = Server.CreateObject("ADODB.Recordset")
 objCmd.ActiveConnection = Application("ConnString")
 With objCmd
  .CommandText = "sp_CheckUserLogin"
  .CommandType = adCmdStoredProc
  objCmd(1) = strUserName
  Set objRS = .Execute 
 End With
 Set objCmd = Nothing

 If objRS.EOF Then
  strErrString = strErrString & "Invalid Account Information.<br>"
  Call InsertLoginHistory(strUserName, Trim(Request.Form("Password")), Request.ServerVariables("REMOTE_HOST"), "User Not Found")
  bLoggedIn = False
 Else
  iUserNumber = objRS("USER_NUMBER")
  strPassword = Trim(objRS("USER_PASSWORD"))
  strIPBand =  Trim(objRS("IP_BAND"))
  iFailedCount =  objRS("FAILED_LOGIN_CNT")
  dLastFailedLogin =  objRS("LAST_FAILED_LOGIN")
  strLoggedInStatus =  objRS("LOGGED_IN_STATUS")
  strLockUser =  objRS("LOCKUSER")
            ....

Ответы [ 3 ]

3 голосов
/ 08 сентября 2010

Что-то в этом роде должно привести вас в правильном направлении.Вам нужно будет добавить ссылку на System.Configuration 

using System.Data.SqlClient
using System.Configuration

SqlConnection sqlConn = null;
SqlCommand sqlCmd = null;
SqlDataReader sqlRdr = null;

try
{
    // get connection string from web.config or app.config
    sqlConn = new SqlConnection(ConfigurationManager.ConnectionStrings["SomeConnectionString"].ConnectionString);
    sqlConn.Open();

    sqlCmd = new SqlCommand("sp_CheckUserLogin", sqlConn);
    sqlCmd.CommandType = System.Data.CommandType.StoredProcedure;
    // define parameters like this
    sqlCmd.Parameters.Add(new SqlParameter("@user", strUserName));
    sqlRdr = sqlCmd.ExecuteReader();
    while (sqlRdr.Read())
    {
        // get values by column name or index
        strPassword = sqlRdr["USER_NUMBER"].ToString();
    }
catch(Exception ex)
{
    // do your error handling here
}
finally
{
    // close connections
     if (sqlConn != null)
        sqlConn.Close();
     if (sqlRdr != null)
        sqlRdr.Close();
}
1 голос
/ 08 сентября 2010

Предполагая, что вы подключаетесь к MS Sql Server, используйте классы SqlCommand, SqlConnection и Dataset / DataTable.ADO.Net не так сложно понять, если вы знаете ADO.

0 голосов
/ 08 сентября 2010

objRS является RecordSet. Здесь - несколько советов для VB6 ADO. Здесь - это учебное пособие для ознакомления с ADO.NET (эквивалент .NET для VB6 ADO).

...