Database

Tim Carmichael wrote:

While VB 6 may have it issues, I have written and used in production many applications written in VB 6 pulling data from SQL Server without issue.

Tim Carmichael wrote:

I suspect it is with the coding, not the underlying foundations.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

UPDATE MyTable SET Column1 = 'Value1' WHERE mycolumn = 10

UPDATE MyTable SET Column1 = 'Value1' WHERE mycolumn > 10

UPDATE MyTable SET Column1 = 'Value1' WHERE mycolumn BETWEEN 10 AND 12

UPDATE MyTable SET Column1 = 'Value1' WHERE mycolumn IN (10, 12, 15, 30)

A B
----
1 1
2 2

A B
----
2 2
3 3

UPDATE TableName SET ColumnB = ColumnA + 9

UPDATE tableName SET columnB = 9 + t2.RowNum  FROM tableName t1 INNER JOIN (
SELECT ROW_NUMBER() OVER (ORDER BY columnA) RowNum,columnA FROM tableName) t2 ON t1.columnA = t2.columnA

UPDATE tableName SET columnB = 9 + t2.RowNum  FROM tableName t1 INNER JOIN (
SELECT ROW_NUMBER() OVER (ORDER BY columnA) RowNum,columnA FROM tableName) t2 ON t1.columnA = t2.columnA

SELECT DISTINCT 
[Sheet1$].Sheet1DetailId,
[Sheet1$].Sheet1Id,
[Sheet2$].Sheet2Id,
LTrim(RTrim([Sheet3$].Mission)) + '-' + CStr(Format('01-' + [Sheet3$].Sheet3Date,"mm/dd/yyyy")) AS Sheet3DateColumn,
[Sheet1$].one,
[Sheet1$].two,
[Sheet1$].three,
[Sheet1$].four,
[Sheet1$].five,
[Sheet1$].six,
[Sheet1$].seven,
[Sheet1$].eight,
[Sheet1$].nine,
[Sheet1$].ten,
LTRIM(RTRIM([Sheet2$].Name)) AS Sheet2Name
FROM      (([Sheet1$])
INNER JOIN [Sheet2$] ON [Sheet1$].Id = [Sheet2$].Sheet2Id)
INNER JOIN [Sheet3$] ON [Sheet1$].Id = [Sheet3$].Sheet3Id