余数使用%:https://www.baidu.com/baidu?ie=UTF-8&word=SqlServer%20%E4%BD%99%E6%95%B0
CONVERT(nvarchar(10), Floor(c.现存数 / b.装箱数)) + '件' + CONVERT(nvarchar(10), c.现存数 % b.装箱数) +
Dim
cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Insert Into 订单
(客户, 日期,
订单编号)
Values(?,?,?)"
cmd.Parameters.Add("@日期","01")
cmd.Parameters.Add("@客户",Date.Today)
cmd.Parameters.Add("@p",100)
cmd.ExecuteNonQuery
有下面这样的删除记录,表名是生产入库,现在想还原数据,没思路啊
RowNum=5|创建人=陈佳辉|创建日期=2023-02-06 11:08:36|编辑人=陈佳辉|编辑日期=2023-02-06 11:08:36|编号=SCRK230123|入库日期=2023-02-06|仓库=原料仓|类型=生产入库|备注=|经手人=陈佳辉|经手人编号=182|审核=未审核|审核人=|审核人编号=|审核日期=00:00:00|创建人编号=007|数量合计=70|金额合计=0|件数合计=70|品种合计=3|年份=2023|月份=02|年月=202302|核销标志=|作废标志=|操作日志=|
dim s as string = "
RowNum=5|创建人=陈佳辉|创建日期=2023-02-.........."
dim ss() as string = s.split("|")
Dim cmd As new SQLCommand cmd.ConnectionName = "数据源名称" cmd.CommandText = "Insert Into 生产入库 (编号, 入库日期, ......) Values(?,?,......)" cmd.Parameters.Add("@编号",ss(5).replace("编号=","")) cmd.Parameters.Add("@入库日期",ss(6).replace("入库日期=","")) …… cmd.ExecuteNonQuery |
做了一个删除记录表,主要是有多个表,列名不一样
现在是单个还原可以实现,多种表格,不同的列名和列数量
要用到for each
[此贴子已经被作者于2023/2/13 10:07:50编辑过]
Dim spxx As String = “得力7101固体胶(品牌:得力/deli;型号:71;颜色)” |
spxx = spxx.TrimEnd("(品牌:","品牌:")
红色代码无效,求解
最终结果 spxx = 得力7101固体胶
[此贴子已经被作者于2023/6/17 17:15:44编辑过]
Dim c md As New SQ LCommand
Dim dt,dtt As DataTable
c md.Co nnecti
c md.Co mmandText = "S ELECT * From {JY_投标立项}"
dt = c md.ExecuteReader()
c md.Co nnecti
c md.Co mmandText = "S ELECT * From {JY_投标立项}"
dtt = c md.ExecuteReader(True)
Dim nr As DataRow
For Each dr As DataRow In dt.DataRows
If dtt.Find("立项编号 = '" & dr("立项编号") & "'") Is Nothing Then
nr = dtt.AddNew()
For Each dc As DataCol In dt.DataCols
nr(dc.name) = dr(dc.name)
nr.Save
Next
Else
nr = dtt.Find("立项编号 = '" & dr("立项编号") & "'")
For Each dc As DataCol In dt.DataCols
nr(dc.name) = dr(dc.name)
nr.Save
Next
End If
Next
跨数据库同步异常