Что делает этот код Visual Basic 6.0?

Question

Что делает приведенный ниже код Visual Basic 6.0? Однако это было использовано для функции поиска, мне не ясно с этим. Поэтому, пожалуйста, объясните, что он делает.

Private Sub cmdSearch_Click()
    Dim key As Integer, str As String
    key = InputBox("Enter the Employee No whose details u want to know: ")
    Set rs = Nothing
    str = "select * from emp where e_no=" & key
    rs.Open str, adoconn, adOpenForwardOnly, adLockReadOnly
    txtNo.Text = rs(0)
    txtName.Text = rs(1)
    txtCity.Text = rs(2)
    txtDob.Text = rs(4)
    txtPhone.Text = rs(3)
    Set rs = Nothing
    str = "select * from emp"
    rs.Open str, adoconn, adOpenDynamic, adLockPessimistic
End Sub

Answer 1

Точка, которую еще никто прямо не сказал, - rs, должна быть объявлена ​​As New RecordSet, так что Set rs = Nothing означает фактически то же самое, что и Set rs = New RecordSet.

Answer 2

Private Sub cmdSearch_Click()
    Dim key As Integer, str As String
    key = InputBox("Enter the Employee No whose details u want to know: ") ''// query the user for a name
    Set rs = Nothing
    str = "select * from emp where e_no=" & key ''//create sql query on the fly
    rs.Open str, adoconn, adOpenForwardOnly, adLockReadOnly ''// create a connection to an sql database
    txtNo.Text = rs(0) ''//assign the results of the query to input fields or labels
    txtName.Text = rs(1)
    txtCity.Text = rs(2)
    txtDob.Text = rs(4)
    txtPhone.Text = rs(3)
    Set rs = Nothing
    str = "select * from emp"
    rs.Open str, adoconn, adOpenDynamic, adLockPessimistic ''// creates a new sql connection and load the whole emp table
End Sub

Краткое резюме: попросите у пользователя имя и отобразите данные пользователя в метках или текстовых полях.

Answer 3

Он ищет данные из базы данных на основе столбца с именем e_no, загружает информацию из найденной строки в элементы управления TextBox, а затем повторно запрашивает базу данных для всех emp строк.

Answer 4

Это делает два поиска по базе данных. Результат первого поиска используется для заполнения некоторых текстовых полей. Результаты второго поиска ... ну я понятия не имею, что они с ним делают.