Database

CREATE TABLE [MyTestTable] (
	[IDColumn] [int] IDENTITY (1, 1) NOT NULL ,
	<code>[DateCreated]  [datetime] NOT NULL CONSTRAINT [DF_MyTestTable_DateCreated] DEFAULT (getdate())</code> ,
	CONSTRAINT [PK_MyTestTable] PRIMARY KEY  CLUSTERED 
	(
		[IDColumn]
	)  ON [PRIMARY] 
) ON [PRIMARY]
GO

EricDV wrote:

[DateCreated] AS (getdate()) ,

EricDV wrote:

You caught me again!

EricDV wrote:

I'm gonna have to slow down and think about what I'm posting.

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