小编Bob*_*Bob的帖子

我有这样一张桌子:

SKU            Size
A              10
B              10
C              10
D              10
E              10
F              10
G              10

我想将其更改为:

SKU            Size
A              20
B              10
C              30
D              10
E              80
F              10
G              60

我有超过3000行记录要更新.如何使用SQL更新命令执行此操作？

如何将数字的文本表示转换为Excel数字,尤其是负值？例如,字符串"9,669.34"(不带引号)应该成为数字9,669.34,字符串"2,553.57-"(再次,没有引号)应该成为数字(2,553.57).

当我使用公式时=SUBSTITUTE(A1,CHAR(160),"")+0,它运作良好,但仅适用于正值.我收到了#VALUE!所有负值的结果.

我在excel宏中存储了以下内容: -

Sub Sales()

Dim StrSQl As String

Con = "Provider=IBMDA400;Data Source=192.168.2.2;User Id=boss;Password=1we56"

Set Db = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.recordset")
Db.connectionSTring = Con
Db.Open
StrSQl = "select myuc, sum (myac) as Amount from myabc.myqwerty where mydt >= 20100101 and mydt <= 20100831 group by (mycl)"
rs.Open StrSQl, Db, 3, 3
Sheet1.Cells(10, 1).CopyFromRecordset rs
rs.Close
Set rs = Nothing
Set cn = Nothing
End Sub

我想掩盖上面的用户名和密码即.User Id=****;Password=*****作为安全的一部分.

那可能吗？

我有这样一张桌子:

Item          Code
A             123456
B             123455
C             23457
D             123458
E             23459
F           

该Code列必须有6个字符,我需要为少于6个字符的项添加"1"(例如,23455to 123455).

我怎么能用SQL做到这一点？

谢谢,

我怎么能转换这个表: -

INV   DESCRIPTION   AMOUNT
--------------------------
1001  CHARGES       100
1001  FREIGHT       30
1001  INSURANCE     20
1002  CHARGES       215
1002  FREIGHT       32
1002  INSURANCE     25

使用SQL格式: -

INV   CHARGES  FREIGHT  INSURANCE
---------------------------------
1001  100      30       20
1002  215      32       25

我有 2 个工作表，数据和转换。

尝试使用此宏根据“数据”最后一行（可以长于 100 行）在“转换”中进行自动填充：-

Public Sub Call_Generate_Data()


    Sheets("Convert").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(Data!RC[4],Links!R1C1:R14C2,2,FALSE)"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=IF(Data!RC[12]="""",""1/1/2014"",Data!RC[12])"
    Range("B3").Select
    Selection.AutoFill Destination:=Range("A2:B" & Sheets("Data").Range("D" & Rows.Count).End(xlUp).Row)
    Sheets("Data").Select
    Range("B3").Select

End Sub

但是，我失败了：-

错误消息：-

调试：-

有人可以帮我吗？