又是创建表错误.....我都烦死了....就是一句话....一行代码...来看看啊.....我是老山...

Question

试一下
CnAccess.Execute "create table T_SUB_FEE (fee_item_no text(100) ,[no] double ,upper_limit double ,lower_limit double,fee_std_rate double)"

Answer 1

老山，这么久了，你怎么还要总问一些SQL语法方面的问题呀？找本SQL的书看看，可以系统的学一下，比你这么问要提高的快的多。

Answer 2

呵呵.........对啊....
谢谢了...songyangk(小草)呵呵..
    For i = 1 To RsOraSub.RecordCount
       ProgressBar1.Value = i + 1
       CnAccess.Execute "insert into t_sub_fee(fee_item_no,[no],upper_limit,lower_limit,fee_std_rate)" & _
                        "values('" & RsOraSub(0).Value & "','" & RsOraSub(1).Value & "','" & RsOraSub(2).Value & "','" & RsOraSub(3).Value & "','" & RsOraSub(4).Value & "')"
       RsOraSub.MoveNext
       DoEvents
    Next这种写法里面怎么处理rsorasub这个记录集里面如果有空值..怎么插入到t_fee_std中呢???
谢谢啊

Answer 3

..
    For i = 1 To RsOraSub.RecordCount
      ProgressBar1.Value = i + 1
      CnAccess.Execute "insert into t_sub_fee(fee_item_no,[no],upper_limit,lower_limit,fee_std_rate)" & _
                        "values('" & RsOraSub(0).Value & "','" & RsOraSub(1).Value & "','" & RsOraSub(2).Value & "','" & RsOraSub(3).Value & "','" & RsOraSub(4).Value & "')"
      RsOraSub.MoveNext
      DoEvents
    Next为什么要用for...next和MoveNext，直接insert into不就可以了

Answer 4

在RsOraSub(n)的后面 & "" 如果是字符串或数字，则无影响，如果是NULL，则变成了""

Answer 5

songyangk(小草):
"values('" & RsOraSub(0) &"".Value & "',.....) ???
是这样???
还是
"values('" & RsOraSub(0).Value & "' & "",....) ?????

Answer 6

老是语法错误啊...
CnAccess.Execute "insert into t_fee_std (fee_item_no ,fee_item_desc,fee_rate1,fee_rate2,fee_rate3,calcu_fee_mode,measure_unit_code  ,fee_std_rate,min_fee ,max_fee ,discount,constraint_flag ,create_date ,re ,fee_std_doc,detail_flag,temp_disc)" & _
                       "values('" & RsOraStd(0) & "' & "",'" & RsOraStd(1) & "' & "",'" & RsOraStd(2) & "' & "",'" & RsOraStd(3) & "' & "",'" & RsOraStd(4) & "' & "",'" & RsOraStd(5) & "' & "",'" & RsOraStd(6) & "' & "",'" & RsOraStd(7) & "' &"",'" & RsOraStd(8) & "' &"",'" & RsOraStd(9) & "'&"",'" & RsOraStd(10) & "'&"",'" & RsOraStd(11) & "' &"",'" & RsOraStd(12) & "'&"",'" & RsOraStd(13) & "'&"",'" & RsOraStd(14) & "'&"",'" & RsOraStd(15) & "'&"",'" & RsOraStd(16) & "'&"")"在'" & rsorastd(16)  &"' &"")" 这里...语法错误....