Visual Basic

AAGTHosting wrote:

What is the difference between connecting to a database, setting up a data adapter and data set between VB 2003 and VB 2005

Dim conn As String = "...connection string..."
Dim comm As String = "SELECT field, field, field FROM table WHERE expression"
Dim da As New SqlDataAdapter(comm, conn)
Dim cb As New SqlCommandBuilder(da)

Dim dt As New DataTable
da.Fill(dt)

Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click<br />
        Dim filename As String<br />
        Dim od As New OpenFileDialog<br />
        Dim SheetName() As String<br />
        Try<br />
<br />
            od.AddExtension = True<br />
            od.DefaultExt = ".xls"<br />
            od.Filter = "Microsoft Excel Workbook(*.xls)|*.xls"<br />
            od.ShowDialog()<br />
            filename = od.FileName<br />
            SheetName = dgtmp.LoadExcelSheetNames(filename)<br />
            dgtmp.LoadExcel(filename, SheetName(0), C1.Win.C1FlexGrid.FileFlags.IncludeFixedCells)<br />
<br />
            Dim dgCol As C1.Win.C1FlexGrid.Column<br />
            For Each dgCol In dgtmp.Cols<br />
                dgCol.Name = dgtmp.Rows(0)(dgCol.Index)<br />
            Next<br />
<br />
            dgtmp.Cols.Add()<br />
            dgtmp.Cols(dgtmp.Cols.Count - 1).Name = "SEL"<br />
            dgtmp.Cols(dgtmp.Cols.Count - 1).DataType = System.Type.GetType("System.Boolean")<br />
<br />
            objEms.RetrieveSearchData("FIS104", "BANK_CODE='" & BankCode & "'", "", sCompany, sPlant, dsRet, Nothing)<br />
            If Not IsNothing(dsRet.Tables(0)) Then<br />
                If dsRet.Tables(0).Rows.Count > 0 Then<br />
                    CLEARDATE = dsRet.Tables(0).Rows(0)("CLEAR_DATE")<br />
                    WITHDRAWLS = dsRet.Tables(0).Rows(0)("WITHDRAWLS")<br />
                    DEPOSITS = dsRet.Tables(0).Rows(0)("DEPOSITS")<br />
                    CHEQUENO = dsRet.Tables(0).Rows(0)("CHEQUE_NO")<br />
                    DESCRIPTION = dsRet.Tables(0).Rows(0)("DESCRIPTION")<br />
                Else<br />
                    ShowMessage("Format not Defined", 30)<br />
                End If<br />
            End If<br />
<br />
            Dim dgRow As C1.Win.C1FlexGrid.Row<br />
            For Each dgRow In dgtmp.Rows<br />
                'If dgRow.Index > 0 Then<br />
                If dgtmp.Rows.Count - 1 > 0 Then<br />
                    With dgBankReco<br />
                        <big>Dim curRow As Integer = .FindRow(dgRow(CHEQUENO), 0, .Cols("CHEQUE_NO").Index, False, True, False)</big><br />
                        If Val(.Rows(curRow)("DEBIT").ToString()) = Val(IIf(IsNothing(dgRow(DEPOSITS)), 0, dgRow(DEPOSITS))) And Val(.Rows(curRow)("CREDIT").ToString()) = Val(IIf(IsNothing(dgRow(WITHDRAWLS)), 0, dgRow(WITHDRAWLS))) Then<br />
                            .Rows(curRow)("SEL") = 1<br />
                            .Rows(curRow)("CLEAR_DATE") = dgRow(CLEARDATE)<br />
                            dgRow("SEL") = 1<br />
                        End If<br />
                    End With<br />
                Else<br />
                    dgtmp.Row = 0<br />
                    dgtmp.Rows.Fixed = 1<br />
                End If<br />
            Next<br />
<br />
<br />
        Catch ex As Exception<br />
            dsRet = Nothing<br />
        End Try<br />
    End Sub

<PasswordPropertyText(True)> _
Public Property Password() As String
    Get
        Return _password
    End Get
    ...
End Property