Database

Haoman17 wrote:

ADO

Haoman17 wrote:

SQL

Haoman17 wrote:

ACCESS

Haoman17 wrote:

MICROSOFT SQL SERVER

Haoman17 wrote:

VBA

Haoman17 wrote:

i need to develop data-base project and do not know where to start and what is the newest methoods

Private Sub PopulateFindList(ByVal strField As String, ByVal strWhat As String)<br />
        With Me.ListFind<br />
            .DataSource = Nothing<br />
            .Items.Clear()<br />
        End With<br />
        Cursor.Current = Cursors.WaitCursor<br />
        ceConn = New SqlCeConnection(conSqlConnection)<br />
        ceConn.Open()<br />
        Dim strSQL As String = "SELECT " & strField & " FROM Customer WHERE " & strField & _<br />
            " LIKE '%" & strWhat & "%'" & " GROUP BY " & _<br />
            strField & " ORDER BY " & strField & " ASC"<br />
        Dim ceCmd As SqlCeCommand = New SqlCeCommand(strSQL, ceConn)<br />
        ceReader = ceCmd.ExecuteReader(CommandBehavior.CloseConnection)<br />
        If ceReader.Read Then<br />
             While ceReader.Read()<br />
                    ListFind.Items.Add(Mid(CStr(ceReader(strField)), 1, 30))<br />
             End While<br />
        End If<br />
        Cursor.Current = Cursors.Default<br />
        ceReader.Close()<br />
        ceReader = Nothing<br />
        ceConn.Close()<br />
        ceConn = Nothing<br />
      End Sub

MrRedLion wrote:

If ceReader.Read Then
While ceReader.Read()
ListFind.Items.Add(Mid(CStr(ceReader(strField)), 1, 30))
End While
End If

Paddy Boyd wrote:

Some memory there...