提示：编译错误：“connecti"不是”SQLcommand“的成员
错误代码： cmd.Connecti
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
If Connections.Contains("test")
Connections.Delete("test")
End If
Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False")
Dim dt As DataTable
Dim cmd As new SQLCommand
cmd.Connecti
cmd.CommandText = "SELECT * F rom {表A}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In DataTables("对公客户明细").Select("账号 is not null")
Dim fdr As DataRow = DataTables("对公客户明细").Find("账号 = '"& dr("账号") &"'")
If fdr Is Nothing Then
fdr = DataTables("对公客户明细").AddNew
fdr("账号") = dr ("账号")
fdr("经营情况") = dr("经营情况")
fdr("企业规模") = dr("企业规模")
fdr("联系人") = dr("联系人")
fdr("职务及备注信息") = dr("职务及备注信息")
fdr("金融需求与个人爱好") = dr("金融需求与个人爱好")
fdr("座机") = dr("座机")
fdr("手机") = dr("手机")
fdr("地址") = dr("地址")
fdr("身份证号") = dr("身份证号")
fdr("已开通业务") = dr("已开通业务")
fdr("准备开通业务") = dr("准备开通业务")
fdr("紧急程度") = dr("紧急程度")
fdr("认领员工") = dr("认领员工")
fdr("联系情况及网点反馈") = dr("联系情况及网点反馈")
Else
fdr("经营情况") &=Iif(fdr.IsNull("经营情况"),dr("经营情况"),Iif(fdr("经营情况").contains(dr("经营情况")) OrElse dr.IsNull("经营情况"),"",","& dr("经营情况")))
fdr("企业规模") &=Iif(fdr.IsNull("企业规模"),dr("企业规模"),Iif(fdr("企业规模").contains(dr("企业规模")) OrElse dr.IsNull("企业规模"),"",","& dr("企业规模")))
fdr("联系人") &=Iif(fdr.IsNull("联系人"),dr("联系人"),Iif(fdr("联系人").contains(dr("联系人")) OrElse dr.IsNull("联系人"),"",","& dr("联系人")))
fdr("职务及备注信息") &=Iif(fdr.IsNull("职务及备注信息"),dr("职务及备注信息"),Iif(fdr("职务及备注信息").contains(dr("职务及备注信息")) OrElse dr.IsNull("职务及备注信息"),"",","& dr("职务及备注信息")))
fdr("金融需求与个人爱好") &=Iif(fdr.IsNull("金融需求与个人爱好"),dr("金融需求与个人爱好"),Iif(fdr("金融需求与个人爱好").contains(dr("金融需求与个人爱好")) OrElse dr.IsNull("金融需求与个人爱好"),"",","& dr("金融需求与个人爱好")))
fdr("座机") &=Iif(fdr.IsNull("座机"),dr("座机"),Iif(fdr("座机").contains(dr("座机")) OrElse dr.IsNull("座机"),"",","& dr("座机")))
fdr("手机") &=Iif(fdr.IsNull("手机"),dr("手机"),Iif(fdr("手机").contains(dr("手机")) OrElse dr.IsNull("手机"),"",","& dr("手机")))
fdr("地址") &=Iif(fdr.IsNull("地址"),dr("地址"),Iif(fdr("地址").contains(dr("地址")) OrElse dr.IsNull("地址"),"",","& dr("地址")))
fdr("身份证号") &=Iif(fdr.IsNull("身份证号"),dr("身份证号"),Iif(fdr("身份证号").contains(dr("身份证号")) OrElse dr.IsNull("身份证号"),"",","& dr("身份证号")))
fdr("已开通业务") &=Iif(fdr.IsNull("已开通业务"),dr("已开通业务"),Iif(fdr("已开通业务").contains(dr("已开通业务")) OrElse dr.IsNull("已开通业务"),"",","& dr("已开通业务")))
fdr("准备开通业务") &=Iif(fdr.IsNull("准备开通业务"),dr("准备开通业务"),Iif(fdr("准备开通业务").contains(dr("准备开通业务")) OrElse dr.IsNull("准备开通业务"),"",","& dr("准备开通业务")))
fdr("紧急程度") &=Iif(fdr.IsNull("紧急程度"),dr("紧急程度"),Iif(fdr("紧急程度").contains(dr("紧急程度")) OrElse dr.IsNull("紧急程度"),"",","& dr("紧急程度")))
fdr("认领员工") &=Iif(fdr.IsNull("认领员工"),dr("认领员工"),Iif(fdr("认领员工").contains(dr("认领员工")) OrElse dr.IsNull("认领员工"),"",","& dr("认领员工")))
fdr("联系情况及网点反馈") &=Iif(fdr.IsNull("联系情况及网点反馈"),dr("联系情况及网点反馈"),Iif(fdr("联系情况及网点反馈").contains(dr("联系情况及网点反馈")) OrElse dr.IsNull("联系情况及网点反馈"),"",","& dr("联系情况及网点反馈")))
End If
Next
Connections.Delete("test")
End If
加好友 
发短信
Post By：2015/3/19 23:13:00 [只看该作者]
