VB修改数据库

来源：百度知道 编辑：UC知道 时间：2024/05/12 07:54:40
Set cn = New ADODB.Connection
Set res = New ADODB.Recordset
cn.Open "provider=SQLOLEDB;server=it;database=khgl1;uid=sa;pwd=123456"
res.CursorLocation = adUseClient
res.Open "select * from khgl", cn, adOpenStatic, adLockOptimistic
Set frm_xxxg.MSHFlexGrid1.DataSource = res
On Error Resume Next
If DTP1.Value = Enabled Then
res!来电时间 = DTP1.Value
Else
res!来电时间 = Null
End If
If DTP2.Value = Enabled Then
res!去电时间 = DTP2.Value
Else
res!f去电时间 = Null
End If
res!公司名称 = Text1.Text
res!客户区域 = Text2.Text
res!联系人 = Text3.Text
res!联系电话 = Text4.Text
res!产品 = Text5.Text
res!认证类型 = Text6.Text
res!客户问题 = Text7.Text
res!销售代表 = Combo1.Text
res!跟踪进展1 = Text8.Text
res!跟踪进展2 =

'不知道dtpicker是不是这个属性，也许是dtpicker.Enabled =False，反正就是判断为灰色时。
If DTP1.Value = Enabled Then
res!来电时间 = DTP1.Value
Else
res!来电时间 = -109205
End If
If DTP2.Value = Enabled Then
res!去电时间 = DTP2.Value
Else
res!f去电时间 = -109205
End If

’把代码加在这个地方。

1. res!f去电时间 = Null改成res!去电时间 = Null

If DTP2.Value = Enabled Then
res!去电时间 = DTP2.Value
Else
res!去电时间 = Null
End If

我还是初学者,帮不上忙........